Array
(
)

Localizar diretório de sistema do Windows

Tadeu Pereira
   - 31 ago 2004

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

Exemplo:

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


Tatuweb
   - 31 ago 2004

:arrow: Recuperar diretório do Windows:

#Código

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:

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



Steve Narancic
   - 20 mai 2005

e a arquivos de programas, tem como?