Das ist das Problem mit der Registry, jedoch hab ich das in der 2. Version des Programmes ausgebessert - da dürfte dieses Problem nicht mehr kommen.
Ich denke du hast noch die alte Version des Programmes!
Oder Nein^ blödsinn - ich weiß es nicht, ich lese die Daten der Dbx Dateien vom Outlook dort(code):
Delphi-Quellcode:
function TForm1.GetRoot:string;
var Reg : TRegistry;
s,a : string;
xList : TstringList;
begin
//Hole mir Path
xList := TstringList.Create;
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Identities',false);
s := 'Identities\'+Reg.ReadString('Default User ID')+'\Software\Microsoft\Outlook Express\';
Reg.CloseKey;
Reg.OpenKey(s,false);
Reg.GetKeyNames(xList);
a := s+'\'+xList.Strings[0];
Reg.CloseKey;
Reg.OpenKey(a,false);
Result := Reg.ReadString('Store Root');
s := GetPath('UserProfile');
Result := StringReplace(Result,'%UserProfile%',s,[rfReplaceAll,rfIgnoreCase]);
Reg.Free;
xList.Free;
exit;
end;
lg