반응형
procedure TForm1.Button1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0 : ExitWindowsEx(EWX_FORCE, 0); //강제종료 1 : ExitWindowsEx(EWX_LOGOFF, 0); //LOG OFF 2 : ExitWindowsEx(EWX_POWEROFF,0); //Shut Down & Turn Off 3 : ExitWindowsEx(EWX_REBOOT, 0); //Shut Down & Reboot 4 : ExitWindowsEx(EWX_SHUTDOWN, 0); //ShutsDown end; end;
반응형
'Programming > Delphi' 카테고리의 다른 글
Access violation 난 곳 찾기 (0) | 2010.06.30 |
---|---|
웹브라우저 POST로 호출하기 (0) | 2010.06.30 |
INI 파일 사용하기 (0) | 2010.06.30 |
레지스트리에서 프린트 이름 얻기 (0) | 2010.06.30 |
드라이브 정보 얻기 (0) | 2010.06.30 |