高手，对MS有严重催残倾向对INPRISE有明显爱癖的朋友请进：《是CreateFile()不对，还是我不对？》 By 3H(200分)

3h · 1999-05-27

声明：以下均在DELPHI4中经历。 原委：     因为需要得到某一目录的打开句柄（皆为使用SetFileTime 函数可以使用...），花了狠久时间翻了好页帮助文件之后，终 于发现CreateFile()函数可以打开目录并获得句柄。     大家看帮助文件，应该没问题吧：     （来自文件../Borland Shared/MSHelp/win32.hlp） The CreateFile function creates or opens the following objects and returns a handle that can be used to access the object:   Files   pipes   mailslots   communications resources   disk devices (Windows NT only)   consoles   directories (open only)   *********************** 虽然是OPEN ONLY，也将就了，反正是取得其句柄即可。于是： procedure TForm1.Button1Click(Sender: TObject); Const    FileName = 'e:/123';    //这是一个已存在的目录 Var    q : THandle; begin    try       Q := CreateFile( FileName+#0,                     GENERIC_WRITE,                     0,                     0,                     OPEN_ALWAYS ,                     FILE_ATTRIBUTE_NORMAL,                     0);       ShowMessage(IntToStr(Q));   //看看它究竟是多少       if Q = INVALID_HANDLE_VALUE then          ShowMessageBox(FileName + ' open error.');    finally       CloseHandle(Q);    end; end; 没想到得到的Q=4294967295，也就是-1，结果当然是显示 “打开错误”了。大家不妨看看函数的定义原型： HANDLE CreateFile(   LPCTSTR lpFileName, // pointer to name of the file   DWORD dwDesiredAccess, // access (read-write) mode // 按要求设置为GENERIC_WRITE   DWORD dwShareMode, // share mode // 没什么好共享的   LPSECURITY_ATTRIBUTES lpSecurityAttributes, // pointer to security attributes // 没什么安全要求（95/98）所以忽略了   DWORD dwCreationDistribution, // how to create // 已存在的，就用OPEN_ALWAYS   DWORD dwFlagsAndAttributes, // file attributes // 来个一般属性罢：FILE_ATTRIBUTE_NORMAL   HANDLE hTemplateFile // handle to file with attributes to copy // 95/98明文禁止使用，不得已，用0.   ); 返回值有两种情况： 成功为句柄. 失败为INVALID_HANDLE_VALUE (=-1). 很不幸，此例的结果属于后者。 至于详细的帮助大家可看看开始菜单中 Borland Delphi 4   /Help     /MS SDK Help Files       /Win32 Programmer's Reference         -> CreateFile 的描述，算是比较详细了。 不过我不明白的是，如果将上面的FileName换成一个文件， 就能返回成功的句柄，只要是目录，此功能就会失败！ 究竟是什么原因？是我在程序中参数有错误？还是...... MS的帮助文件有错误？它的函数没有支持这样的功能？ 请求大家解答， 特别是高手们， 对MS有严重催残倾向对DELPHI有明显爱癖的朋友们。

李颖 · 1999-05-27

老兄，读书虽多，却不认真， Win32 Help文档后面明明写得很清楚啊！ Directories An application cannot create a directory with CreateFile; it must call CreateDirectory or CreateDirectoryEx to create a directory. Windows NT: You can obtain a handle to a directory by setting the FILE_FLAG_BACKUP_SEMANTICS flag. A directory handle can be passed to some Win32 functions in place of a file handle. 应用程序不能使用CreateFile函数创建目录，必须使用CreateDirectory或CreateDirectoryEx函数 Windows NT下： 可以通过设置FILE_FLAG_BACKUP_SEMANTICS标志获得一个目录的句柄。。。。 Win32 Help的相关部分(Directory Operations)也有说明如下： Windows NT: You can obtain a handle to a directory by calling the CreateFile function with the FILE_FLAG_BACKUP_SEMANTICS flag set, as follows: hDir = CreateFile (     DirName,     GENERIC_READ,     FILE_SHARE_READ|FILE_SHARE_DELETE,     NULL,     OPEN_EXISTING,     FILE_FLAG_BACKUP_SEMANTICS,     NULL ); 你的代码错误在于： 1、应该用Generic_Read，目录是可以写的吗？ 2、应该用Open_Existing Win95下是否可行我没试过，如果有问题，写信给我。

menxin · 1999-05-27

李颖凶：请你认真些，先看清题意：得到一目录的句柄，而非是要创建目录。                               ~~~~~~~~~~~~~~~         你所说的代码错误改过之后在95下也是一样出错，如你真能解决这一问题，         请你再发表些高见！ 3h兄：不知你要做些什么，得到句柄的确不易，但我用getlasterror返回的值时有     所发现：即如目录不存在与存在error值会有不同，不知对你是否有用，其它的     还得靠你自己了。

