so, hab das problem ...
die
unit was ich verwendet habe
Delphi-Quellcode:
(************************************************************
Author: Deepak Shenoy
[email]shenoy@agnisoft.com[/email]
Copyright (C) 2000 Agni Software Pvt. Ltd.
All Rights Reserved.
[url]http://www.agnisoft.com[/url]
Description:
Helper class for ADSI functions
********************************************************)
unit adshlp;
...
function ADsGetObject(lpszPathName:WideString;
const riid:TGUID;
out ppObject):HRESULT;
safecall; <<<< das muß
stdcall sein
da müssen die funktionen in stdcall umgeändert werden (denn mit safecall legt er ein register zusätzlich am stack ab, das aber niemand abholt, und so hab ich diesen blöden fehler bekommen ... naja, war wieder mal ein kleiner ausflug in
asm)