View Full Version : بدست آوردن نام کامپیوتر
فرزاد دلفی باز
جمعه 06 آذر 1383, 23:54 عصر
با سلام
من می خواهم نام کامپیوتر و نوع ویندوز استفاده شده در آن را بدانم .
متشکرم
مهدی کرامتی
شنبه 07 آذر 1383, 02:29 صبح
این مثال با استفاده از لایه WinSock نام کامپیوتر و IP Address آن را بدست میاورد:
uses Winsock;
procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Get the COMPUTER NAME}
GetHostNAME(@s, 128);
p := GetHostByNAME(@s);
Memo1.Lines.Add(p^.h_NAME);
{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
{Shut down WinSock}
WSACleanup;
end;
این یکی هم برای تعیین نوع ویندوز:
TYPE
TOSTYPE = (OStUnknown,OStWin95,OStWinNT);
function OSTYPE : TOSTYPE;
var
OSv : TOSVersionInfo;
begin
OSv.dwOSVersionInfOSize := sizeof(OSv);
GetVersionEx(OSv);
Case OSv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := OStWinNT;
VER_PLATFORM_WIN32_WINDOWS : Result := OStWin95;
else Result := OStUnknown;
end; //Case
end;
موفق باشید. :موفق:
MiRHaDi
یک شنبه 08 آذر 1383, 00:12 صبح
سلام
توی رجیستری هست میتونی کلیدش رو بخونی خیلی راحت !
GetWindowsVersion , GetUserName , .... رو هم ببین کارت رو راه میندازه
بای
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.