Oulook Kontakte auslesen geht nicht unter C:\Programme

[süden]

Mein Codausschnitt war unsauber zusammen gefasst - blöd von mir.
Hier noch mal das fast Ganze:

Delphi-Quellcode:

procedure TmodOutlook.btnReadOutlookClick(Sender: TObject);
const
  olFolderContacts = $0000000A;
var
  outlook, NameSpace, Contacts, Contact: OleVariant;
  i: Integer;
  s :String;
begin
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');

  Contacts := NameSpace.GetDefaultFolder(olFolderContacts);

  Try
    grdTVOL.DataController.BeginFullUpdate;
    for i := 1 to Contacts.Items.Count do
    begin
      Contact := Contacts.Items.Item(i);
      FrecAdr.FCompanyName              :=  Contact.CompanyName ;
      FrecAdr.FFirstName                :=  Contact.FirstName ;
      ... Anschließend das Einbauen der Werte in ein Grid ...
      
  Finally
    grdTVOL.DataController.EndFullUpdate;
    Outlook := UnAssigned;
  End;

end;

Es läuft alles prima, wenn ich den Programmordner nur kopiere, auch auf C:\.
Wenn ich es installiere (Inno) kommt die oben gezeigte Fehlermeldung.

Ausschnitt Inno-Script:

Code:

MinVersion=5.1.2600
[Dirs]
PrivilegesRequired=admin
Name: "{commonappdata}\ocm\BUEROplus3\Konfig"; Permissions: everyone-full authusers-full users-full; 
Source: ocmBuero3.exe; DestDir: {app}; Permissions: everyone-full authusers-full users-full;

Das spricht der Prozess-Explorer ab Button-Click bis zur Fehlermeldung:

Code:

Event Class:   Registry | Operation:   RegQueryKey
Result:   BUFFER TOO SMALL
Path:   HKCU\Software\Classes\CLSID\{33C53A50-F456-4884-B049-85FD643ECFED}
TID:   3744 | Duration:   0.0000040 | Query:   Full | Length:   0
--------------------------------------------------------------------------
Event Class:   Registry | Operation:   RegOpenKey
Result:   NAME NOT FOUND
Path:   HKCU\Software\Classes\CLSID\{DEE35070-506B-11CF-B1AA-00AA00B8DE95}\ExtendedErrors
TID:   3744 
Duration:   0.0000077
Desired Access:   Read
--------------------------------------------------------------------------
Date & Time:   06.05.2013 14:46:04
Event Class:   Registry
Operation:   RegOpenKey
Result:   NAME NOT FOUND
Path:   HKCU\Software\Classes\CLSID\{dee35070-506b-11cf-b1aa-00aa00b8de95}\ExtendedErrors
TID:   3744 | Duration:   0.0000057 | 
Desired Access:   Maximum Allowed
--------------------------------------------------------------------------
Event Class:   File System | Operation:   QueryOpen | 
Result:   FAST IO DISALLOWED
Path:   C:\ProgramData\ocm\BUEROplus3\Konfig\Errorlog.txt
TID:   3744 | Duration:   0.0000013

Die gleichen Meldungen kommen auch bei der nur kopierten, lauffähigen Version.
Aus der IDE läufts also schwer zu finden.

Hat das etwas mit der UAC zu tun?
Ich habe zwar schon viel gelesen, aber immer noch nicht ganz kapiert.
Installieren als admin, Ausführen als normaler User ...

Der Outlook-Import läuft auch nach der Installation auf D:\.. nicht.

[baumina]

Da du es nicht debuggen kannst, musst du wohl zur alten Methode greifen und an wichtigen Stellen ein ShowMessage einbauen, um den Fehler besser eingrenzen zu können, vielleicht kommst du ja dann einen Schritt weiter.

[süden]

Das verrückte ist, wenn ich die Exe nach der Installation von Hand einkopiere geht's.

[baumina]

Zitat von süden:

Das verrückte ist, wenn ich die Exe nach der Installation von Hand einkopiere geht's.

Es handelt sich dabei um genau die selbe exe-Datei, Größe, Datum, Version ... alles identisch?

[süden]

Ja, DIE exe. Sowas habe ich nicht nicht erlebt.

ABER, ich habs:
Ich habe jede einzelne Zeile mit einem Try-Block + Msg umgeben.
Da liefs + Errors.

Es war die Komponente von DeveloperExpress TdxMemData. Die habe ich mit einem Active := True geöffnet. Jetzt mache ich es mit einem Open und es geht.

Aber trotzdem, wieso das aus der IDE und mit der kopierten Datei ging ist mir immer noch schleierhaft.

[p80286]

Zitat von süden:

Ja, DIE exe. Sowas habe ich nicht nicht erlebt.

Unglaublich

Zitat von süden:

Aber trotzdem, wieso das aus der IDE und mit der kopierten Datei ging ist mir immer noch schleierhaft.

Wenn man Komponenten auf Actve/connected/... setzt, ist diese Vorraussetzung in der IDE meist erfüllt, hinterher im Compilat dann nicht mehr. Tritt oft bei DB-Entwicklungen auf.

Gruß
K-H

[süden]

Ich setze die Komponenten vorher in der IDE nie auf aktiv/Open - immer nur zur Runtime.
In manchem steckt man eben auch nicht drin.
Auf jeden Fall wird mir jetzt klar, warum es besser ist ein paar EUR mehr auszugeben und die Komponenten mit Quellcode zu kaufen. Ich habe sie von DevEx ohne.