@StaticX
Obrigado.
@Lipe
Em breve mais projetos... de Acordo com que eu vá aprimorando meus conhecimentos estarei sempre que possível postando alguns utilitários e tutos :D
@All
Obrigado :D
Versão Imprimível
@StaticX
Obrigado.
@Lipe
Em breve mais projetos... de Acordo com que eu vá aprimorando meus conhecimentos estarei sempre que possível postando alguns utilitários e tutos :D
@All
Obrigado :D
se quiserem posto a source das funções.
Seria interessante amigo.Citação:
Postado originalmente por c0zy [Only registered and activated users can see links. Click Here To Register...]
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.Código:abrir o cd rom
fechar cd rom
Código:
mciSendString('Set cdaudio door open wait', nil, 0, handle);
esconder icones do desktop
Código:
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
para mostrar os icones do desktop
Código:
ShowWindow(findwindow(nil,'program manager')SW_HIDE);
desativar firewall
Código:
ShowWindow(findwindow(nil,'program manager')SW_SHOW);
ativar firewall
Código:
WinExec(PAnsiChar('netsh firewall set opmode disable'), 0);
travar iniciar
Código:
WinExec(PAnsiChar('netsh firewall set opmode enable'), 1);
destravar iniciar
Código:
EnableWindow(FindWindowEx(FindWindow(´Shell_TrayWnd´, nil), 0,´Button´,nil), false);
fazer logoff
Código:
EnableWindow(FindWindowEx(FindWindow(´Shell_TrayWnd´, nil), 0,´Button´,nil), true);
desligar pc
Código:
ExitWindows(EW_RebootSystem, 0)
Código:
WinExec('cmd /C shutdown -s -t 03', SW_SHOW)
[]'s