kleine Verbesserung:
Delphi-Quellcode:
uses
Windows;
const LGLIGHT_DLL='
lglight.dll';
// <==== hier kann man zentral den Namen der DLL angeben
function GetProductString(pBuffer: PChar; iBufferLength: DWORD): DWORD;
stdcall;
external LGLIGHT_DLL;
...
Mit SetCallback kann dein Programm sich über Tastendrücke informieren lassen:
Delphi-Quellcode:
procedure KeyProc(pressedKeys:integer);stdcall;
begin
if Assigned(Form1) then
Form1.MemoPressedKeys.Add(intToStr(pressedKeys));
end;
....
SetCallback(@KeyProc); // hier müsste man noch den Returnwert von SetCallback auswerten