[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]


From : Keith Anderson

> I have searched all my Tip collections etc. and not found an answer for a
> very simple question: how can I find out the Windows directory from Delphi1/2?

Here's code for Delphi 2.x:  (don't know about delphi 1.x)

  Function WindowsPath:String;
  {returns the directory of C:\WINDOWS\ on the current machine}
  var d:integer;
    begin
      setlength(result,500);
      d:=getwindowsdirectory(pchar(result),500);
      setlength(result,d);
      result:=fixpath(result,result);
    end;


*************************************
Keith Anderson
mailto:keith@purescience.com
http://www.purescience.com
*************************************

< from : Igor Ilutkin, More about Windows directory

function TMainFM.GetWinDir: string;
var
  wd: PChar;
begin
  wd := StrAlloc(256);
  GetWindowsDirectory(wd, 255);
  GetWinDir := StrPas(wd) + '\';
end;

function TMainFM.GetRunDir: string;
begin
  GetRunDir := ExtractFilePath(ParamStr(0));
end;


[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]