Zitat von
xZise:
aber da gibt es das Problem, das er es nicht kompilieren kann.
Fehlermeldung?
Aber es sollte klar sein, dass man auf jeden Fall eine Funktion wie ClassIDExists() benötigt.
Man kann ja nicht für jede Abfrage den Code erneut hinschreiben wie das in Beitrag #11 anklingt.
Die Deklaration von CLSIDFromProgID() aus
Unit ActiveX sieht unter Delphi 2007 so aus:
Delphi-Quellcode:
type POleStr = PWideChar;
...
function CLSIDFromProgID(pszProgID: POleStr;
out clsid: TCLSID): HResult;
stdcall;
Ich vermute das Problem jetzt mal beim Parameter
pszProgID.
Hier eine Änderung (compiliert unter D2007 ebenfalls)
Delphi-Quellcode:
function ClassIDExists(classID:WideString):Boolean;
var
tmp : TGUID;
begin
Result := Succeeded(CLSIDFromProgID(POleStr(classID), tmp));
end;