Скачать: CL | DM;

Как сделать, чтобы моя программа запускалась вместе с 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c