shell32的SHCreateDirectoryEx 如何使用？ < src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯，唯學是岸！ 因為擁有，所以分享！

在 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shcreatedirectoryex.asp  裡說 SHCreateDirectoryEx 在 shell32.dll 5.0 內 小弟的 win2k 的 shell32.dll 的 version 是 5.0.3900.6975 可是沒有找到 ShCreateDirectoryEx 只有 ShCreateDirectoryExA 或 ShCreateDirectoryExW

procedure TForm1.Button1Click(Sender: TObject);
type
  TMyType = function (hwnd: HWND; pszPath: PChar; SECURITY_ATTRIBUTES: PSecurityAttributes): UINT; stdcall;
var
  hLib: THandle;
  pFun: TMyType;
begin
  hLib := LoadLibrary('c:\winnt\system32\shell32.dll');
  if hLib <> 0 then
    try
      pFun := GetProcAddress(hLib, 'SHCreateDirectoryExA');
      if @pFun = nil then
        ShowMessage(SysErrorMessage(GetLastError))
      else
        pFun(Handle, PChar('c:\Test'), nil);
    finally
      FreeLibrary(hLib);
    end;
end;

謝謝hagar版主指教！    ShCreateDirectoryEx可能只有MSDN才有的寫法，是我的失誤 剛剛去查 src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯，唯學是岸！ 因為擁有，所以分享！