delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاتة

أود أن احصل على الطريقة التي يمكنني فيها التعرف على إسم الجهاز أو عنوان ip الخاص بالجهاز من خلال برنامج دلفي الإصدار 7

بارك الله فيكم وجزاكم كل الخير

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

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

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

السلام عليكم ورحمة الله وبركاته

بارك الله فيك أخوي لؤي وجعله في ميزان حسناتك وجزاك الله كل الخير

عيبلو

لؤي

عيبلو