جرب تغيير قيمة المتحول EWX_SHUTDOWN
:bye1:
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_SHUTDOWN,0);
end;
