Автозапуск программ

[Spriggan]

Complete
Спасибо madcat

[Spriggan]

вввввввввввввввверх

[Mad_Cat]

если поместить программу в автозапуск то вот:

procedure AutorunIn;
 var
  h: TRegistry;
begin
  h := TRegistry.Create;
  with h do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('SysFile', GetPath);
    CloseKey;
    Free;
  end;
end;
(*Путь к exe-файлу*)
function GetPath:string;
begin
result:=Application.ExeName;
end;

если что то другое поясните)

[Spriggan]

На форме находится 3 чеккнопки
На 1 надо записать программу в автозапуск
На 2 Не использовать автозапуск программы
На 3 запускать 1 раз при старте системы

И кнопка на которой применяются эти свойства

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  reg: TRegistry  ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);


begin
case RadioGroup1.ItemIndex of
//íå èñïîëüçîâàòü àâòîçàïóñê
0:begin
reg := TRegistry.Create();
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False)
then
begin
reg.DeleteValue( Application.Title );
reg.CloseKey();
end;
end;
//Çàïóñòèòü1 ðàç ïðè ñòàðòå ñèñòåìû
1:begin
reg := TRegistry.Create();
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True)
then
begin
reg.WriteString( Application.Title, Application.ExeName);
reg.CloseKey();
end;
end;
2:
//Ïîñòîÿííûé àâòîçàïóñê
begin
reg := TRegistry.Create();
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then
begin
reg.WriteString( Application.Title, Application.ExeName);
reg.CloseKey();
end;
end;
end;
 end;
end.

Close