比较简单的实现办法,是使用第三方控件,比如 TRxFolderMonitor、CnPack 组哗樱件斗纳包中的TCnFileSystemWatcher 等。
usesShellAPI
ShellExecute(Handle,'open','Explorer.exe','C:\Windows',nil,1)
这样可以打开C:\蔽樱枝Windows,如果需要其它目录的话,可以自宏敏己设置一下就行颂雹了。
var Str:stringFileText:TstringList
begin
......
FileText:=Tstringlist.Create
FileText.LoadFromFile('123.DAT')
Str:=FileText.Text
if Str='' then
showmessage('文件内运绝闭容为空'宏散)
else
//计算文旁裂件大小
......
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)