Перезагрузка

[LAFam]

Как сделать так чтоб сообщение с обратным отсчетом времени находящееся поверх остальных окон как при shutdown?

[Shuraken]

FormStyle := fsStayOnTop;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(StrToTime('23:59') - Time);
end;

[Terran]

Вот код перезагрузки. Он прост и надёжен , чётко работает.

var
hToken: THandle;
tkp: TTokenPrivileges;
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_REBOOT, 0);
end;
end;

Есле захочеш выключить компьютер то измени значение
ExitWindowsEX(EWX_REBOOT, 0); на ExitWindowsEX(EWX_POWEROFF, 0);
Что бы поставить компьютер в ждущий режи используй команду
SetSystemPowerState(True, True);
Вот и всё!
С уважением Terran!!!

[zAlexandrz]

Сообщение от LAFam

Как сделать так чтоб сообщение с обратным отсчетом времени находящееся поверх остальных окон как при shutdown?

procedure TForm1.FormCreate(Sender: TObject);
begin

             Timer1.Enabled:=true;
             time1:=0;
             time3:=30 // предупредитьза 30с;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(time1);
  label2.Caption:='Система перегрузится через '+inttostr(time3-time1)+' секунд';
  if time3-time1<1 then
    begin
      Timer1.Enabled:=false;
// здесь непосредственно
//сам код
//для перегрузки
  end;
end;

чтоб поверх всех окон - настройка формы.