Delphi は、起動時の自動起動機能の特定の実装を設定します。

一部のプログラムは起動時に起動するように設定する必要があるため、将来の使用を容易にする関数を参考までに書きました。

次のようにコードをコピーします。

プロシージャ TMainForm.SetAutoRun(ok: boolean);

変数

Reg:TRegistry; //最初に TRegistry 型の変数 Reg を定義します

始める

Reg:=TRegistry.Create;

try //新しいキーを作成します

Reg.RootKey:=HKEY_LOCAL_MACHINE //ルートキーを HKEY_LOCAL_MACHINE に設定します。

Reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',true);//キーを開きます

OKなら始めてください

Reg.WriteString('SMS Service',ExpandFileName(ParamStr(0))); //データ名とデータ値を Reg キーに書き込みます

ShowMessage('登録成功!');

終わり

そうでなければ始まる

reg.DeleteValue('SMS サービス');

ShowMessage('削除に成功しました!')

終わり;

Reg.CloseKey //閉じるキー;

ついに

登録無料。

終わり;

終わり;

例：

SetAutoRun(true); //登録起動

SetAutoRun(false); //スタートアップを削除します。