Saludos amigos, miren lo que nesecito hacer es lo siguiente:
Tengo un Edit donde coloco el nombre del archivo que voy a generar como backup, y su extension es .zip, y junto a el 3 botones uno que es comprimir otro que es descomprimir y el ultimo que es eliminar...bueno este es el codigo que tengo en el boton de comprimir:
btn_Comprimir:
Código Delphi
[-]
procedure TfrmBackup.ComprimirClick(Sender: TObject);
begin
FileRun1.Directory:=ExtractFilePath(Application.ExeName);
FileRun1.FileName:='zip.exe';
FileRun1.Parameters:=ExtractFilePath(
Application.ExeName)+'Backupbd\'+Edit1.Text+'.zip '+
ExtractFilePath(Application.ExeName)+'bd\*.*';
FileRun1.Execute;
end;
este otro es lo que tengo en el boton descomprimir:
btn_Descomprimir:
Código Delphi
[-]
procedure TfrmBackup.DescomprimirClick(Sender: TObject);
begin
opdAbrir.InitialDir := ExtractFilePath(Application.ExeName)+'Backupbd';
if (opdAbrir.Execute)then
begin
FileRun1.Directory := ExtractFilePath(Application.ExeName);
FileRun1.FileName := 'unzip.exe';
FileRun1.Parameters := opdAbrir.FileName+' -d D:\';
FileRun1.Execute;
end;
end;
y pues como se pueden dar cuenta, lo que hace este codigo, es generar un backup de mi base de datos llamada bd en una carpeta que se llama backupbd, aqui se guarda el archivo .zip que genere, ahora lo que nesecito es que cuando le de en el boton eliminar se extraiga el nombre del archivo seleccionado y pase a un Edit, algo asi, ejemplo:
Backupbd ---> Copiaseguridad.zip
nesecito que en el edit me quede asi:
[Copiaseguridad]
algo asi es lo que yo trate de hacer, pero no tengo ni idea de como extraer el nombre:
Código Delphi
[-]
procedure TfrmBackup.Button4Click(Sender: TObject);
begin
opdAbrir2.InitialDir := ExtractFilePath(Application.ExeName)+'Backupfotos';
if (opdAbrir2.Execute)then
begin
Edit2.Text:= ExtractFilePath(Application.ExeName);
if FileExists('D:\Gyros\Backupfotos\'+Edit2.Text+'.zip ')=true then
begin
DeleteFile('D:\Gyros\Backupfotos\'+Edit2.Text+'.zip ');
Edit2.Clear;
end;
end;
end;
Gracias por su tiempo prestado, espero que alguien me pueda ayudar....