[Amin_Mansouri]

این تابع برای گرفتن نام سیستم بکار می رود

کد:

function GetComputerName : String;
var




pcComputer : PChar;dwCSize : DWORD;
begin







if Windows.GetComputerName( pcComputer, dwCSize ) then

Result := pcComputer;finally



FreeMem( pcComputer );end;

end;




dwCSize := MAX_COMPUTERNAME_LENGTH + 1;GetMem( pcComputer, dwCSize );try

[/quote]