Problem mit Access beim Starten meiner Applikaion

[matthiasl]

Probier mal:

Delphi-Quellcode:

  procedure InstallMagicKeys;
    var
      reg:tRegistry;

    procedure CheckMagic(Key, Value:String);
      begin
        if not reg.KeyExists(Key) then begin
          reg.OpenKey(Key,True);
          reg.WriteString('',Value);
        end;
      end;

    begin
      try
        reg:=tRegistry.Create;
        try
          reg.RootKey:=HKEY_CLASSES_ROOT;
          CheckMagic('\Licenses\57CBF9E0-6AA7-11cf-8ADB-00AA00C00905','aahakhchghkhfhaamghhbhbhkbpgfhahlfle');
          CheckMagic('\Licenses\66ab70d0-55d3-11cf-804c-00a02424e927','lieuqkjdgoqpHTML');
          CheckMagic('\Licenses\70781760-55dd-11cf-a97f-0020af3f87b5','lieuqkjdgoqpHTTPCT');
          CheckMagic('\Licenses\73f6ab30-5598-11cf-8389-0020af697014','lieuqkjdgoqpftpct');
          CheckMagic('\Licenses\86c3e880-5595-11cf-96e7-0080c7c3c284','lieuqkjdgoqpnntpct');
          CheckMagic('\Licenses\8B7FE740-50AC-101B-A3C9-08002B2F49FB','mjgcqcejfchcijecpdhckcdjqigdejfccjri');
          CheckMagic('\Licenses\8CC49940-3146-11CF-97A1-00AA00424A9F\Retail','yubcdcprktpjtapmmfdacmupasbhscddncgp');
          CheckMagic('\Licenses\b315c530-5298-11cf-aaa2-0020af2cee5e','lieuqkjdgoqpWINSCK');
          CheckMagic('\Licenses\b7444ee0-55be-11cf-96e7-0080c7c3c284','lieuqkjdgoqpsmtpct');
          CheckMagic('\Licenses\F4FC596D-DFFE-11CF-9551-00AA00A3DC45','mbmabptebkjcdlgtjmskjwtsdhjbmkmwtrak');
          CheckMagic('\Licenses\fb7663e0-5505-11cf-a676-0020af6a0bf2','lieuqkjdgoqppopct');
        finally
          reg.free;
        end;
      except
      end;
    end;

Das hab ich mal von einem bekannten Programmierer bekommen, mit dem Hinweis, das es alle meine Accessprobleme lösen würde, wenn als erste Zeile meines Programms diese Keys gesetzt werden. Ich habe nie rausbekommen, was die bewirken, aber ich hatte auch nie Probleme mit der DAO von Access...