社区
Delphi
帖子详情
为什么调用 winexec 执行程序不成功,返回值:The system is out of memory or resources.
hellowbh
2003-08-21 11:47:21
而在资源管理器中执行任何程序都可以,不存在系统资源不足的问题。
有时候在任务管理器中发现被调用程序执行了好多次。
...全文
228
7
打赏
收藏
为什么调用 winexec 执行程序不成功,返回值:The system is out of memory or resources.
而在资源管理器中执行任何程序都可以,不存在系统资源不足的问题。 有时候在任务管理器中发现被调用程序执行了好多次。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shockjoy
2003-08-21
打赏
举报
回复
参数部队吧
shockjoy
2003-08-21
打赏
举报
回复
贴出代码看看
blackbeetle
2003-08-21
打赏
举报
回复
办法就是关闭delphi,重启,但是最终的办法还是仔细看看你的源代码,看看那些地方资源没有释放,一定要考虑到运行出错的情况,因为在这种情况下,你的释放资源的代码可能没有执行。
blackbeetle
2003-08-21
打赏
举报
回复
可能是你的delphi调试的次数太多了,而每次分配的资源又没有及时释放。
hellowbh
2003-08-21
打赏
举报
回复
问题在这里,我把这段给注释掉就没有问题了.
我是遍历一个目录,比较该目录与别的目录中文件日期是否一致。
hFile1 := CreateFile(PChar(src+SearchRec.Name), GENERIC_READ,
FILE_SHARE_READ, nil, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
if hFile1 = INVALID_HANDLE_VALUE then
begin
writeln(LogFile,'比较日期时打开源文件错误:'+src+SearchRec.Name);
ReValue:=FindNext(SearchRec);
Continue;
end;
hFile2 := CreateFile(PChar(des+SearchRec.Name), GENERIC_Write,
FILE_SHARE_write, nil, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
if hFile2 = INVALID_HANDLE_VALUE then
begin
writeln(LogFile,'比较日期时打开目的文件错误:'+des+SearchRec.Name);
ReValue:=FindNext(SearchRec);
continue;
end;
GetFileTime(hFile1, nil, nil, @File1LastModifyTime);
GetFileTime(hFile2, nil, nil, @File2LastModifyTime);
}
lResult := CompareFileTime(File1LastModifyTime,File2LastModifyTime);
后来改为lresult:=comparedatetime(FileDateToDateTime(FileAge(src+SearchRec.Name)),FileDateToDateTime(FileAge(des+SearchRec.Name)) );
一句就可以了。
IORILI
2003-08-21
打赏
举报
回复
张用内存的东西用完了要释放
nhdj
2003-08-21
打赏
举报
回复
模糊记得好像遇到过这种问题,具体怎么解决的给忘了
你贴出代码看看
编程高手箴言
编程高手箴言 书名: 编程高手箴言 作者: 梁肇新 来源: 电子工业出版社 ISBN: 7-5053-9141-0 页数: 416 开本: 16开 出版时间: 2003年11月 定价: 50元 内容简介: 本书是作者十余年编程生涯中的技术和经验的总结。内容涵盖了从认识CPU、
Win
dows运行机理、 编程语言的运行机理,到代码的规范和风格、分析方法、调试方法和内核优化,内有作者对许多问题 的认知过程和透彻的分析,以及优秀和精彩的编程经验。 第1章 程序点滴 1.1 程序≠软件(1) 1.1 程序≠软件(2)
Win
dows API 实现查找、删除任意类型的文件_VERSION20120612(vc6.0调试通过)(2012.6.12最新修改)...
Win
dows API 实现查找、删除任意类型的文件_VERSION20120612(vc6.0调试通过)(2012.6.12最新修改) // FileToolsV20120605.cpp : Defines the entry point for the application. // //用vc6.0建立一个
win
32简单应用程序 ...
Win
dows API 实现查找、删除任意类型的文件_VERSION20120612(vc6.0调试通过)(2012.6.12最新修改)
// FileToolsV20120605.cpp : Defines the entry point for the application. // //用vc6.0建立一个
win
32简单应用程序 #include "stdafx.h" #include #include #include #include #include #include #include
Win
dows创建进程
1.
Win
Exrc()函数 这个函数还存在是为了兼容一千老式的16位机而存在的,它的函数原型为: UINT
WIN
API
Win
Exec
( _In_ LPCSTR lpCmdLine, _In_ UINT uCmdShow ); 参数解析: lpCmdLine:是命令行参数,也就是使用exe的文件路径和后面的命令行参数 uCmdShow:窗口显示的风格,参数的含义可以参考
在程序内启动其他进程(程序)
使用代码来启动另外一个程序,有很多方法,归结起来主要有以下几个函数,他们的说明及使用特点分别归纳在下表中。 ① Shell
Exec
ute函数 下面的大部分信息来自于MSDN。 函数原型:HINSTANCE Shell
Exec
ute( HWND hwnd, //指定父窗体句柄 LPCTSTR lpO
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章