1145
社区成员
- 主页
我要做一个程序启动另一个进程，要求我用我的程序启动这个进程时，这个进程应该是隐藏的，而且我还要往这个隐藏进程的输入框中传字串且触
我要做一个程序启动另一个进程，要求我用我的程序启动这个进程时，这个进程应该是隐藏的，而且我还要往这个隐藏进程的输入框中传字串且触发它的确定按纽？怎么做？
...全文
请发表友善的回复…
发表回复
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 //来发送字符
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;
思路是得到这两个的句柄，再发送相关消息：
以下可以参考一下：
//发送文字到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
隐藏进程就是一个大问题了。
其他就好做啊，看Ｄｅｌｐｈｉ5开发人员指南
调用各部程序
调用外部程序并等待其结束
程序源码 :
首先定义以下变量
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;
其他就好做啊，看Ｄｅｌｐｈｉ5开发人员指南
调用各部程序
调用外部程序并等待其结束
程序源码 :
首先定义以下变量
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
没有人啊？？？