08 2022 档案

Delphi 判断某个系统服务是否存在及相关状态

摘要：1 记得use WinSvc; 2 3 // 4 // 获取某个系统服务的当前状态 5 // 6 // return status code if successful 7 // -1 if not 8 // 9 // return codes: 10 // SERVICE_STOPPED 11 / 阅读全文

posted @ 2022-08-13 08:52 Thenext 阅读(194) 评论(0) 推荐(0) 编辑

TRzProgressBar使用

摘要：TRzProgressbar组件需要修改的属性为 ShowPercent 是否显示百分比 TotalParts 定义进图条的长度，这里设置为30 borderOuter定义进度条外框的轮廓，这里设置为fsFlat parentFlag=false;不显示父窗体的颜色； PartsComplete 阅读全文

posted @ 2022-08-11 10:47 Thenext 阅读(83) 评论(0) 推荐(0) 编辑

delphi 获取当前路径

摘要：1 方法一：不带\ 2 3 GetCurrentDir 4 5 6 7 方法二：带\ 8 9 ExtractFilePath(Application.ExeName); 10 11 方法三：带\ 12 13 ExtractFilePath(paramstr(0)) 14 edit1.Text:=Pa 阅读全文

posted @ 2022-08-09 10:26 Thenext 阅读(1478) 评论(0) 推荐(0) 编辑