Поместить и удалить программу из автозапуска реестра
procedure DoAppToRunOnce(RunName, AppName: string); var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True); WriteString(RunName, AppName); CloseKey; Free; end; end;
function IsAppInRunOnce(RunName: string): Boolean; var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', False); Result := ValueExists(RunName); CloseKey; Free; end; end;
procedure DelAppFromRunOnce(RunName: string); var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True); if ValueExists(RunName) then DeleteValue(RunName); CloseKey; Free; end; end;
procedure DoAppToRun(RunName, AppName: string); var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); WriteString(RunName, AppName); CloseKey; Free; end; end;
function IsAppInRun(RunName: string): Boolean; var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False); Result := ValueExists(RunName); CloseKey; Free; end; end;
procedure DelAppFromRun(RunName: string); var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); if ValueExists(RunName) then DeleteValue(RunName); CloseKey; Free; end; end;