Ver Mensaje Individual
  #3  
Antiguo 22-05-2013
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
No puede probar en Win7 64bits pero he probado en Win7 32bits y la siguiente función funciona Ok.

Código Delphi [-]
function FileExists(const FileName: string): bool;
var
  Handle: THandle;
  FindData: TWin32FindData;
begin
  Handle := FindFirstFile(PChar(FileName), FindData);
  Result := (Handle <> INVALID_HANDLE_VALUE);
  if Result then Windows.FindClose(Handle);
end;

Saludos.
Responder Con Cita