Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как найти каталог Windows?

01.01.2007
function GetWindowsFolder:string;

 
var p:PChar;
begin
 
GetMem(p, MAX_PATH);
  result
:='';
 
if GetWindowsDirectory(p, MAX_PATH)>0 then
    result
:=string(p);
 
FreeMem(p);
end;

Автор: Vit


public
 
{ Public declarations }
 
Windir: string;
 
WindirP: PChar;
 
Res: Cardinal;
 
procedure TForm1
.Button1Click(Sender: TObject);
begin
 
WinDirP := StrAlloc(MAX_PATH);
 
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
 
if Res > 0 then
   
WinDir := StrPas(WinDirP);
  Label1
.Caption := WinDir;
end;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0