获得运行中的QQ号码

 

procedure  TForm1.Button1Click(Sender: TObject);
var  H: HWND;
lpClassName: PChar;
s:String;
begin
H : =  FindWindow( nil ,  nil );
lpClassName : =  StrAlloc( 200 );

while  H  <>   0   do
begin
GetClassName(H, lpClassName,  200 );
s: =  StrPas(lpClassName);
if  Pos( ' QQ.EXE ' ,S) > 0   then  Memo1.Lines.Add( S );  // S 最后几位就是qq号码
H : =  GetWindow(H, GW_HWNDNEXT);
end ;
end ;  

 

转载于:https://www.cnblogs.com/bsoom/archive/2009/11/14/1603047.html