Как сделать, чтобы моя программа запускалась вместе с Windows

← →
Dmitry (2004-07-29 16:37) [0]

Как сделать, чтобы моя программа запускалась вместе с Windows98, Windows2000, WindowsXP. Наверно где-то в реесте прописать надо...

← →
MacroDenS © (2004-07-29 16:41) [1]

пропиши ее в реестре:
HKEY_LOCAL_MACHINE\SoftWare\MicroSoft\Windows\CurrentVersion\Run

← →
Vasya.ru (2004-07-29 17:38) [2]

procedure WriteAutorun;
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create; //создание
Reg.RootKey:=HKEY_LOCAL_MACHINE; //корневой ключ
Reg.OpenKey("\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",FALSE); //открытие
Reg.WriteString("MyApp",ParamSTR(0)); //запись
Reg.CloseKey; //закрытие
Reg.Free; //освобождение
end;

Не забудь прописать Registry в Uses

← →
grom (2004-07-29 19:11) [3]

procedure TForm1.CheckBox1Click(Sender: TObject);
var registr:TRegistry;
begin
registr := TRegistry.Create;
registr.RootKey := HKEY_LOCAL_MACHINE;
registr.OpenKey("Software\Microsoft\Windows\CurrentVersion\Run", false);
if CheckBox1.Checked
then registr.WriteString(Application.Title, ParamStr(0))
else registr.DeleteValue(Application.Title);
registr.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CheckBox1Click(Sender);
end;

Как сделать, чтобы моя программа запускалась вместе с Windows Найти похожие ветки