buscar archivo

[Casimiro Noteví]

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.