Delphi Function
mypqx
这个作者很懒,什么都没留下…
展开
-
判断一个文件是否正在被使用
方法一:function IsFileInUse(FileName: string): Boolean;var H: THandle;begin Result := False; try H := FileOpen(FileName, fmShareExclusive); if H=INVALID_HANDLE_VALUE then Result原创 2012-12-27 15:27:54 · 1238 阅读 · 0 评论 -
Delphi获取系统特殊路径
unit DemoMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShlObj, ComCtrls, StdCtrls, Registry;type TForm1 = class(TForm) ListView原创 2013-07-23 15:12:10 · 1772 阅读 · 0 评论 -
delphi设置程序日期格式
delphi设置程序日期格式//让Delphi程序不受Windows日期格式的影响procedure SetSysDateFormat;begin // 设置WINDOWS系统的短日期的格式 SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LO CALE_SSHORTDATE, 'yyyy-MM-dd'); Application.UpdateF原创 2013-11-21 17:15:33 · 3939 阅读 · 0 评论