获得运行中的QQ号码
2009-11-14 16:21 HYrz的菜园子 阅读(307) 评论(0) 编辑 收藏 举报
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;
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;
