زبان Delphi : تمامی مباحث و مسائل

[كبريت]

سلام
از اين كد مي تونيد براي گرفتن آي پي استفاده كنيد

function GetIPFromHost(const HostName: string): string;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
i: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result := '';
phe := GetHostByName(PChar(HostName));
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
i := 0;
while pPtr^[i] <> nil do
begin
Result := inet_ntoa(pptr^[i]^);
Inc(i);
end;
WSACleanup;
end;

خوب توضيح بده اين كد رو بايد كجا بنويسيم
مال چه برنامه اي هست
واسه دلفيه يا نه
لطفا يكم كامل تر توضيح بده

[NoneForce]

خوب توضيح بده اين كد رو بايد كجا بنويسيم
مال چه برنامه اي هست
واسه دلفيه يا نه
لطفا يكم كامل تر توضيح بده

سلام
هرجايي مي تونيد بنويسيد(در و ديوار هم قبوله) ولي اگه تو محيط دلفي باشه بهتره
مال برنامه خاصي نيست . با اين تابع مي تونيد آي پي يك آدرس را بدست آوريد

[NoneForce]

با سلام :
چطور ميتوان سريال سي پي يو --- هارد - مادر برد --و .... را در دلفي بدست آورود

سلام
مي تونيد از كامپوننت MiTeC System Information Suite 9.4.3 استفاده كنيد

[highermelody]

folderسلام عزيز.
مي خواستم بدونم چه جور ميشه دستور كپيه folder توسط دلفي نوشت.
ممنون.

[NoneForce]

folderسلام عزيز.
مي خواستم بدونم چه جور ميشه دستور كپيه folder توسط دلفي نوشت.
ممنون.

سلام
اين هم روش

uses
ShellAPI;

procedure TForm1.BtnCopyClick(Sender: TObject);
var
fileOp: TShFileOpStruct;
fromDir: string;
toDir: string;
begin
FillChar(fileOp, Sizeof(TShFileOpStruct), 0);
fromDir := DirectoryListBox1.Directory + '\*.*'#0;
toDir := DirectoryListBox2.Directory + #0;
with fileOp do
begin
wnd := Handle;
wfunc := FO_COPY;
pFrom := PChar(fromDir);
pTo := PChar(toDir);
fFlags := FOF_ALLOWUNDO;
fAnyOperationsAborted := false;
hNameMappings := nil;
lpszProgressTitle := nil;
end;
SHFileOperation(fileOp);
end;

[samira455]

سلام به همه دوستان:
من به کمک فوری نیاز دارم.کسی میدونه چطور در دلفی می شه ساعت سیستم را گرفت؟لطفا توضیح کامل دهید.

[NoneForce]

سلام
var
DateTime : TDateTime;


DateTime := Time;
str := TimeToStr(DateTime);
Caption := str;

فكر نكنم گشتن تو راهنماي خود دلفي كار سختي باشه
اگه خواستين بگين يك راهنماي كامل در اين مورد را ارسال كنم

[samira455]

ممنون می شم اگر ارسال کنید.

[samira455]

ممنون می شم اگر ارسال کنید.(به فکرم نرسیده بود از help استفاده کنم.ممنون از راهنمائی تون)

[NoneForce]

ممنون می شم اگر ارسال کنید.(به فکرم نرسیده بود از help استفاده کنم.ممنون از راهنمائی تون)

سلام
از نشاني زير راهنماي استفاده از راهنماي دلفي را دريافت كنيد.(بصورت فارسي)
اميدوارم مشكل شما و ديگر دوستان برنامه نويسي كه در استفاده از راهنماي دلفي مشكل دارند رفع شود.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]