一个很奇怪的问题,在Delphi里编译可运行的程序不能直接用EXE运行

2004-10-20 09:57:27 344 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

[delphi教程]delphi开发教程全攻略（1）如何在Image上提示字符？怎样加入tb2k FastReport4.0安装后中文的问题。怎样单独得到现在的年和月?? [考题]这两种字符串赋值语句有什么区别 TXmlDocument控件使用问题急急急!!!网络数据通讯问题(多线程如何解决???) 关于保存一个Record类型到文件中的问题如何使窗体在用户按下显示桌面之后不会隐藏(不是将它始终置前)谢谢各位大家好，请D 阅读详情

具体情况为:
程序中有2个函数:SendMessage()和keybd_event(),将消息和键盘事件传给1个窗口.在delphi里编译运行没有任何问题,事件都传过去了.
不关闭,注意是不关闭delphi,直接点击编译好的exe文件,这2个事件都没有任何反应.不知道是什么原因.
整个过程中:环境没有改变,还是在本机,delphi也没有关闭.唯一的区别就是一个是delphi编译执行的,一个是直接运行exe

...全文

飞书多维表格+影刀RPA：我如何用3个指令搞定每周的销售数据自动汇总（附完整配置截图）本文详细介绍了如何利用飞书多维表格和影刀RPA实现销售数据的自动化汇总，通过三个核心指令（建立链接、列出记录、更新记录）简化繁琐的手工操作。文章包含完整的配置截图和实战指南，帮助用户快速部署自动化流程，提升工作效率。阅读详情

talkfalse

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

talkfalse 2004-10-25

打赏
举报

怎么做才能让记事本窗口设为最前窗口
SendMessage(hw, WM_SYSCOMMAND, SC_HOTKEY, hw); //编译运行时可以将记事本设为最前窗口的

lw549 2004-10-25

打赏
举报

哈哈，我晕了

NewStarSE 2004-10-24

打赏
举报

SendMessage(hw, WM_SYSCOMMAND, SC_HOTKEY, hw); //这个样子并没有使记事本成为输入窗口。
//你自己的窗口才拥有输入焦点
keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), 0, 0); //记事本当然不能响应按键

需要在发送消息之前先让所有的窗口失去输入焦点，或者将记事本窗口置为最前面的窗口。

hsmserver 2004-10-24

打赏
举报

你用SPY查一下类名
然后再找它的句柄
好象用FindwosA得

talkfalse 2004-10-24

打赏
举报

to hsmserver(撒哈拉之雨的悲伤)
1。怎样做才能实现这个功能？
2。为什么在delphi里编译有反应，能够发一个A过去？

talkfalse 2004-10-24

打赏
举报

在别人的机器上编译的拿过来也不行。别人的环境是XP＋delphi6。我得是win2k＋delphi6

hsmserver 2004-10-24

打赏
举报

其实什么都用不到
那样你根本得不到文件的句柄
所以一点反映都没有

智商无下限 2004-10-24

打赏
举报

那会不会是你的DELPHI里用了什么特殊的控件？
建议关掉DELPHI，或者重新启动WINDOWS试试！
要是还不行，我也实在想不出来了！

talkfalse 2004-10-24

打赏
举报

没有用，试过了。删除后新生成的exe还是不能发消息过去。但是在delphi里直接编译运行的就可以

智商无下限 2004-10-24

打赏
举报

你把你的的可执行文件删除，然后重新编译一个试试！

talkfalse 2004-10-24

打赏
举报

完成的功能仅仅是按一下按钮发一个A到打开的记事本

talkfalse 2004-10-24

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
Var
hw:thandle;
begin
hw:=FindWindow(nil,'1.txt - 记事本');
if hw = 0 then
begin
showmessage('记事本没有打开!');
Exit;
end;

SendMessage(hw, WM_SYSCOMMAND, SC_HOTKEY, hw);
keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), 0, 0);
keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), KEYEVENTF_KEYUP,0);
end;

nicotine 2004-10-22

打赏
举报

问题可能出在SendMessage上，你的pchar是怎么用的，是pchar(string)还是定义pchar再用getmem还是chr:Array[0..255] Of char等等
换其它的方式试试，或不用getmem而用AllocMem
以前碰到的一个问题有点像你的

masterjames 2004-10-21

打赏
举报

贴出代码

ahuige 2004-10-21

打赏
举报

有两点没说清楚,不关闭delphi,但是工程关闭没有.工程在运行没有?

ctrlqrj 2004-10-21

打赏
举报

看来还是要贴出代码才行

快乐老猫 2004-10-21

打赏
举报

窗口是否找对了？
用个LISTBOX把一些信息显示出来，分析那里出了问题。

talkfalse 2004-10-20

打赏
举报

但是确实就遇到了,我怎么都想不明白

ly_liuyang 2004-10-20

打赏
举报

不会吧
真是没有遇到哦

http://lysoft.7u7.net

talkfalse 2004-10-20

打赏
举报

咦!~~~~是我没有描述清楚,还是没人知道啊

一个很奇怪的问题,在Delphi里编译可运行的程序不能直接用EXE运行

相关推荐