+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: نام سیستم (/showthread.php?tid=589)
نام سیستم - Amin_Mansouri - 08-01-2011
این تابع برای گرفتن نام سیستم بکار می رود
کد:
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