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 = ‘SoftwareMicrosoftWindowsCurrentVersionRun’;

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;

Pratite Krstaricu na www.krstarica.com