Ver Mensaje Individual
  #5  
Antiguo 19-11-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 19
rgstuamigo Va por buen camino
Arrow

Bueno tambien podrias comprobar la existencia del archivo haciendo esto:
Código Delphi [-]
if FileExists('C:\MyArchivo.ini') then
 begin
   ShowMessage('El archivo ya existe');
 end
Eso lo podrias poner en el evento OnTimer de un TTimer mas o menos asi:
Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if FileExists('C:\MyArchivo.ini') then
  begin
   ShowMessage('El archivo ya existe');
   //hago lo que tengo que hacer con el archivo
    ...
    ...
    DeleteFile('C:\MyArchivo.ini');//borro el archivo
    Timer1.Enabled:=False;//deshabilito el timer para que ya no siga ejecutandose
  end
end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7

Última edición por rgstuamigo fecha: 24-11-2009 a las 16:30:42. Razón: Estética
Responder Con Cita