كيف يمكن مغرفة اسم الجهاز باستخدام دلفي 7

var ComputerName: array[1..20] of Char;
	 UserName: array[1..512] of Char;
	arrSize: DWord;
begin
  arrSize := SizeOf(ComputerName);
  GetComputerName(@ComputerName, arrSize);

  arrSize := SizeOf(UserName);
  GetUserName(@UserName, arrSize);

  ShowMessage('Computer name is: ' + ComputerName + #13#10 +
						'User name is: ' + UserName)
end;

function ComputerName: string;
var
  lpBuffer: array[0..MAX_COMPUTERNAME_LENGTH] of char;
  nSize: dword;
begin
  nSize:= Length(lpBuffer);
  if GetComputerName(lpBuffer, nSize) then
	result:= lpBuffer
  else
	result:= '';
end;

- مشكور اخوي ( mohfa) .. ولكن اسم المستخدم لم تظهر في الرسالة.

- وايضا مشكور اخوي (زكيري عبد العالي) .. ولكن كيف يمكن معرفة اسم المستخدم الحالي .

.

.

...

ومشكوورين في النهاية..

Try the Windows API calls GetUserName and GetComputerName as shown below :

var
  u: array[0..127] of Char;
  c: array[0..127] of Char;
  user: string;
  computer: string;
  sz: dword;
begin
  sz := SizeOf(u);
  GetUserName(u, sz);

  sz := SizeOf(c);
  GetComputerName(c, sz);

  user := u;
  computer := c;
  ShowMessage('Computer name is: ' + computer + #13#10 +
						'User name is: ' + user)
end;

اسم المستخدم احصل عليه من الرجستري Resgistry بقراءة المفتاح

Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User

- مشكور اخوي ( mohfa) ..

- يشتغل الكود بشكل ممتاز.

...........