Ist MAPI verfügbar?

[rollstuhlfahrer]

So, nachdem ich mehr als die zuerst ausgelesenen Schlüssel aus der Registry abgearbeitet haben, habe ich mittlerweile Erfolg zu vermelden. Und zwar habe ich eine Funktion, die prüft, ob MAPI eingerichtet ist und ob MAPI konfiguriert ist. Erst wenn diese beiden Punkte erfüllt sind, gibt es grünes Licht.
Problem dabei: Jedes Windows XP hat einen mailto-Handler (und zwar zeigt der standardmäßig auf Outlook Express). Genauso ist Simple-MAPI überall installiert. Die Prüfung auf die DLL habe ich sein gelassen, weil die DLL (bei einem gepflegten System) dann existiert, wenn der Registry-Schlüssel das so sagt. Ich habe nicht vor, wie die JEDIs alle Export-Funktionen auf Existenz zu prüfen.

So, nun der Code:

Delphi-Quellcode:

function IsMAPIEnabled: boolean;
  function IsMAPIInstalled: boolean;
  var  // Ist MAPI auf dem System installiert und aktiv?
    hkWMS: HKEY;
    MAPIValueSize: Longint;
    MAPIValueBuf: array[0..8] of char;
    rType: Longint;
  begin
    Result := false;
    MAPIValueSize := sizeof(MAPIValueBuf);
    if RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows Messaging Subsystem',
        0, KEY_READ, hkWMS) <> ERROR_SUCCESS then Exit;
    if RegQueryValueEx(hkWMS, 'MAPI', nil, @rType, @MAPIValueBuf,
        @MAPIValueSize) <> ERROR_SUCCESS then Exit;
    RegCloseKey(hkWMS);
    if not ((MAPIValueBuf[0] = '1') and (MAPIValueBuf[1] = #0)) then Exit;
    Result := true;
  end;

  function IsMAPIConfigured: boolean;
  var // Ist MAPI für den aktuellen Benutzer eingerichtet/konfiguriert?
    hkWMS: HKEY;
    MAPIValueSize: Longint;
    MAPIValueBuf: array[0..MAX_PATH - 1] of AnsiChar;
    rType: Longint;
  begin
    Result := false;
    MAPIValueSize := sizeof(MAPIValueBuf);
    //  HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles
    if RegOpenKeyEx(HKEY_CURRENT_USER, 'Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles',
        0, KEY_READ, hkWMS) <> ERROR_SUCCESS then Exit;
    if RegQueryValueEx(hkWMS, 'DefaultProfile', nil, @rType, @MAPIValueBuf,
        @MAPIValueSize) <> ERROR_SUCCESS then Exit;
    RegCloseKey(hkWMS);

    if MAPIValueBuf[0] = #0 then Exit;
    Result := true;
  end;
begin
  Result := false;

  if not IsMAPIInstalled then Exit;
  if not IsMAPIConfigured then Exit;

  Result := true;
end;

Bernhard