Average rating:
Questo articolo mostra come modificare il Registro di sistema di Windows per consentire il programma sarà avviato automaticamente all'avvio. Avere cura di modificare il Registro di sistema a causa di un errato alterazione possono pregiudicare il tuo sistema operativo.
Step 1:

Attuazione: creeremo due procedure, WriteRegistry e DeleteRegistry, per aggiungere e rimuovere il nostro registro rispettivamente.

Per lavorare con il Registro di sistema che utilizza la classe TRegistry, che si aggiungeranno alla clausola usi. Codice: usa
... Windows, StdCtrls, cancelleria;

Step 2:

Ora creeremo la WriteRegistry con i parametri. Procedura:

WriteRegistry (Root: HKEY; chiave, valore, Indirizzo: string); Dove: - Raiz (HKEY): è il Registro di sistema in cui è stato aggiunto. È possibile utilizzare HKEY_LOCAL_MACHINE (a pregiudicare tutti gli utenti) o HKEY_CURRENT_USER (solo per influenzare l'utente connesso). - Key (Stringa): si usa "Software \ Microsoft \ Windows \ CurrentVersion \ Run" - Value (String): è il valore, che verrà aggiunta. - Indirizzo (Stringa): è l'eseguibile di indirizzo che sarà inizializzato.

Codice:

procedura TForm1.WriteRegistry (Root: HKEY; chiave, valore, Indirizzo: string);
var
Registro: TRegistry;
iniziare
Registro: = TRegistry.Create (KEY_WRITE); / / Chiama il costruttore oggetto Registry.RootKey: root = / / Definisci la radice chiave
Registry.OpenKey (Key, True); / / Crea la chiave
Registry.WriteString (Rapporto, ' "' + + Indirizzo'"'); / / Registra l'indirizzo Registry.CloseKey; / / Chiudi la chiave e objectRegistry.Free;
fine;

Step 3:

Ora creeremo DeleteRegistry la procedura.

DeleteRegistry (Root: HKEY; Key, Value: string); Codice: procedura TForm1.DeleteRegistry (Root: HKEY; Key, Value: string);
var
Registro: TRegistry;
iniziare
Registro: = TRegistry.Create (KEY_WRITE); / / Chiama il costruttore Registry.RootKey oggetto: = Root;
Registry.OpenKey (Key, True); / / Crea la chiave Registry.DeleteValue (Valore); / / Elimina il valore Registry.CloseKey / / Chiudi la chiave e oggetto
Registry.Free;
fine;

Step 4:

Si creerà due pulsanti, uno per scrivere e di altri per eliminare il Registro di sistema.

Codice: procedura TForm1.BitBtn1Click (Sender: TObject);
iniziare
provare
WriteRegistry (HKEY_LOCAL_MACHINE, 'Software \ Microsoft \ Windows \ CurrentVersion \ Run',
'BeginProgram', ExtractFilePath (Application.ExeName) + 'TesteRegistro.exe');
MessageDlg ( 'Registro di sistema di registrazione con successo!', MtInformation, [mbOk], 0);
salvo
MessageDlg ( 'Errore di creare registro!', MtInformation, [mbOk], 0);
fine;
fine;

procedura TForm1.BitBtn2Click (Sender: TObject);
iniziare
provare
DeleteRegistry (HKEY_LOCAL_MACHINE, 'Software \ Microsoft \ Windows \ CurrentVersion \ Run',
'BeginProgram');
MessageDlg ( 'soppresso Registro con successo!', MtInformation, [mbOk], 0);
salvo
MessageDlg ( 'Errore di registro da eliminare!', MtInformation, [mbOk], 0);
fine;
fine;

Be the First to Comment on this Article