我要做一个程序启动另一个进程,要求我用我的程序启动这个进程时,这个进程应该是隐藏的,而且我还要往这个隐藏进程的输入框中传字串且触

明行 测试开发  2004-07-18 04:10:16
我要做一个程序启动另一个进程,要求我用我的程序启动这个进程时,这个进程应该是隐藏的,而且我还要往这个隐藏进程的输入框中传字串且触发它的确定按纽?怎么做?
...全文
211 点赞 收藏 16
写回复
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
wangxiangli1111 2004-11-08
为什么我用Shellexecute()启动其它程序可行,但用来启动PB编的程序就不可以呢?各位老大,有谁知道,请您多加指导,我急!!!!
回复
明行 2004-07-21
谁能说说
回复
明行 2004-07-20
已经找到了窗体的句柄,我怎么得到它下面的每一个EDIT的句柄与内容?
回复
明行 2004-07-19
隐藏很简单,设置了个参数就搞定了,但是我想知道我找到了一个窗口的句柄后怎么把它下面的edit与button都列出来,就列到list中去吧。
回复
zsyp 2004-07-19
你用shellexcute就可以,但是进程不能隐藏,你也可以在调用shell是加参数,
回复
zsyp 2004-07-19
你的进程是不能隐藏的,
回复
明行 2004-07-18
怎么发送消息呢?给个例子好吗?我不想去翻书了。
回复
linzhengqun 2004-07-18
你可以一个个试试啊,一个个发送消息,就可以测出来了。
然后再确定呀。
回复
明行 2004-07-18
我找到了主窗口,要找这个窗口下的Edit框与按纽,我怎么知道我找到的是哪一个输入框与按纽呢?
回复
yinzhiw 2004-07-18
关注
回复
明行 2004-07-18
好,我试一试先。
回复
cnhgj 2004-07-18
用以下API即可,具体用法去查查
shellexecute //来启动
showwindow //来隐藏
findwindow,findwindowex //来取句柄
sendmessage //来发送字符
回复
明行 2004-07-18
对啊,可是我要隐藏进程后做这样的操作???有什么办法吗?就是说不要使用者看到这个进程,他只能看到我的程序。
回复
linzhengqun 2004-07-18
输入框中传字串且触发它的确定按纽:
思路是得到这两个的句柄,再发送相关消息:
以下可以参考一下:
//发送文字到QQ发送窗口,并使QQ窗口自动发送
procedure TForm1.QQSend;
var WndText:string;
HWinHand:HWnd;//发送消息窗口的句柄
HSendBtn:HWnd;//发送按钮的句柄
HSendText:HWnd;//发送文本框的句柄
i:integer;
begin
HWinHand:=GetWindow(Application.Handle, GW_HWNDFIRST);
while HWinHand<>0 do
begin
WndText:=GetWndText(HWinHand);
if (Pos('聊天中',WndText)>0) or (Pos('发送消息',WndText)>0) then
begin
HSendBtn:=GetDlgItem(HWinHand,1);//得到发送按钮的句柄
HSendText:=GetWindow(GetDlgItem(HWinHand,0),GW_CHILD);//得到消息文本框的句柄
i:=Random(10);
SetWndText(HSendText,say[i]);
SendMessage(HSendBtn,WM_LBUTTONDOWN ,MK_LBUTTON,0);
SendMessage(HSendBtn,WM_LBUTTONUP,0,0);
//exit;
end;
HWinHand:= GetWindow(HWinHand,GW_HWNDNEXT);
end;
end;

//得出窗口文本
function TForm1.GetWndText(hWnd: HWND): String;
Var
Ret:LongInt;
mText:PChar;
Buf:Integer;
begin
Ret:=SendMessage(hWnd,WM_GETTEXTLENGTH,0,0)+1;
GetMem(mText,Ret);
try
Buf:=LongInt(mText);
SendMessage(hWnd,WM_GETTEXT,Ret,Buf);
Result:=StrPas(mText);
finally
FreeMem(mText,Ret);
end;
end;
// 发送文本到窗口
procedure TForm1.SetWndText(hWnd: HWND; Text: String);
Var
mText:PChar;
Buf:Integer;
begin
GetMem(mText,Length(Text));
StrCopy(mText,PChar(Text));
try
Buf:=LongInt(mText);
SendMessage(hWnd,WM_SETTEXT,0,Buf);
finally
FreeMem(mText,Length(Text));
end;
end;

回复
linzhengqun 2004-07-18
隐藏进程就是一个大问题了。
其他就好做啊,看Delphi5开发人员指南
调用各部程序
调用外部程序并等待其结束
程序源码 :
首先定义以下变量
var sInfo : TStartupInfo;
pInfo : TProcessInformation;
cmdLine : String;
exitCode : Cardinal;
// 下面是调用过程
cmdLine := 'c:\winnt\notepad.exe';
FillChar(sInfo,sizeof(sInfo),#0);
sInfo.cb := SizeOf(sInfo);
sInfo.dwFlags := STARTF_USESHOWWINDOW;
sInfo.wShowWindow := SW_NORMAL;

if not CreateProcess(nil,pchar(cmdLine),nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, sInfo, pInfo) then
MessageBox(Application.handle,'指定程序启动失败!','错误',MB_OK or MB_ICONSTOP)
else
begin
WaitForSingleObject(pInfo.hProcess,INFINITE);
GetExitCodeProcess(pInfo.hProcess,exitCode);
end;


回复
明行 2004-07-18
没有人啊???
回复
发动态
发帖子
Windows SDK/API
创建于2007-08-02

1145

社区成员

Delphi Windows SDK/API
申请成为版主
社区公告
暂无公告