GetWindowText(0分)

这个API函数怎么使用啊？？？

GetWindowText 通常是与 SetWindowText 配合使用的。<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp;TheText: PChar;<br>&nbsp;TextLen: Integer;<br>begin<br>&nbsp; TextLen:=GetWindowTextLength(Form1.Handle);<br>&nbsp; GetMem(TheText,TextLen);<br>&nbsp; GetWindowText(Form1.Handle,TheText,TextLen+1);<br>&nbsp; Edit1.Text:=string(TheText);<br>&nbsp; FreeMem(TheText);<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br>&nbsp;SetWindowText(Form1.Handle, PChar(Edit1.Text));<br>end;

你如果对windowgettext不熟悉，可以这样：sendmessage(Form1.handle,WM_GETTEXT,Length,0))<br>效果是一样的。

var <br>&nbsp; myhwnd:hwnd; &nbsp;<br>&nbsp; strtext:array[0..254] of char;<br>&nbsp;你找到活动窗口的句柄的话，用getwindowtext就能得到它的标题<br>GetWindowText(myhwnd,strtext ,253);

接受答案了.