>>> 此贴的回复 >> 要取出什么?文字么? GetWindowText
>>> 此贴的回复 >> SonixX is right. e.g: procedure TForm1.Button1Click(Sender: TObject); var buff:array[0..MAX_PATH-1] of char; begin GetWindowText(edit1.Handle, buff, sizeof(buff)); ShowMessage(buff); end;