[DELPHI] LOCAL DA INSTALAÇÃO DO WINDOWS

//uses windows

procedure TForm1.Button1Click(Sender: TObject); 

var

  s: string;

begin

  SetLength(s, MAX_PATH);

  if GetWindowsDirectory(PChar(s), MAX_PATH) > 0 then

    ShowMessage(s)

  else

    ShowMessage('');

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】