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.