+- 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=584)
دایرکتوری سیستم عامل - Amin_Mansouri - 08-01-2011
یک تابع برای گرفتن دایرکتوری سیستم عامل:
کد:
procedure TForm1.Button5Click(Sender: TObject);
function GetSystemDirectory : String;
var
pcSystemDirectory : PChar;
dwSDSize : DWORD;
begin
dwSDSize := MAX_PATH + 1;
GetMem( pcSystemDirectory, dwSDSize );
try
if Windows.GetSystemDirectory( pcSystemDirectory, dwSDSize ) <> 0 then
Result := pcSystemDirectory;
finally
FreeMem( pcSystemDirectory );
end;
end;
begin
Label1.Caption:=GetSystemDirectory;
end;