Outlook starten aber nicht den Eingabedialog für emails

[Schodn]

Abfragen obs outlook offen ist. wenn nicht -> öffnen

Delphi-Quellcode:

procedure Tfrm_main.RzBmpButton23Click(Sender: TObject);
var 
    reg: TRegistry;
    value, cmd: string;
    pac: PAnsiChar;
    Window : hWnd;
begin
    Window := FindWindow(nil, 'Microsoft Outlook');
    if Window = 0 then
    begin
        reg := TRegistry.Create;
        reg.RootKey := HKEY_CLASSES_ROOT;
        if reg.OpenKeyReadOnly('\mailto\shell\open\command') then begin
              value := reg.ReadString('');
              reg.CloseKey;
        end
        else
            value := '';

        reg.Free;
        {if value = '' then
          raise Exception.Create('no standard e-mail handler');}
        pac := PAnsiChar(value);
        if value[1] = '"' then
              cmd := AnsiExtractQuotedStr(pac, '"')
        else if Pos(' ', value) = 0 then
              cmd := value
        else
            cmd := Copy(value, 1, Pred(Pos(' ', value)));
        ShellExecute(0, 'open', PAnsiChar(cmd), nil, nil, SW_SHOW);
    end;
end;