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

Повторный запуск программы   Найти похожие ветки 

← →
zorik ©   (2004-08-30 14:10) [0]

Как сделать так чтоб программа выполнила перезагрузку компютера и после перезагрузки вновь запустилась?
Спасибо.

---

← →
JK   (2004-08-30 14:12) [1]

Например, можно сделать запись в реестре о загрузке программы.

---

← →
default ©   (2004-08-30 14:13) [2]

перед перезагрузкой записать себя в автозагрузку(потом удалить оттуда если надо)

---

← →
zorik ©   (2004-08-30 14:17) [3]

2 JK> а можно конкретно узнать где именно в реестре это прописывается?

---

← →
JK   (2004-08-30 14:21) [4]

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

---

← →
VMcL ©   (2004-08-30 14:49) [5]

AFAIR, можно не только в "...\Run", а и в "...\RunOnce", тогда ОС сама удалит запись из реестра после запуска.

---

← →
grom   (2004-08-30 16:21) [6]

перезагрузку компютера XP
-------------------------
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 hToken: THandle;
 tkp: _TOKEN_PRIVILEGES;
 returnLength: Cardinal;
begin

   if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken)then
  begin
    LookupPrivilegeValue(nil,"SeShutdownPrivilege",tkp.Privileges[0].Luid);
    tkp.PrivilegeCount:=1;
    tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    if AdjustTokenPrivileges(hToken,false,tkp,0,nil,returnLength)then ExitWindowsEx(EWX_SHUTDOWN or EWX_REBOOT,0);
  end;
end;
============================================================
автозагрузкa
-------------
procedure TForm2.CheckBox1Click(Sender: TObject);
var reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Run",false);
if CheckBox1.Checked then reg.WriteString(Application.Title, ParamStr(0))
                     else reg.DeleteValue(Application.Title);
reg.Free;
end;

---

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

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



Память: 0.46 MB
Время: 0.02 c