Delphi的开发人员也有粗心的地方吗？ ( 积分: 30 )

YuZi · 2005-07-30

在ShellAPI单元中： function SHGetFileInfoA(pszPath: PAnsiChar; dwFileAttributes: DWORD;  var psfi: TSHFileInfoA; cbFileInfo, uFlags: UINT): DWORD; stdcall; {$EXTERNALSYM SHGetFileInfoW} function SHGetFileInfoW(pszPath: PAnsiChar; dwFileAttributes: DWORD;  var psfi: TSHFileInfoW; cbFileInfo, uFlags: UINT): DWORD; stdcall; 下面的SHGetFileInfoW定义中，参数 pszPath竟然也是: PansiChar型，这样就没法取Unicode路径的文件信息了，是不是弄错了？如果是的话，用什么方式修正比较好？ 哪位高手来给我确认一下，谢谢！

YuZi · 2005-07-30

在ShellAPI单元中： function SHGetFileInfoA(pszPath: PAnsiChar; dwFileAttributes: DWORD;  var psfi: TSHFileInfoA; cbFileInfo, uFlags: UINT): DWORD; stdcall; {$EXTERNALSYM SHGetFileInfoW} function SHGetFileInfoW(pszPath: PAnsiChar; dwFileAttributes: DWORD;  var psfi: TSHFileInfoW; cbFileInfo, uFlags: UINT): DWORD; stdcall; 下面的SHGetFileInfoW定义中，参数 pszPath竟然也是: PansiChar型，这样就没法取Unicode路径的文件信息了，是不是弄错了？如果是的话，用什么方式修正比较好？ 哪位高手来给我确认一下，谢谢！

刘麻子 · 2005-07-30

谁都有可能出错的地方, 下面是shellapi.h中的定义, 看起来ShellAPI.pas是写错了~ (LPCWSTR = PWideChar) SHSTDAPI_(DWORD) SHGetFileInfoW(LPCWSTR pszPath, DWORD dwFileAttributes, SHFILEINFOW FAR *psfi, UINT cbFileInfo, UINT uFlags);

YuZi · 2005-07-30

麻子兄，我在自己的单元中，重新定义成PWideChar，用起来似乎可以了，您觉得这样可好？

kkyy · 2005-07-30

它只不过传个指针,没啥对不对的,你拿回来转也可以,改也可以.

刘麻子 · 2005-07-30

是的, 指针就是一个32位的变量. (目前如此)

YuZi · 2005-07-30

但如果用PAnsiChar是得不到unicode字符为名的文件夹内的文件的信息（就是调用失败） 而如果用PWideChar却可以成功。不信两位大侠可以试试，比如我有一个这样的文件夹：kkk&yuml;&yuml;

刘麻子 · 2005-07-30

就用原来的错误声明来调用: procedure TForm1.Button1Click(Sender: TObject); const  WsFileName: array[0..8] of Word = ($0043, $003A, $005C, $006B, $006B, $006B, $00FF, $00FF, $0000); var  SHFileInfo: TSHFileInfoW; begin  MessageBoxW(0, @WsFileName[0], 'Mz', 0);  SHGetFileInfoW(PChar(@WsFileName[0]), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_TYPENAME);  ShowMessage(SHFileInfo.szTypeName); end;

刘麻子 · 2005-07-30

或者： procedure TForm1.Button2Click(Sender: TObject); var  WsFileName: WideString;  J: Integer;  S: string;  SHFileInfo: TSHFileInfoW; begin  WsFileName := 'C:/kkk'#0#0;  WsFileName[7] := #$FF;  WsFileName[8] := #$FF;  //PDWORD(@WsFileName[7])^ := $00FF00FF;  MessageBoxW(0, @WsFileName[1], 'Lm', 0);  S := '';  for J := 1 to Length(WsFileName) do  begin    S := S + '$' + IntToHex(PWord(@WsFileName[J])^, 4) + ', ';  end;  ShowMessage(S);  SHGetFileInfoW(PChar(@WsFileName[1]), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_TYPENAME);  ShowMessage(SHFileInfo.szTypeName); end;

刘麻子 · 2005-07-30

试了一下,也可以直接定义: const sFileName: WideString = WideString('C:/kkk') + WideChar($FF) + WideChar($FF);

刘麻子 · 2005-07-30

问一句, 楼主是什么版本的Delphi? 在代码编辑窗口中可以输入"&yuml;"这样的符号吗?

YuZi · 2005-07-30

用的是Delphi7,用下面的语句建的目录， CreateDirectoryW(WideString('f:/kkk')+WideChar($00FF)+WideChar($00FF), nil);

YuZi · 2005-07-30

var  SHFileInfo: TSHFileInfoW;  FN : WideString; begin  fn := WideString('f:/kkk') + WideChar($00FF) + WideChar($00FF) + '/abc.bat';  SHGetFileInfoW(PChar(fn), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_TYPENAME);  ShowMessage(SHFileInfo.szTypeName); 郁闷，现在这样也可以了，有一条警告信息，可能是刚才试错了，晕~~~~~~~

YuZi · 2005-07-30

哦，刚才试的是这样的目录，其实两个函数都不能取得其内的文件的信息，可能试各种情况时，弄晕了 f:/recycled/S-1-5-21-1060284298-811497611-11778920086-500/com1.{21ec2020-3aea-1069-a2dd-08002b30309d}/Di1  /kkk&yuml;&yuml;. 谢谢麻子兄！谢谢kkyy！

Delphi的开发人员也有粗心的地方吗？ ( 积分: 30 )

YuZi

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

YuZi

Unregistered / Unconfirmed

Similar threads