[Vista] Standard-E-Mail-Programm definieren/registrieren?

[Looking4Clues]

Vista - StandardMailProgramm registrieren

Kein Problem mit Windows < Vista;

Dickes Problem mit Windows >= Vista!

=====

Delphi-Quellcode:

procedure XPCheckForStandardEMailProgram;
var
  NativeReg: TRegistry;
  sExpected: string;
  sFound: string;
begin
  // Catch all registry exceptions and show an explanational dialog
  try
    sExpected := '"' + Application.ExeName + '" -newmail "%1"';
    NativeReg := TRegistry.Create(KEY_READ);
    // Ensure Cleanup for 'NativeReg'
    try
      NativeReg.RootKey := HKEY_CLAsSES_ROOT;
      sFound := '';
      if NativeReg.OpenKey('mailto\shell\open\command', False) then
        sFound := LowerCase(NativeReg.ReadString(''));

      if sFound = LowerCase(sExpected) then begin
        MesSageBox(0, 'MailTestApp ist bereits als Standard-E-Mail-Programm registriert.', 'MailTestApp', mb_Ok or mb_IconInformation or mb_DefButton1);
        exit;
      end;

      if sFound <> LowerCase(sExpected) then begin
        NativeReg.CloseKey;
        NativeReg.AccesS := KEY_WRITE;
        NativeReg.OpenKey('mailto\shell\open\command', True);
        try
          if MesSageBox(0, 'Soll MailTestApp als Standard-E-Mail-Programm registriert werden?', 'MailTestApp', mb_YesNo or mb_IconQuestion or mb_DefButton1)
            = mrYes then begin
            NativeReg.WriteString('', sExpected);
            NativeReg.CloseKey;
            NativeReg.OpenKey('mailto\DefaultIcon', True);
            NativeReg.WriteString('', '"' + Application.ExeName + '",0');
            NativeReg.CloseKey;
            NativeReg.RootKey := HKEY_LOCAL_MACHINE;
            NativeReg.OpenKey('SOFTWARE\Clients\Mail', True);
            NativeReg.WriteString('', 'MailTestApp');
            NativeReg.CloseKey;
            NativeReg.OpenKey('SOFTWARE\Clients\Mail\MailTestApp', True);
            NativeReg.WriteString('', 'MailTestApp');
            NativeReg.CloseKey;
            NativeReg.OpenKey('SOFTWARE\Clients\Mail\MailTestApp\Protocols\mailto', True);
            NativeReg.WriteString('', 'URL:MailTo Protocol');
            NativeReg.WriteInteger('EditFlags', 2);
            NativeReg.WriteString('URL Protocol', '');
            NativeReg.CloseKey;
            NativeReg.OpenKey('SOFTWARE\Clients\Mail\MailTestApp\Protocols\mailto\DefaultIcon', True);
            NativeReg.WriteString('', '"' + Application.ExeName + '",0');
            NativeReg.CloseKey;
            NativeReg.OpenKey('SOFTWARE\Clients\Mail\MailTestApp\Protocols\mailto\shell\open\command', True);
            NativeReg.WriteString('', sExpected);
            NativeReg.CloseKey;
            NativeReg.OpenKey('SOFTWARE\Clients\Mail\MailTestApp\shell\open\command', True);
            NativeReg.WriteString('', '"' + Application.ExeName + '"');
          end;
        finally

        end;
      end;
      NativeReg.CloseKey;
    finally
      NativeReg.Free;
    end;
  except
    // Catch registry exceptions and inform user
    on ERegistryException do begin
      MesSageBox(0, 'Ihnen fehlen die nötigen Rechte, um das Standard-E-Mail-Programm zu ändern!', 'MailTestApp', mb_Ok or mb_IconStop or mb_DefButton1);
    end;
    // Catch other exceptions, log them and reraise them
    on localExcept: Exception do begin
      MesSageBox(0, PChar(localExcept.MesSage), 'MailTestApp', mb_Ok or mb_IconInformation or mb_DefButton1);
      raise
    end;
  end;
  Application.ProcesSMesSages;
end;

=====


Die < Vista-Registrierung klappt problemlos, ab Vista geht der Ärger damit an M$ problemlsos vorbei ;-)

Weil die Registrierung unter Vista (mit den entsrechenden Rechten) problemlos klappt!

Das Resultat ist aber leider unbrauchbarer Vista-Schrott in der Registry!

Unter Vista als Administrator mit abgeschalteter UAC getestet.

Das Resultat ist Schrott!

Hat eventuell ein hier mitlesender C-Programmierer eine Ahnung davon, was Thunderbird und dessen Installationsprogramm unter Vista wirklich tun?

RegShot 1.8.2 kenne ich schon! Meine Kiste schafft mit dem falschen Protokoll 71 Explorer :-(


mfg (mit frustrierten grüssen)