function LoadCOMLib: string;
var
funcPtr: InputToStrFunc; //the definition of this is: function():integer; //sometimes even added with stdcall or cdecl still no work..
path: string;
handleToLib: HWND;
funcReturn: integer;
begin
GetDir(0, path);
path := Concat(path, '\', 'UnmanagedExport__TEST.dll');
handleToLib := LoadLibrary(PChar(path));
if handleToLib <> NilHandle then
begin
try
funcPtr := InputToStrFunc(GetProcAddress(handleToLib, 'AllocRecord'));
//funcPtr('TEST', funcReturn);
funcReturn := funcPtr();
Result := IntToStr(funcReturn);
RaiseLastWin32Error;
//result = Concat(result, 'A');
//result := 'YEEAAA it works' + IntToStr(funcReturn);
except
on e: Exception do
begin
FreeLibrary(handleToLib);
Result := e.Message;
end;
end;
end
else
Result := 'Er hat die Library nicht gefunden irgendwie';
end;