Das Interface
Delphi-Quellcode:
IAIMP2VisualPlugin =
interface
function AuthorName: PWideChar;
stdcall;
function PluginName: PWideChar;
stdcall;
function PluginInfo: PWideChar;
stdcall;
function PluginFlags: DWORD;
stdcall;
function Initialize: BOOL;
stdcall;
procedure Deinitialize;
stdcall;
procedure DisplayClick(X, Y: Integer);
stdcall;
procedure DisplayRender(
DC: HDC; AData: PVisualData);
stdcall;
procedure DisplayResize(AWidth, AHeight: Integer);
stdcall;
end;
PAIMPVisualProc = ^IAIMP2VisualPlugin;
TAIMPVisualProc =
function: IAIMP2VisualPlugin;
stdcall;
Bei der abfrage für den PluginName gibt es einen
AV.
Delphi-Quellcode:
var
VisInfo : PAIMPVisInfo;
VisPointer : PAIMPVisualProc;
Delphi-Quellcode:
VisInfo := PAIMPVisInfo(
Handle);
Result := VisInfo^.VisPointer^.PluginName;
warum?
jemand ne Idee?
gruss Emil