Langsam gehen mir die Ideen aus.
Bei Kosch habe ich einen abweichenden Funktionsprototypen gefunden:
function ADsGetObject(lpszPathName: PWideChar; const riid: TGUID; out ppObject): HRESULT; Safecall;
Und dann noch diesen Artikel:
http://www.mail-archive.com/delphi@d.../msg14930.html
Ob das allerdings auch für Delphi2009 gilt?
Lutz