D
delphi4.0
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var hDll:THandle;
ContentHelprocedure ;
begin
hDll:=LoadLibrary('xxxxx.dll');
if hDll<32 then
exit;
@ContentHelp:=GetProcAddress(hDll,'ContentHelp');
FreeLibrary(hDll);
end;
编译的时候出现
"[Error] TestDll.pas(32): Illegal character in input file: ' ' ($A1A1)"
错误
我把"@ContentHelp:=GetProcAddress(hDll,'ContentHelp');"注释掉是同样的错误!更奇怪的是我把begin
,end之间的全都注释掉也是同样的错误,把begin
,end之间的语句全删除就没问题了,
小弟分数不多了,请见量!
var hDll:THandle;
ContentHelprocedure ;
begin
hDll:=LoadLibrary('xxxxx.dll');
if hDll<32 then
exit;
@ContentHelp:=GetProcAddress(hDll,'ContentHelp');
FreeLibrary(hDll);
end;
编译的时候出现
"[Error] TestDll.pas(32): Illegal character in input file: ' ' ($A1A1)"
错误
我把"@ContentHelp:=GetProcAddress(hDll,'ContentHelp');"注释掉是同样的错误!更奇怪的是我把begin
,end之间的全都注释掉也是同样的错误,把begin
,end之间的语句全删除就没问题了,
小弟分数不多了,请见量!