Je kan beter gebruik maken van Run of Runonce.
Hier is de code die ik normaal gebruik.
Code:
PROCEDURE TCfgFrm1.SetAutoStart(AppName, AppTitle: STRING; bRegister: Boolean);
CONST
RegKey = '\Software\Microsoft\Windows\CurrentVersion\Run';
// or: RegKey = '\Software\Microsoft\Windows\CurrentVersion\RunOnce';
VAR
Registry : TRegistry;
BEGIN
Registry := TRegistry.Create;
TRY
Registry.RootKey := HKEY_LOCAL_MACHINE;
IF Registry.OpenKey(RegKey, False) THEN
BEGIN
IF bRegister = False THEN
Registry.DeleteValue(AppTitle)
ELSE
Registry.WriteString(AppTitle, AppName);
END;
FINALLY
Registry.Free;
END;
END;
En om alles aan en uit te zetten kan je de volgende param gebruiken
Code:
SetAutoStart(ParamStr(0), 'EMailChecker [JKSoftware]', True);
SetAutoStart(ParamStr(0), 'EmailChecker [JKSoftware]', False);
Bookmarks