Zitat von
Andidreas:
wie versuchst du die datei zu löschen???
bzw. hast mal bisl code???
Hier ist er:
Delphi-Quellcode:
procedure TfmMain.FormDestroy(Sender: TObject);
begin
SetToNil();
CoUninitialize();
if (FileExists(TEMP_VIDEO_LARGE) AND FileExists(TEMP_VIDEO_SMALL)) then begin
DeleteFile(TEMP_VIDEO_LARGE);
DeleteFile(TEMP_VIDEO_SMALL);
end;
end;
Ist quasi der letzte Code der ausgeführt wird, um Temp-Dateien, nachdem sie umbenannt worden sind (passiert im FormQueryClose mit Ja/Nein-Messagebox), sofern User dies wünscht, gelöscht werden.
Wenn zuvor die Dateien umbenannt werden sollen, gibt es ja dann keine Temp-Dateien mehr und somit überspringt er die IF-Anweisung. Andernfalls soll er die Temp-Dateien löschen...
LG
Thomas