Code: Alles auswählen
var
Fstart: TFstart;
hnd: THandle;
myprog: procedure;
implementation
{ TFstart }
procedure TFstart.MenuItem2Click(Sender: TObject);
begin
Close;
end;
procedure TFstart.MenuItem4Click(Sender: TObject);
begin
hnd:=LoadLibrary(Pchar('peerf.dll'));
if hnd <> 0 then
begin
@myprog:= GetProcaddress(hnd,'penew');
if @myprog <> nil then
begin
Fstart.Visible:=False;
myprog;
Fstart.Visible:=True;
end;
FreeAndNil(hnd);
end;
end;
warum bringt der in Compiler in dieser Zeile
Code: Alles auswählen
@myprog:= GetProcaddress(hnd,'penew');
die Meldung, er kann keinen Wert zuweisen ? Er findet das Handle, sonst würde ja dieser Teil überspringen.
Danke im voraus