Einzelnen Beitrag anzeigen

Benutzerbild von Sunlight7
Sunlight7

Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
 
Delphi 5 Standard
 

CD-Autostart (Autorun) dynamisch unterdrücken

  Alt 9. Jan 2007, 06:52
Moin, hier ein Beispiel, wie man den CD-Autostart dynamisch unterdrücken kann.

Delphi-Quellcode:
...
  WM_AutoRun:DWord;
...

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;

procedure TForm1.FormCreate(Sender: TObject);
begin
   WM_AutoRun:=RegisterWindowMessage('QueryCancelAutoPlay');
end;
Anmerkung: Die Anwendung muß im Vordergrund sein, damit das funktioniert

Grüßle!

Edit: Und natürlich gleich n Feler gepostet (ausgebessert)

[edit=fkerber]Suchbegriff " Autostart " ergänzt. Mfg, fkerber[/edit]
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat