ZV bei Benutzung von Windows Media Player 9

[franz]

Code für OnCloseQuery:

Delphi-Quellcode:

procedure TfrmMainform.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if MediaPlayerUsed then
     FJFMsgDlgA('Windows Media Player hat ein Problem festgestellt!' + #13#13 +
                'Überspielen Sie die neueste Aktualisierung aus dem ' +
                'Internet, um dieses Problem zu beheben!',
                'Windows Media Player 9-Reihe',
                mbfInfOK);
  CanClose := true;
end;

Code für OnFormClose:

Delphi-Quellcode:

procedure TfrmMainform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  try
    // DropTarget freigeben
    DropFileTarget1.Unregister;

    // Hilfe schließen, wenn Sie noch angezeigt wird
    Application.HelpCommand(HELP_QUIT,0);

    // Temporäre Dateien löschen
    if FileExists(LMDSysInfo1.WinPath + '\Temp\DiskManSQL.txt') then
       begin
         FileSetAttr(LMDSysInfo1.WinPath + '\Temp\DiskManSQL.txt',0000);
         DeleteFile(LMDSysInfo1.WinPath + '\Temp\DiskManSQL.txt');
       end;

    // Veränderungen am Hauptfenster speichern
    SaveDisplay;
  except
    // nichts tun
  end;
end;