运行时程序如何读程序自身 只需要读取不需要改写。比如做自身校验 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我试了 AssignFile FileOpen TFileStream 都不行 Filename := ParamStr(0); //打开文件 hFile := CreateFile( PChar(FileName), GENERIC_READ, FILE_SHARE_READ , Nil, OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE or FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_NORMAL or FILE_ATTRIBUTE_SYSTEM, 0 );... 昨天搞定 了不是代码问题...是调试状态 ide占用..编译出来 运行代码都没问题 Filename := ParamStr(0); WinExec(PChar(Filename), SW_SHOWMAXIMIZED); 这个哥们对,会提示占用就是你自己已经以独占模式createfile了自己。或者你调用第三方控件的代码独占了,而你不知道。或者是杀毒软件等其他程序独占了 使用Delphi的dxFlowchart控件的TdxFcObject的shapetype dbgrid的小问题 新手,菜鸟问题,望各位指教 真邪门,关于TStringStream 流 请问有水有基于Edit开发的第三方控件,可以输入Date,Time等等,推荐几个做的比较完善的吧 帮忙看一下 哪里有VCL方面的中文参考资料。 如何实现多数据库查询连接? 我这样为何不对?? 大家来看看这个问题吧 Delphi7 & FastReport 2.5打印二维码问题 求教delphi消息机制,我想做一个点击窗口任意位置就关闭窗口的操作
//打开文件
hFile := CreateFile( PChar(FileName),
GENERIC_READ,
FILE_SHARE_READ ,
Nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_ARCHIVE or
FILE_ATTRIBUTE_HIDDEN or
FILE_ATTRIBUTE_NORMAL or
FILE_ATTRIBUTE_SYSTEM,
0
);
...
是调试状态 ide占用..
编译出来 运行代码都没问题
Filename := ParamStr(0);
WinExec(PChar(Filename), SW_SHOWMAXIMIZED);