Acessar o host pela VM do Virtualbox

Tenho várias máquinas virtuais do VirtualBox que utilizo no desenvolvimento. Muitas vezes preciso acessar uma aplicação COM+ ou um servidor de banco de dados hospedado na máquina HOST. Quando usamos a placa de rede da VM em modo NAT, o endereço de IP do host na rede é 10.0.2.2. Basta usar este endereço para conectar à aplicação COM+ ou ao RDBMS e pronto!

Obter o cliente de e-mail default

Rápida e rasteira que coloquei lá no forum da Embarcadero hoje! Obter o cliente, ou melhor, a linha de comando default do sistema, para envio de email:

function GetDefaultEmailCommand: string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    if Reg.OpenKeyReadOnly('mailto\shell\open\command') then
    begin
      Result := Reg.ReadString('');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;