唐
唐晓锋
Unregistered / Unconfirmed
GUEST, unregistred user!
我以前用过一次,不知道这回用为什么出现
"Left side cannot assigned to"
procedure TForm1.Button1Click(Sender: TObject);
var HHH:THandle;
ReadString:function :Integer;
begin
HHH:=LoadLibrary('NewReader.dll');
if HHH < 32 then
begin
ShowMessage('Not Found');
Exit;
end
else
begin
@HHH := GetProcAddress(HHH,'ReadString');
FreeLibrary(HHH);
end;
end;
"Left side cannot assigned to"
procedure TForm1.Button1Click(Sender: TObject);
var HHH:THandle;
ReadString:function :Integer;
begin
HHH:=LoadLibrary('NewReader.dll');
if HHH < 32 then
begin
ShowMessage('Not Found');
Exit;
end
else
begin
@HHH := GetProcAddress(HHH,'ReadString');
FreeLibrary(HHH);
end;
end;