كيفية التعرف على إسم الجهاز من خلال الدلفي

[لؤي]

وعليكم السلام

للحصول على إسم الكميوتر:

PHP كود :

function GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShowMessage(GetComputerNetName); 


للحصول على إسم المستعمل :

PHP كود :

Function GetUserFromWindows: string;
Var
   UserName : string;
   UserNameLen : Dword;
Begin
   UserNameLen := 255;
   SetLength(userName, UserNameLen) ;
   If GetUserName(PChar(UserName), UserNameLen) Then
     Result := Copy(UserName,1,UserNameLen - 1)
   Else
     Result := 'Unknown';
End;
end; 


للحصول على اسم الكمبيوتر عبر ip:
http://www.delphi4arab.net/forum/showthr...p?tid=6747