Cita:
Empezado por elmago00
amigos alguna idea de como hacer todo esto? el tiempo se me agota jeje
|
Hola elmago00.
Sigo sin entender desde donde queres restaurar el archivo original, pero ya te sugerí una idea. Te ejemplifico el uso:
Código Delphi
[-]
...
procedure BeforeDoingCrap(const aFileName: TFileName);
begin
CopyFile(PChar(aFileName),
PChar(ExtractFilePath(aFileName)+ChangeFileExt(ExtractFileName(aFileName),'')+'.BAK'),
True);
end;
procedure FixCrap(const aFileName: TFileName);
begin
if MessageBox(0,'¿ Desea restaurar el archivo original ?','',MB_ICONQUESTION+MB_YESNO)=IDYES then
begin
Windows.DeleteFile(PChar(aFileName));
if not MoveFile(PChar(ExtractFilePath(aFileName)+ChangeFileExt(ExtractFileName(aFileName),'')+'.BAK'),
PChar(aFileName)) then
MessageBox(0,PChar('Error: ' + SysErrorMessage(GetLastError)), '', MB_ICONERROR);
end;
end;
procedure TForm1.btnLoadFileClick(Sender: TObject);
begin
BeforeDoingCrap('C:\Carpeta\notepad.exe');
procedure DumpFile('C:\Carpeta\notepad.exe',16);
end;
procedure TForm1.btnFixClick(Sender: TObject);
begin
FixCrap('C:\Carpeta\notepad.exe'); end;
Saludos