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

明行 2004-07-18 04:10:16
我要做一个程序启动另一个进程,要求我用我的程序启动这个进程时,这个进程应该是隐藏的,而且我还要往这个隐藏进程的输入框中传字串且触发它的确定按纽?怎么做?
...全文
266 16 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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
  • 打赏
  • 举报
回复
没有人啊???
内容概要:本文介绍了DeepSeek在职场中的应用,从提示语技巧到多场景应用,涵盖了DeepSeek的基础模型(V3)、深度思考模型(R1)及其联网搜索功能。文中详细描述了DeepSeek的模型对比,包括操作规范、结果导向、路径灵活性、响应模式和风险特征等方面。此外,还探讨了DeepSeek在制作可视化图表、PPT、海报、视频以及批量生成新媒体文案等具体应用场景中的使用方法和技巧。最后,文章展示了DeepSeek在市场调查、AI应用开发等方面的应用实例,强调了其在人机协同和共生领域的潜力。 适用人群:适用于希望提升工作效率和创新能力的职场人士,特别是从事数据分析、内容创作、市场营销、AI开发等领域的专业人士。 使用场景及目标:①通过DeepSeek的基础模型(V3)和深度思考模型(R1)进行高效的任务处理和复杂推理;②利用DeepSeek制作可视化图表、PPT、海报和视频,提高内容创作的质量和效率;③通过DeepSeek进行市场调查和AI应用开发,优化业务流程并推动创新。 其他说明:DeepSeek不仅提供了强大的AI工具,还强调了人机协同的重要性。用户在使用过程中应注意操作规范,结合实际需求选择合适的模型,并充分利用DeepSeek的各项功能来实现高效的职场应用。文中还提到了多个国际竞赛中的获奖情况,展示了DeepSeek团队在AI领域的卓越实力。

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