Verificar conexão de internet com Delphi

Esta simples função serve para verificar se o seu computador está conectado a Internet. Pode ser usada, por exemplo, num software de atualização para o seus sistemas!

function TfrmMenu.estaConectado: boolean;
var
 flags : DWORD;
begin
 // verifica se está conectado a internet usando a API do Windows, é preciso declarar a uses WinInet.
 if not InternetGetConnectedState(@flags, 0) then
    result := false
 else
    result := true;
end;

Anúncios

Profissionais de Computação e o tempo livre

Uma boa explicação!

Fazendo o bebê dormir com Linux.

Muito bom!

Form dentro de uma Tabsheet no Delphi

Para instanciar um form dentro de uma Tabsheet no Delphi é bem simples. Veja:

Primeiro instancie o form desejado:

Form2 := TForm1.Create(Self);

Depois defina o Parent do Form a Tabsheet desejada:

Form2.Parent := Tabsheet1;
Form2.Show;

Resultado:

Happy Hacking 🙂