一个非常奇怪的问题。

                            
procedure   TForm1.Button1Click(Sender:   TObject);   
  var   a:hwnd;  
  b:pchar;  
  c:integer;  
  begin  
  //a:=findwindow(pchar(#32770),0);//这是用来找QQ的窗口的。窗体可以找到,可是不可以获得窗口标题。一用getwindowtext就内存报错。  
  a:=findwindow(0,'Form1');  
  if   a<>0   then   showmessage('fff');  
  try//因为格式化和QQ的窗口类名都是用的#32770(为什么QQ要这么做呢?)为了不让别人格我的硬盘,而可以上QQ。我要找窗口标题来区分一下,可是用了这个try后,放现我找到的form1(我自己做的一个窗体)标题显示的是一个乱码,而去掉try就可以找到如约的'form1'郁闷。  
  c:=getwindowtext(a,b,255);  
  except  
  b:='Errar';  
  c:=0;  
  end;  
  edit1.Text:=b;  
  end;  
 

查看回复