2011年9月12日

FindFirstFile

摘要： VC声明HANDLE FindFirstFile( LPCTSTR lpFileName, // file name LPWIN32_FIND_DATA lpFindFileData // data buffer );　lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名 lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索调用失败 返回为INVALID_HANDLE_VALUE(即-1)typedef struct _WIN32_FIND_DATA { // wfd ... 阅读全文

posted @ 2011-09-12 11:06 delphi初学者 阅读(1311) 评论(0) 推荐(0) 编辑

设置文件日期信息

摘要： unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMainForm = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Label2: TLabel; Edit2: TEdit; Button2: TButton; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Ope 阅读全文

posted @ 2011-09-12 11:05 delphi初学者 阅读(230) 评论(0) 推荐(0) 编辑

文件函数

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Button2: TButton; Edit2: TEdit; Button3: TButton; Edit3: TEdit; Button4: TButton; Edit4: TEdit; Button5: TB 阅读全文

posted @ 2011-09-12 09:18 delphi初学者 阅读(216) 评论(0) 推荐(0) 编辑

读取文件属性 FileGetAttr

摘要： procedure TForm1.N17Click(Sender: TObject);//读取文件属性 FileGetAttr;var FileName: string; Attr: Integer; //属性值是一个整数begin FileName := 'F:\test\Test.txt'; Attr := FileGetAttr(FileName); ShowMessage(IntToStr(Attr)); //属性可选值(有些用不着): //FILE_ATTRIBUTE_READONLY = 1; 只读 //FILE_ATTRIBUTE_HIDDEN = 2; 隐藏 . 阅读全文

posted @ 2011-09-12 05:49 delphi初学者 阅读(1042) 评论(1) 推荐(0) 编辑

WinAPI: SetCurrentDirectory、GetCurrentDirectory - 设置与获取当前目录

摘要： WinAPI: SetCurrentDirectory、GetCurrentDirectory - 设置与获取当前目录//声明:SetCurrentDirectory( lpPathName: PAnsiChar {路径名}): BOOL;GetCurrentDirectory( nBufferLength: DWORD; {缓冲区大小} lpBuffer: PAnsiChar {缓冲区}): DWORD; {返回目录实际长度}//举例:var buf: array[0..MAX_PATH] of Char;begin SetCurrentDirect... 阅读全文

posted @ 2011-09-12 05:39 delphi初学者 阅读(730) 评论(0) 推荐(0) 编辑

导航