"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

[API]

Hallo, hast du die Anmerkung beachtet:

Zitat:

Anmerkung: Die Anwendung muß im Vordergrund sein, damit das funktioniert

[alleinherrscher]

Jup, die Anwendung is sogar im Vollbild im Vordergrund

[API]

Zitat von alleinherrscher:

Jup, die Anwendung is sogar im Vollbild im Vordergrund

Könnte es sein, dass deiner Anwendung einige ms den Fokus gestohlen wird und somit
nicht mehr im Vordergrund ist?

[alleinherrscher]

Oh, jo, das könnte natürlich sein....

[API]

Ansonsten probier's mal mittels IQueryCancelAutoPlay

[alleinherrscher]

Wie kann ich denn dafür sorgen, dass mir der Fokus nicht entrissen wird, wenn ich per ShellExecute die Daemontools starte? Bring to front kurz nach dem shellexecute bringt gar nix

[phXql]

Vielleicht das Programm minimiert starten, oder vielleicht gleich ganz versteckt.

[API]

Zitat von API:

Ansonsten probier's mal mittels IQueryCancelAutoPlay

Habe mal damit gespielt...Damit funktioniert es auch, wenn deine Anwendung nicht im Vordergrund ist.
Siehe Test-App im Anhang.

(Gibt noch eine Fehlermeldung beim Beenden: InvalidPointer etwas)

[alleinherrscher]

Cool, herzlichen Dank! Ich werde es direkt testen und mich gleich nochmal melden!!!