+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية التعرف على إسم الجهاز من خلال الدلفي (/showthread.php?tid=4850)
كيفية التعرف على إسم الجهاز من خلال الدلفي - عيبلو - 07-01-2013
السلام عليكم ورحمة الله وبركاتة
أود أن احصل على الطريقة التي يمكنني فيها التعرف على إسم الجهاز أو عنوان ip الخاص بالجهاز من خلال برنامج دلفي الإصدار 7
بارك الله فيكم وجزاكم كل الخير
كيفية التعرف على إسم الجهاز من خلال الدلفي - لؤي - 07-01-2013
وعليكم السلام
للحصول على إسم الكميوتر:
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;
http://www.delphi4arab.net/forum/showthread.php?tid=6747
كيفية التعرف على إسم الجهاز من خلال الدلفي - عيبلو - 07-01-2013
السلام عليكم ورحمة الله وبركاته
بارك الله فيك أخوي لؤي وجعله في ميزان حسناتك وجزاك الله كل الخير