请教!!问一个窗体启动还有隐藏!!!

xk2y 2006-09-21 09:46:44
本人刚学DELPHI 有很多东西都不怎会用```
想问下各位
怎能检测一个程序是不是在运行
如果程序关闭了就再运行它``
在它启动的时候就把它隐藏起来!!!
要用到什么函数还有其他方面的东西!!!!


大家帮帮忙!!!
...全文
136 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
playboy66 2006-09-22
  • 打赏
  • 举报
回复
其实很简单的, findwindows然后postmessage消息。
xk2y 2006-09-22
  • 打赏
  • 举报
回复
想问下```
如果有写程序启动的时候会有个类似说加载的窗体```
怎么把它也隐藏``
让这个程序在后台运行不会弹出任何东西
这样就不会影响前台的`
xk2y 2006-09-22
  • 打赏
  • 举报
回复
啊?????
我是新手```
所以向大家来帮帮忙!!!
findwindows然后postmessage消息 什么意思```
程序启动后怎样去隐藏它呢?

sinkiang大哥ShellExecute怎用的???
xk2y 2006-09-22
  • 打赏
  • 举报
回复
啊?????
我是新手```
随意向大家来帮帮忙!!!
findwindows然后postmessage消息

sinkiang大哥ShellExecute怎用的???
sinkiang 2006-09-22
  • 打赏
  • 举报
回复
突然发现你小子肯定是第一次使用Delphi,并且是0分 空手套白狼,一看就知道从来不逛CSDN论坛,不说了x_x ~~
除非你先给100分,然后偶再帮你搞定当前问题,HOHO~~
sinkiang 2006-09-22
  • 打赏
  • 举报
回复
另外,需要注意的是 ShellExecute 需要引用 ShellAPI 单元。
sinkiang 2006-09-22
  • 打赏
  • 举报
回复
查找窗口名或者句柄,然后发送消息。
拿WindowsXP自带的计算器举例:
procedure TForm1.Button1Click(Sender: TObject);
var
hWndClose: HWnd;
begin
hWndClose := FindWindow(nil, '计算器');
if hWndClose <> 0 then
SendMessage(hWndClose,WM_CLOSE,0,0)//若发现在运行则关闭它
else
ShellExecute(Handle, 'open', PChar('c:\windows\system32\calc.exe'), nil, nil, SW_SHOW);//反之,则启动它
end;
//---------------------------------------

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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