directorio de windows y de la aplicación
 

Hola, mi duda es como hacer para indicarle a una funcion cual es el directorio de windows y el de la aplicacion. El motivo es que verifico con fileexists(archivo.ocx) si esta ocx esta en el system o system32 y lo de la aplicacion es porque tengo un directorio con los reportes en el mismo donde corre la aplicacion y tambien quisiera verificar de la misma forma que este presente el archivo.rep.
Gracias
Fede

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

Mchisimas gracias seoane, funciono de maravillas.
Fede