перезагрузка компа

[Pein95]

как можно перезагрузить комп с помощю делфи?

[MyLastHit]

лучше бы вместо того, чтобы ждать ответ здесь - набрал бы в гугле "Перезагрузить компьютер Delphi" и возможно сразу же нашел бы ответ:
http://www.delphisources.ru/pages/fa...reboot_pc.html
http://www.sql.ru/faq/faq_topic.aspx?fid=690
С привилегиями:

function MyExitWindows(RebootParam: Longword): Boolean;  
var  
  TTokenHd: THandle;  
  TTokenPvg: TTokenPrivileges;  
  cbtpPrevious: DWORD;  
  rTTokenPvg: TTokenPrivileges;  
  pcbtpPreviousRequired: DWORD;  
  tpResult: Boolean;  
const  
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';  
begin  
  if Win32Platform = VER_PLATFORM_WIN32_NT then  
  begin  
    tpResult := OpenProcessToken(GetCurrentProcess(),  
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,  
      TTokenHd);  
    if tpResult then  
    begin  
      tpResult := LookupPrivilegeValue(nil,  
                                       SE_SHUTDOWN_NAME,  
                                       TTokenPvg.Privileges[0].Luid);  
      TTokenPvg.PrivilegeCount := 1;  
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  
      cbtpPrevious := SizeOf(rTTokenPvg);  
      pcbtpPreviousRequired := 0;  
      if tpResult then  
        Windows.AdjustTokenPrivileges(TTokenHd,  
                                      False,  
                                      TTokenPvg,  
                                      cbtpPrevious, 
                                      rTTokenPvg, 
                                      pcbtpPreviousRequired); 
    end; 
  end; 
  Result := ExitWindowsEx(RebootParam, 0);
end; 

//Выключение
procedure TForm1.Button18Click(Sender: TObject);
begin
 MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;

//Перезагрузка
procedure TForm1.Button19Click(Sender: TObject);
begin
  MyExitWindows(EWX_REBOOT or EWX_FORCE); 
end;

или без

ExitWindowsEx(EWX_REBOOT or ewx_force,0);

или

mov  al,0F0h  
out  64h,al

[Пепел Феникса]

советую научится пользоватся поиском.
вам лень видимо...

функция ExitWindowsEx и вам еще нужно получать привилегию SE_SHUTDOWN_NAME

[misher]

procedure TForm1.sButton3Click(Sender: TObject);

var th, size: Cardinal;
    luid: Int64;
    tp: TOKEN_PRIVILEGES;
    ptp: PTokenPrivileges;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, th) then
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
begin
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
tp.Privileges[0].Luid:=luid;
ptp:=nil;
AdjustTokenPrivileges(th, false, tp, 0, ptp^, size);
ExitWindowsEx(EWX_REBOOT or ewx_force,0);
end;
if   ExitWindowsEx(EWX_FORCE+EWX_REBOOT, 0)
 then

else
ShowMessage('Приложение не может завершить работу');




end;

[Пепел Феникса]

mov al,0F0h
out 64h,al

и как давно на третьем кольце доступны порты?

[MyLastHit]

ASM не знаю. Ссылаюсь на http://www.delphisources.ru/pages/fa...reboot_pc.html