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

[himitsu]

Warum machst du es dir nicht einfach so schwer?
das erinnert mich irgendwie an diese uralte Geschichte Wie kann ich prüfen, ob ich online bin?.

Selbst wenn MAPI vorhanden ist, muß das noch lange nicht bedeuten, daß es auch nutzbar ist.


Beim Prüfen der Registryeinträge können im schlimmsten Fall immernoch die nötigen Dateien fehlen.
(kennt man ja von dein Eintragsleichen schon deinstallierter Anwendungen)


Versuche einfach zu senden und wenn's nicht geht, dann reagiere entsprechend.
Alle möglichen Hindernisse kann man nur schwer prüfen, angefangen mit defekten Installationen, untersagten Rechten, nichtinstallierten Programmen, unterbundenen Verbindungen (Firewall), über Verbindungsprobleme, bis Sonstewas.

[rollstuhlfahrer]

Ich hatte nicht vor, an dieser Stelle mit Fehlermeldungen um mich zu werfen, vor allem weil auch dann eine kommen müsste, wenn die Mail nicht verschickt wird. Mal schauen, was mir da einfallen wird. Es sollte nur so sein, dass wenn es definitiv ist, dass man die Mail nicht versenden kann, dann soll das dem Benutzer auch nicht angeboten werden. Aber das ist ein anderes Schlachtfeld.

Bernhard

[shmia]

Zuviel Exit für meinen Geschmack:

Delphi-Quellcode:

begin
  Result := false;
  if not IsMAPIInstalled then Exit;
  if not IsMAPIConfigured then Exit;
  Result := true;
end;

So find ich's besser:

Delphi-Quellcode:

begin
  Result := IsMAPIInstalled and IsMAPIConfigured;
end;

Die Exits findet man noch öfter im Code, dabei kann man durch direkte Zuweisung an Result vereinfachen.