delphi 获得运行中的QQ号码

时间:2011-5-26来源:yang 作者: peng点击: 27次

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;