5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
waysoft 2003-04-26
- 打赏
- 举报
学习
u2m 2003-04-26
- 打赏
- 举报
GetFileAttributes(filaname:PChar):DWORD
返回值
Value
FILE_ATTRIBUTE_ARCHIVE
FILE_ATTRIBUTE_COMPRESSED
FILE_ATTRIBUTE_DIRECTORY
FILE_ATTRIBUTE_HIDDEN
FILE_ATTRIBUTE_NORMAL
FILE_ATTRIBUTE_OFFLINE
FILE_ATTRIBUTE_READONLY
FILE_ATTRIBUTE_SYSTEM
FILE_ATTRIBUTE_TEMPORARY
返回值
Value
FILE_ATTRIBUTE_ARCHIVE
FILE_ATTRIBUTE_COMPRESSED
FILE_ATTRIBUTE_DIRECTORY
FILE_ATTRIBUTE_HIDDEN
FILE_ATTRIBUTE_NORMAL
FILE_ATTRIBUTE_OFFLINE
FILE_ATTRIBUTE_READONLY
FILE_ATTRIBUTE_SYSTEM
FILE_ATTRIBUTE_TEMPORARY
WWWWA 2003-04-26
- 打赏
- 举报
var attrs:integer;
attrs:=filegetattr('c:\123.dbf');
if (attrs and fareadonly)<>0 then showmessage
('the file is readonly');
fareadonly(0) fahidden(2) fasysfile(4) faarchive(32)
attrs:=filegetattr('c:\123.dbf');
if (attrs and fareadonly)<>0 then showmessage
('the file is readonly');
fareadonly(0) fahidden(2) fasysfile(4) faarchive(32)
giftzhang 2003-04-26
- 打赏
- 举报
给分吧！
giftzhang 2003-04-26
- 打赏
- 举报
ExtractFileExt function
Returns the extension portions of a file name.
Delphi syntax:
function ExtractFileExt(const FileName: string): string;
Description
Use ExtractFileExt to obtain the extension from a file name. For example, the following code returns the extension of the file name specified by a variable named MyFileName:
MyFilesExtension := ExtractFileExt(MyFileName); // Delphi
Returns the extension portions of a file name.
Delphi syntax:
function ExtractFileExt(const FileName: string): string;
Description
Use ExtractFileExt to obtain the extension from a file name. For example, the following code returns the extension of the file name specified by a variable named MyFileName:
MyFilesExtension := ExtractFileExt(MyFileName); // Delphi
