Zitat von
Avax2k:
da kommt eben die meldung, dass die datei durch einen anderen prozess genutzt wird und nicht geöffnet werden kann
wenn ich
fs.create()
weglasse geht es das ist aber klar
Bau' mal Deinen Aufruf so um:
Delphi-Quellcode:
fs := TFilestream.create(...);
//bei FormCreate
//in Deiner Routine wo Du die externe Datei aufrufst:
freeandnil(fs);
application.processmessages;
//das können auch viel mehr als ein paar hundert Prozessorschritte sein...
if ShellExecute(Application.Handle,'
Open',PChar(filename),
nil,
nil,SW_ShowNormal)> 0
then
begin
//Shellexecute wartet auf die Beendigung des Aufrufs und gibt das Handle der aufgerufenen Datei zurück...
//...habe ich wenig Erfahrung mit, schau Dir mal Beispiele an
end;
application.processmessages;
fs := TFilestream.create(...);