如何正确的向一个已只句柄的文本控件发送WM_GETTEXT,最好有例

[jun_01]

同上

[ppbaobei123]

procedure TForm1.Button2Click(Sender: TObject);
VAR
S : pchar;
begin
s:= AllocMem(6);
//SendMessage(Edit2.Handle,WM_GETTEXT,5,6);
GetWindowText(Edit2.Handle,Pchar(s),5);
Edit1.Text := s;
end;

发送WM_GETTEXT消息和GetWindowText是一回事

[santwy]

SendMessage(Handle,WM_GETTEXT,str,50);

[jun_01]

TO: zfpcb(我是你的传说) 兄：


好象不行呀！ 我是Win2000+d6 运行就报告内存错误。

[Brune]

SendMessage(Handle,WM_GETTEXT,str,50);

[zwt00]

重新申明SendMessage
function Sendmessage(handle:hwnd;Wmsg:integer; Lparam:integer; Wparam:Pchar):integer;stdcall;external 'user32.dll' name 'SendMessageA';

var
PwdStr:String;
begin
SendMessage(Edit1.Handle,WM_GETTEXT,length(PwdStr)+1,PChar(PwdStr));
end;

[jun_01]

bluezwt(blue) 兄：
能简单说一下原因吗？
明天结帖。

[zwt00]

以前我在VB下面做的时候,VB里面是这样申明的，后来我在改成Delphi版的时候总报错，原来是Delphi的声明中最后一个参数是整形的，而VB里面的是变体型的，所以我就改了一下重新声明了。