Habs nun hinbekommen das die Meldung nicht mehr kommt und das die Datei gelöscht wird
Delphi-Quellcode:
//download
procedure TForm3.Button2Click(Sender: TObject);
var
ini : Tinifile;
begin
button3.Enabled := False;
button2.Enabled := false;
createdir(edit1.Text);
speicherpfad := edit1.Text;
ini := Tinifile.Create(speicherpfad+'Einstellungen.ini');
responseStream := TFileStream.Create(speicherpfad+'Phantom_Zip_v2.exe', fmCreate);
try
IdHTTP1.Get('http://phantomzip.ph.funpic.de/Phantom_Zip_v2.exe', responseStream);
finally
responseStream.free;
Das beim Abbrechen
Delphi-Quellcode:
procedure TForm3.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
sgauge1.Progress := AworkCount;
if abbrechen then begin
sgauge1.Progress := 100;
responseStream.Free;
deletefile(speicherpfad+'Phantom_Zip_v2.exe');
form1.Close;
end;
Es kommt nun eine Fehlermeldung von Delphi wenn ich das Programm ausführe aber die geht sofort wieder weg ?! naja egal Hauptsache es geht nun