如何获取外部程序标题！！！100分等待

Question

我要获取获取外部程序的标题，我想遍历一个目录的文件，逐个打开，然后获取文件的标题，之后把文件改名为标题名称。
1、如果获取文件标题；
2、如何遍历目录文件；

Answer 1

1.程序标题?何物?
2.FindFirst,FindNext,按F1查帮助!

Answer 2

这里的代码过不了procedure TForm1.Button1Click(Sender: TObject);
var
curdc:hwnd;
sztext:array[0..255] of char;
begin
  curdc:=Getwindow(handle,gw_hwndfirst);
  while curdc<>0 do
  begin
    if GetwindowText(curdc,@sztext,sizeof(sztext))>0 then
      memo1.lines.add(strpas(curdc));//就是这里,类型错误
    curdc:=getwindow(curdc,gw_hwndnext);
  end;
end;

Answer 3

To Smilelhh(blue) :
先查找文件， ......yes
再打开文件， ......yes
然后读取第一行........不是读取第一行，应该是窗体名称，如现在这个窗体名称为“如何获取外部程序标题！！！100分等待-Michrosogft Internet Explorer”
然后改名称。.....yes

Answer 4

var
curdc:hwnd;
sztext:array[0..255] of char;
begin
  curdc:=Getwindow(handle,gw_hwndfirst);
  while curdc<>0 do
  begin
    if GetwindowText(curdc,@sztext,sizeof(sztext))>0 then
      memo1.lines.add(strpas(sztext));
    curdc:=getwindow(curdc,gw_hwndnext);
  end;
end;
解决！自己已经搞定！代码应该是上面的！大家试试吧！