Código:
abrir o cd rom
Código:
mciSendString('Set cdaudio door open wait', nil, 0, handle);
fechar cd rom
Código:
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
esconder icones do desktop
Código:
ShowWindow(findwindow(nil,'program manager')SW_HIDE);
para mostrar os icones do desktop
Código:
ShowWindow(findwindow(nil,'program manager')SW_SHOW);
desativar firewall
Código:
WinExec(PAnsiChar('netsh firewall set opmode disable'), 0);
ativar firewall
Código:
WinExec(PAnsiChar('netsh firewall set opmode enable'), 1);
travar iniciar
Código:
EnableWindow(FindWindowEx(FindWindow(´Shell_TrayWnd´, nil), 0,´Button´,nil), false);
destravar iniciar
Código:
EnableWindow(FindWindowEx(FindWindow(´Shell_TrayWnd´, nil), 0,´Button´,nil), true);
fazer logoff
Código:
ExitWindows(EW_RebootSystem, 0)
desligar pc
Código:
WinExec('cmd /C shutdown -s -t 03', SW_SHOW)
faltou desligar[atx] e desligar forçado, está perdido no meu hd, quando eu achar eu posto, ou até, nosso amigo, usabr fazer o favor de postar essas duas funçoes.
[]'s