Denne artikkelen viser hvordan du kan endre Windows-registeret for å tillate programmet startes automatisk ved oppstart. Har omsorg for å endre registeret fordi en feil endring kan være til skade for operativt system.
Trinn 1
Gjennomføring: Vi skal skape to prosedyrer, WriteRegistry og DeleteRegistry, legge til og fjerne vår registret henholdsvis.
Å arbeide med registeret vil vi bruke klassen TRegistry, som vi vil legge i leddet bruker. Kode: bruker ... Windows, StdCtrls, register,
Trinn 2
Nå vil vi skape WriteRegistry med parametrene. Fremgangsmåte:
WriteRegistry (Root: HKEY; Key, Verdi, Adresse: string); Hvor: - Raiz (HKEY): er der registeret vil bli lagt til. Du kan bruke HKEY_LOCAL_MACHINE (for å påvirke alle brukere) eller HKEY_CURRENT_USER (for å påvirke bare den påloggede brukeren). - Key (String): vi vil bruke " Software \\ Microsoft \\ Windows \\ Currentversion \\ Run " - Value (String): Det er den verdien som vil bli lagt til. - Adresse (String): Det er den kjørbar adresse som vil bli initialisert.
Kode:
prosedyre TForm1.WriteRegistry (Root: HKEY; Key, Verdi, Adresse: string); Var Register: TRegistry; begynne Register: = TRegistry.Create (KEY_WRITE); //Ring objektet konstruktør Registry.RootKey: = Root; //Definer rotnøkkelen Registry.OpenKey (Key, sann); //Opprett Key Registry.WriteString (verdi, '"' + Property + '"'); //Record adress Registry.CloseKey; //Lukk nøkkelen og objectRegistry.Free; end;
Trinn 3
Nå vil vi skape DeleteRegistry prosedyren
DeleteRegistry (Root: HKEY; Key, Verdi: string.); Kode: prosedyre TForm1.DeleteRegistry (Root: HKEY; Key, Verdi: string); Var Register: TRegistry; begynne Register: = TRegistry.Create (KEY_WRITE); //Ring objektet konstruktør Registry.RootKey: = Root; Registry.OpenKey (Key, sann); //Opprett nøkkelen Registry.DeleteValue (Valor); //Slett verdien Registry.CloseKey; //Lukk nøkkelen og objekt Registry.Free; end;
Trinn 4
Vi vil skape to knapper, en for å skrive og andre for å slette register
Kode: prosedyre TForm1.BitBtn1Click (Sender: TObject.); begynner å prøve WriteRegistry (HKEY_LOCAL_MACHINE, Software \\ Microsoft \\ Windows \\ Currentversion \\ Run "," BeginProgram ', ExtractFilePath (Application.ExeName) +' TesteRegistro.exe '); MessageDlg ('Innspilt registret med suksess! ", MtInformation, [mbOk], 0); bortsett MessageDlg ('Feil å opprette registeret!', mtInformation, [mbOk], 0); ende; slutt;
prosedyre TForm1.BitBtn2Click (Sender: TObject); begynner å prøve DeleteRegistry (HKEY_LOCAL_MACHINE, Software \\ Microsoft \\ Windows \\ Currentversion \\ Run "," BeginProgram '); MessageDlg ('Slettet registret med suksess! ", MtInformation, [mbOk], 0); bortsett MessageDlg ('Feil å slette registeret!', mtInformation, [mbOk], 0); ende; end;
Klikk på den første knappen. Når du starter datamaskinen, vil programmet bli utført automatisk. Hvis du ikke vil at programmet starter automatisk, klikker du bare på den andre knappen.