function WindowsDirectory : string;
var
 aryWindowsDir: Array[0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(aryWindowsDir,SizeOf(aryWindowsDir));
  result := StrPas(aryWindowsDir);
end;





function SystemDirectory : string;
var
 arySystemDir: Array[0..MAX_PATH] of Char;
begin
  GetSystemDirectory(arySystemDir,SizeOf(arySystemDir));
  result := StrPas(arySystemDir);
end;





function GetTempDirectory : string;
var
 aryTempDir: Array[0..MAX_PATH] of Char;
begin
  GetTempPath(SizeOf(aryTempDir),aryTempDir);
  result := StrPas(aryTempDir);
end;