Delphi - Autostart vašeg programa pri podizanju Windows-a

Prikazaćemo vam kako da izvedete da se vaša Delphi aplikacija autostartuje pri podizanju Windows-a, ali ne metodom da postavite prečicu u "StartUp" folder. Pošto na ovaj način korisnik programa može slučajno ili namerno da izbriše ovu prečicu, a samim tim se gubi mogućnost samostartovanja aplikacije. Umesto toga ovo ćemo izvesti preko podešavanja u "Registry" baze, tj. upisom određenog ključa i to na određenom mestu.

Sledeći kod jednostavno iskopirajte u vaš Delphi projekt. I ne zaboravite da dodate deklaraciju ove procedure u sekcije "private" ili "public", u zavisnosti od vaših potreba.

procedure SetAutoStart(CheckState: Integer);
const
     RunKey = '\Software\Microsoft\Windows\CurrentVersion\Run';
var
   Registry: TRegistry;
   NazivAplikacije: String;
begin
     // upisite naziv vase aplikacije
     NazivAplikacije :=
     // Kreiramo jednu instancu TRegistry objekta
     Registry := TRegistry.Create;
     try
        Registry.RootKey := HKEY_LOCAL_MACHINE;
        if Registry.OpenKey(RunKey, FALSE) then
        begin
             case CheckState of
               // Onemogucavanje autostart-a
               0: Registry.DeleteValue(NazivAplikacije);
               // Omogucavanje autostart-a
               1: Registry.WriteString(NazivAplikacije, ParamStr(0));
             end;
        end;
     finally
        // Oslobadjanje Registry objekta
        Registry.Free;
     end;
end;