Here we go.
Unit mit Klasse im Anhang. Was noch fehlt ist das Erstellen einer Verknüpfung im AutoRun-Ordner des Startmenüs.
Anwendung:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
ar : TMpuAutorun;
begin
ar := TMpuAutorun.Create;
try
try
ar.AutoRun(True);
except
on E:
Exception do
ShowMessage(E.
Message);
end;
finally
ar.Free;
end;
end;
Setzt man die Eigenschaften
ExeFilename,
RootKey und
RunOnce nicht, werden die Standardeinstellungen genommen. Und die wäre für
ExeFilename: ParamStr(0),
RootKey: HKEY_CURRENT_USER und
RunOnce: False.
AutoRun(True) setzt den Autostarteintrag und
AutoRun(False) löscht ihn wieder. Kann er nicht gestzt oder gelsöcht werden, wird eine
Exception ausgelöst, die man abfangen kann.