Einzelnen Beitrag anzeigen

HPB

Registriert seit: 2. Jun 2008
365 Beiträge
 
Delphi XE7 Professional
 
#1

Wie kann geprüft werden ob ShellExecute

  Alt 6. Apr 2016, 18:29
Guten Tag Delphianer,
ich schreibe eine Datei mit TFileStream auf die Platte.
Dies gelingt auch gut.
Danach öffne ich die Datei mit ShellExecute.
Das gelingt auch.
Nach dem ich Datei anzeigt und geschlossen habe, möchte ich sie wieder löschen.

Mit diesem Code wird nicht mal das Bild angezeigt:
Delphi-Quellcode:
   
pSchreibeStream := TFileStream.Create(pSchreibeDatei, fmCreate);
    dtmdMain.dokumenteDOKUMENT.SaveToStream(pSchreibeStream);
pSchreibeStream.Free;

   ShellExecute(Handle, 'open', PChar(pSchreibeDatei),
      nil, nil, SW_SHOWNORMAL);
  DeleteFile(pSchreibeDatei);
Wenn ich die Zeile: DeleteFile(pSchreibeDatei); Enable dann wird die Datei angezeigt.
Aber wann kann ich sie wieder von der Platte löschen?


Mit Gruß HPB
  Mit Zitat antworten Zitat