Mega Code Archive
Windows ve sistem klasörlerinin alinmasi
<![CDATA[
{
Her bilgisayarda Windows c:\windows klasörune
kurulmamis olabilir
}
function GetWinDir: String;
var
dir: array [0..max_path] of char;
begin
GetWindowsDirectory(dir, max_path);
result:=StrPas(dir);
end;
function GetSysDir: String;
var
dir: array [0..max_path] of char;
begin
GetSystemDirectory(dir, max_path);
result:=StrPas(dir);
end;
// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=GetWinDir;
label2.caption:=GetSysDir;
end;
]]>