Códigos de programação

Ola esse Vamos ver diversos codigos de programação para o delphi!

DESLIGAR OU REINICIAR E OUTRAS OPÇÃO DO CMD , EXECUTAR EM DELPHI.

Não é nenhum bicho de 7 cabeças desligar o Windows via programação. Você deve apenas observar um pequeno item a ser checado, para Windows NT (oposto ao 9x/Me), que hoje vem a ser o 2000, XP, 2003 e todos os mais recentes.

Utilize o seguinte procedimemnto:

procedure DesligaWindows(acao: Cardinal);
var
TokenPriv: TTokenPrivileges;
H: DWORD;
HToken: THandle;
begin

{* para WIN 2000, XP e NT *}
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, HToken);
LookUpPrivilegeValue(nil, 'SeShutdownPrivilege',
TokenPriv.Privileges[0].Luid);
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
H := 0;
AdjustTokenPrivileges(HToken, False, TokenPriv, 0,PTokenPrivileges(nil)^, H);
CloseHandle(HToken);
end;
ExitWindowsEx(acao, 0);
end;

Chame-o assim, como nestes exemplos:

DesligaWindows(EWX_SHUTDOWN); // desligar normal
DesligaWindows(EWX_FORCE); //sair forçado
DesligaWindows(EWX_POWEROFF); //para fontes ATX
DesligaWindwos(EWX_LOGOFF); //efetua logoff
DesligaWindows(EWX_REBOOT); //reinicializa o computador

É isso!

ABRIR SITE, WEBBROSER COM DELPHI:

Chamar um site utilizando o navegador padrão do usuário

Coloque na uses:

UrlMon
 
Use a função:

HlinkNavigateString(nil,'https://WWW.ANTTROIA.WEBNODE.COM.BR);

Boa navegação!
Dica: coloque os links num lugar apropriado, encher o programa de links pode fazer com que o usuário se canse de ser forçado a acessar o site, e então deixe o programa logo.