Einzelnen Beitrag anzeigen

Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#1

"Aktion ausführen" dynamisch unterdrücken?

  Alt 20. Jan 2008, 18:36
Hi@all!

Ich schreibe grade an einem kleinen Programm, nur so ein FrondEnd für meine Videosammlung. Ich wähle n Film aus, und das Programm mountet mir das entsprechende Image über Daemon tools. Dann soll das video mit powerdvd wiedergegeben werden und zwar alles möglichst so, dass man nichts vom mounten und starten von power dvd mitbekommt.

Das mounten klappt im grunde super, allerdings wird immer das Fenster "Aktion ausführen" angezeigt. Das kann ich natürlich per Windows deaktivieren, schöner wäre aber, wenn ich es von delphi aus unterdrücken könnte.

Dieser Code aus dem Forum funktioniert leider nicht:

Delphi-Quellcode:
procedure TForm1.WndProc(var Message:TMessage);
begin
   If Message.Msg=WM_AutoRun then begin
      If Erlauben1.Checked then
         Message.Result:=0 else

            Message.Result:=1;

      Exit;
   end;

   inherited WndProc(Message);
end;
Grüße und besten Dank, euer alleinherrscher
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat