Argument cannot be assigned to
Code: Alles auswählen
var
Form1: TForm1;
hLib2: HMODULE;
function starth(MHandle, AHandle: HWND): Byte; stdcall;
function stoph(): boolean; stdcall;
...
procedure TForm1.start(Sender: TObject);
begin
hLib2 := LoadLibrary('k3h.dll');
if hLib2<>0 then
begin
@starth := GetProcAddress(hLib2, 'startk3h'); //<-- hier kommt die compiler-Fehlermeldung
if @starth = nil then Exit;
end;
...
Was ist da falsch ?
Und wie muss es richtig heissen ?