描述:两个EDIT,一个LABLE,两个EDIT分别用于放源字符和后输入的字母
功能:在EDIT2输入一个字母时,不是源字符中的字母时输出无次字母,有那个字时就输具体在第几位,因为只问关于LOADLIBRARY及句柄的问题,所以只列出一个PROCEDURE,谢谢啦
..............
..............
procedure TForm1.edit2keypress(sender:TObject;var Key:char);
var
order:integer;
txt:Pchar;
PFunc:TFarProc;.............question1:TFarProc是什么类型?
Moudle:THandle;
begin
Moudle:=Loadlibrary('example.dll');
if Moudle>32 then ..............question2:这里>32是什么意思?
begin
edit2.text:='';
PFunc:=GetProcAddress(Moudle,'Instr');.....question3?
...............
.............
question1:TFarProc是什么类型?
question2:这里>32是什么意思?
question3:这句是不是说让PFunc等价于Instr函数??(注:Instr是我的dll文件中的一个函数)
功能:在EDIT2输入一个字母时,不是源字符中的字母时输出无次字母,有那个字时就输具体在第几位,因为只问关于LOADLIBRARY及句柄的问题,所以只列出一个PROCEDURE,谢谢啦
..............
..............
procedure TForm1.edit2keypress(sender:TObject;var Key:char);
var
order:integer;
txt:Pchar;
PFunc:TFarProc;.............question1:TFarProc是什么类型?
Moudle:THandle;
begin
Moudle:=Loadlibrary('example.dll');
if Moudle>32 then ..............question2:这里>32是什么意思?
begin
edit2.text:='';
PFunc:=GetProcAddress(Moudle,'Instr');.....question3?
...............
.............
question1:TFarProc是什么类型?
question2:这里>32是什么意思?
question3:这句是不是说让PFunc等价于Instr函数??(注:Instr是我的dll文件中的一个函数)
Q2:应该是 Load successful。
Q3:找到 Instr 的函数地址。