核心提示:procedureTForm1.Button1Click(Sender:TObject);varh:HWND;ThreadID:THandle;beginh:=FindWindow(nil,'QQ用户...
procedure TForm1.Button1Click(Sender: TObject);var
h: HWND;
ThreadID: THandle;
begin
h := FindWindow(nil,'QQ用户登录');
if h = 0 then
begin
Form1.Label1.Caption := '没有找到QQ登录框' ;
Exit;
end;
GetWindowThreadProcessId(h,ProcessID) ;
CreateThread(nil, 0, @NewProcess, nil, 0, ThreadID) ;
end;
end.
代码已经打包下载
迅雷专用高速下载