获得运行中的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;