文章分类 -  Delphi

sendmessge listbox
摘要：if(WinExec("D:\\RLS_2_2_52_0\\LoggingTool.exe",SW_SHOW)<31) { // ShowMessage("LOG TOOL OPEN SUCCESS"); } HWND MainWin; Sleep(1000); MainWin=FindWindow 阅读全文
posted @ 2021-12-31 12:23 一梦五千年 阅读(116) 评论(0) 推荐(0)
delphi – 如何从我的GUI应用程序启动控制台窗口的处理？
摘要：在我的GUI应用程序中,我运行控制台应用程序,需要其窗口的处理.我尝试使用Enum Windows(),看下面的代码,但它不起作用.在列表中没有我的控制台应用程序 1 type 2 TEnumWindowsData = record 3 ProcessId: Cardinal; 4 WinHandl 阅读全文
posted @ 2021-04-19 08:38 一梦五千年 阅读(481) 评论(0) 推荐(0)
delphi 秒计算分钟、小时函数
摘要：1 function GetTimeStr(Sec: Integer): string; 2 begin 3 if Sec >= 3600 then 4 Result := Format('%d hour %d min %d sec', [Sec div 3600, Sec mod 3600 div 阅读全文
posted @ 2021-04-19 08:34 一梦五千年 阅读(476) 评论(0) 推荐(0)
一个可以不断执行命令、能读取命令输出而且隐藏的DELPHI CONSOLE类
摘要：1 unit uConsole; 2 3 interface 4 5 uses 6 System.Classes; 7 8 type 9 IConsole = interface['{3151E6A8-FCDC-474A-8403-794BF25826BF}'] 10 function GetOut 阅读全文
posted @ 2021-04-19 02:48 一梦五千年 阅读(285) 评论(0) 推荐(0)
创建进程时指定其父进程
摘要：uses Windows, PsAPI, SysUtils; const SE_SECURITY_NAME = 'SeSecurityPrivilege'; PROC_THREAD_ATTRIBUTE_PARENT_PROCESS = $00020000; EXTENDED_STARTUPINFO_ 阅读全文
posted @ 2021-03-31 14:32 一梦五千年 阅读(719) 评论(0) 推荐(0)
delphi 怎么将一个流转换成字符串？或者将字符串转出一个流
摘要：(*// 标题:充分利用pascal字符串类型 说明:和PChar不同,string可以保存#0字符在其中;示例文件、内存流字符串之间转换 设计:Zswang 日期:2002-01-25 支持:wjhu111@21cn.com //*) ///////Begin Source function St 阅读全文
posted @ 2021-03-25 17:21 一梦五千年 阅读(299) 评论(0) 推荐(0)
Delphi String 常用字串符处理函数
摘要：Delphi 在面对跨平台开发，程序语言也改进不少，不过有些改进，让原本 Delphi 开发者有些不适应，最显注的就是字串处理函数了，原本 Pascal 语言字串起始由 1 开始，几乎是它的经典了，新版本字串由 0 开始，这个改变，让很多人不适应，也多有抱怨，虽然 Delphi 尽量保有相容性，但如 阅读全文
posted @ 2020-06-03 17:11 一梦五千年 阅读(160) 评论(0) 推荐(0)