Para obtener el directorio de tu aplicación:
Código Delphi
[-]
Str:= ExtractFilePath(ParamStr(0));
Para obtener el directorio de windows:
Código Delphi
[-]
var
Str: string;
Buffer: array[0..MAX_PATH] of Char;
begin
FillChar(Buffer,Sizeof(Buffer),#0);
GetWindowsDirectory(@Buffer,Sizeof(Buffer)-1);
Str:= String(PChar(@Buffer));
end;
Para obtener el directorio system:
Código Delphi
[-]
var
Str: string;
Buffer: array[0..MAX_PATH] of Char;
begin
FillChar(Buffer,Sizeof(Buffer),#0);
GetSystemDirectory(@Buffer,Sizeof(Buffer)-1);
Str:= String(PChar(@Buffer));
end;
En los tres ejemplos el directorio queda almacenado en la variable Str