//使用Move函数
procedure TForm1.Button1Click(Sender: TObject);
var
buff: array [0..1023] of Byte;
CSend: array [0..1023] of Char;
I: Integer;
S: string;
begin
GetWindowText(Handle, CSend, 1024);
Move(CSend, buff, 1024);
S := '';
for I := 0 to 1024 do
if buff[I] = 0 then
Break
else S := S + Chr(buff[I]);
ShowMessage(S);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
buff: array [0..1023] of Byte;
CSend: array [0..1023] of Char;
I: Integer;
S: string;
begin
GetWindowText(Handle, CSend, 1024);
Move(CSend, buff, 1024);
S := '';
for I := 0 to 1024 do
if buff[I] = 0 then
Break
else S := S + Chr(buff[I]);
ShowMessage(S);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货