"Aktion ausführen" dynamisch unterdrücken?

[alleinherrscher]

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