Localizar diretório de sistema do Windows

Delphi

31/08/2004

Como posso localizar o diretório onde o sistema operacional foi instalado

Exemplo:

C:\WINDOWS\SYSTEM
C:\WINNT\SYSTEM32


Tadeu Pereira

Tadeu Pereira

Curtidas 0

Respostas

Tatuweb

Tatuweb

31/08/2004

:arrow: Recuperar diretório do Windows:

function GetWinDir: string; 
var
  Dir: array [0..MAX_PATH] of Char;
begin
  GetWindowsDirectory (Dir, MAX_PATH);
  Result := StrPas (Dir);
end;

:arrow: Recuperar diretório system:

function SystemDir: string; 
var 
  dir: array [0..MAX_PATH] of Char; 
begin 
  GetSystemDirectory (Dir, MAX_PATH); 
  Result := StrPas (Dir); 
end;



GOSTEI 0
Steve_narancic

Steve_narancic

31/08/2004

e a arquivos de programas, tem como?


GOSTEI 0
POSTAR