3h · 1999-05-27

To 李兄：     虽然您有点急了，不过还是很感激，事实上您为了这道题看了HELP文件。     如果有什么进展的话还是希望您继续发表一些高见。     写信太...了,大家都见不到,还是论坛好.

TO menxin： >不知你要做些什么     看来你对题意也是没有怎么详细注意。哈哈哈     只是为了使用SetFileTime()函数，试图用它修改目录的时间。 >但我用getlasterror返回的值时有所发现： >即如目录不存在与存在error值会有不同，不知对你是否有用，     当然有用。不过我试图用另一个函数将getlasterror结果转化成     字串时有问题，因此无法知道它是什么错。老兄可有办法？     题目的出处是，我要改变某个目录的建立时间，找来找去只有 SetFileTime()函数可用，但它必须是用 GENERIC_WRITE 打开的对象， 因此我想到用CreateFile来打开它，并取得句柄。实际是我觉得也只有 用这个办法才能取得它的句柄，并且我认为只要这个是正确是操作就一 定能够正常进行[SetFileTime()]。这样说，只是一贯以来，文件和目录 都是同等待遇的，君不见用 FindFirst() FindNext() FindClose() 对文件和目录都是一视同仁的吗？     故有此问。     希望高手们勇跃作答。200分........

huizhang · 1999-05-27

权威消息, 来自微软的MSDN: Window 95/98不支持用 CreateFile 来打开一个目录, 在95/98下只能用FindFirstFile. Const   FileName = 'C:/Tools'; //这是一个已存在的目录 Var   q : THandle;   FindData: TWin32FindData; begin   try     Q := FindFirstFile(PChar(FileName), FindData);     ...

3h · 1999-05-27

但SetFileTime()函数需要的是用 GENERIC_WRITE 打开的句柄， 这个能行吗？

menxin · 1999-05-27

我看此问题不会轻易解决。

CJ · 1999-05-27

It seems a bit hard

Red, blue, Green, Black... So much colors let me see....

3h · 1999-05-27

hehe, CJ, can you...

huizhang · 1999-05-28

3h, here is a way to show lastError message: var ErrMsg: string begin     FormatMessage(       FORMAT_MESSAGE_ALLOCATE_BUFFER or       FORMAT_MESSAGE_FROM_SYSTEM, //needed for GetLastError       0,       GetLastError, //call GetLastError       Lang_Neutral,       @ErrMsg, //a string variable Error message string       0, //max size of buffer       nil);       showMessage(ErrMsg); end;

李颖 · 1999-05-28

我不过把帮助多翻译了一句，就被指为不理解题意， 不白之冤啊！！！！

3h · 1999-05-28

我用了，看来还是要取得那个通用的写打开句柄才行

lhz · 1999-05-29

经我的实验,WINZIP也不能恢复目录的时间,所以 可能不能在现阶段的Win32API上实现你要求的功 能.如果有哪个压缩软件可以实现(要求是32位的), 应该就有办法.

LSS · 1999-05-29

取得已经存在的目录句柄而非创建，为什么要用create

3h · 1999-05-29

to lhz: 其实WINZIP在展开时应该只是简单的建一个目录， 而不是“展开”原有的目录，我认识是这样。 to LSS: 我觉得除些好象没有什么别的方法可取得打开目录时的句柄。 老兄可有什么良策？

menxin · 1999-06-03

你的问题还没有解决，看来只得找找未公开的 win api 了。

3h · 1999-06-04

看来用API应该没什么希望。 我想用直接磁盘读写，读文件分配表，得到某一个文件夹的位置，然后写进此位置。 不过应该对 FAT16 和 FAT32 十分熟识。 高手们发表一下意见如何？

Another_eYes · 1999-06-04

FILE_ATTRIBUTE_NORMAL ?? 这个属性对吗? dos下文件有个attribute位指明是否目录(忘了哪一位了). 进入95/NT时代难道取消了?

3h · 1999-06-05

to Another_eYes:    你没注意看题了。    我想要的是打开目录的句柄，好让它也能进行修改。

Another_eYes · 1999-06-05

我的理解 FILE_ATTRIBUTE_NORMAL表明没有特殊属性(不是目录) 所以createfile把您的目录名当成一个文件请求, 而且您设置了OPEN_AWAYS, 在不存在 CREATE_NEW时当然无法打开了(如果您没有一个同时叫e:/123的文件的话)

高手，对MS有严重催残倾向对INPRISE有明显爱癖的朋友请进：《是CreateFile()不对，还是我不对？》 By 3H(200分)

3h

Unregistered / Unconfirmed

李颖

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

李颖

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

lhz

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

3h

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

Similar threads