function TForm1.closekey(err: pchar): integer;
begin
result := -1;
StrCopy(err,'CloseKeyboard执行失败')
end;
如果是定义了一个字符串的变量lstr:String,通过pchar(lstr)转换后作为参数传给函数closekey(pchar(lstr));如果只调用一次不会报错,如果是连续调用两次就会出现非法地址错误:Access violation at address
错误的调用方法:
procedure TForm1.Button1Click(Sender: TObject);
var
lstr: String;
i, ret: integer;
begin
for i := 0 to 2 do
begin
ret := closekey(pchar(lstr));
end;
end;
正确的调用方法如下
procedure TForm1.Button1Click(Sender: TObject);
var
lErr: array[0..255] of char;
i, ret: integer;
begin
for i := 0 to 2 do
begin
ret := closekey(@lErr[0]);
end;
end;