Sunday, September 26, 2010

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!

Wednesday, September 8, 2010

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;