ShlObj: Implementierung der Interface-Methode IContextMenu

[Mavarik]

Nein!

Einfach nur mit XE2 übersetzt.. Das ist ne Fehlermeldung die in Shlobj kommt...


Mavarik

[Union]

Was meinst Du mit "Nein"? Wie sieht der Source aus den Du versucht hast zu kompilieren?

[Mavarik]

Zitat von Union:

Was meinst Du mit "Nein"? Wie sieht der Source aus den Du versucht hast zu kompilieren?

Der Code:


  TDropContextMenu = class(TInterfacedComponent, IShellExtInit, IContextMenu) Mit D2007 compiliert das einwandfrei!

Grüsse Mavarik

[Mavarik]

Habs...

Dank Datas Beitrag...

Delphi-Quellcode:

{$IFDEF VER230}
    function GetCommandString(idCmd: UINT_PTR; uFlags: UINT; pwReserved: PUINT;
       pszName: LPSTR; cchMax: UINT): HResult; stdcall;
{$ELSE}
    function GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;
      pszName: LPSTR; cchMax: UINT): HResult; stdcall;
{$ENDIF}

Grüsse Mavarik

[himitsu]

Damit die codes nicht zu sehr ausarten (falls/wenn man UINT_PTR nochmal braucht)

Delphi-Quellcode:

{$IFNDEF VER230}
  type UINT_PTR = UINT;
{$ENDIF}

function GetCommandString(idCmd: UINT_PTR; uFlags: UINT; pwReserved: PUINT;
  pszName: LPSTR; cchMax: UINT): HResult; stdcall;

oder besser so (dafür kann man sich ja mal eine kleine Types-Unit zusammenstellen)

Delphi-Quellcode:

// ebenfalls die CompilerVersion prüfen
{$IF CompilerVersion < 23.0}
  type UINT_PTR = UINT;
{$IFEND}

// auf den Typen selber prüfen
{$IF not Declared(UINT_PTR)}  // es gibt auch Defined, für Compilerschalter
  type UINT_PTR = UINT;
{$IFEND}

Dieses IFDEF VERxxx hat einen sehr großen Nachteil. Es ist immer auf genau eine Version ausgelegt, aber meistens will man ja etwas ab/bis zu einer bestimmten Version haben.