buscar archivo

[JXJ]

Hola,

como le hago para poder buscar un archivo especifico Archivo.PRS
. en el directorio
de C:\WINDOWS\system

Por que recuerdo ese es el directorio por defecto que traen todas las
versiones de windows.

en el evento OnCreate. de la Forma pienso usar,.

Código Delphi [-]
  if (FileExists('Archivo.PRS  ')) then begin
 ShowMessage('Archivo encontrado');
else 
 ShowMessage('Archivo No  encontrado');

lo que no se es que si uso la direccion completa
C:\WINDOWS\system
o hay una forma de usar esa ruta. como un comodin.
pues hay discos duros principales. que no son C.

Gracias por su atención

[Casimiro Notevi]

GetWindowsSysDir te devuelve el directorio que necesitas.

[JXJ]

y como lo uso. ==??

[Casimiro Notevi]

pues según tu código sería algo así como:

Código Delphi [-]
 if (FileExists( GetWindowsSysDir+'Archivo.PRS' )) then begin 
   ShowMessage('Archivo encontrado')
 else
   ShowMessage('Archivo No  encontrado');

[Casimiro Notevi]

y en este caso el "begin" te sobra.

[JXJ]

La orientación me ha ayudado.

por que en la ayuda de delphi no encontre una referencia a como usar
la funcion que me dices. Casimiro Notevi

Usando la funcion, emplea el directorio

C:\WINDOWS\system32

-------

este codigo es el que uso, lo pongo de referencia, por si hay un despistado como yo
la funcion, y com esta escrita

Código Delphi [-]
Function  GetWindowsSysDir : String;
var
SysDir : PChar;
begin
GetMem(SysDir, MAX_PATH + 1);
GetSystemDirectory(SysDir, MAX_PATH + 1);
Result := StrPas(SysDir) + '\';
FreeMem(SysDir);
end;

y esto es para usarla, en el evento onclick de un bototn.
para poner la propiedad de un archvio a oculto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
FileSetAttr(GetWindowsSysDir+'Archivo.PRS', faArchive);
end;

Muchas Gracias por tu ayuda.