var strDir : String;//預設的選擇目錄 請問使用SelectDirectory('挑選目錄', '', strDir)這種選擇目錄的方法，每次選擇視窗都會出現在右下角，有辦法移到其他位置嗎? ------------------------ 創造其實就是...... 轉個彎看世界......

hi,darnell: 1.我呼叫SelectDirectory,視窗會出現在中央,並沒有像你說的在右下角的位置. 2.如果你要讓跳出來的視窗,可以在其他地方出現,那麼,你可能要自己寫自己的SelectDirectory function. source code在Delphi目錄下的\source\vcl\filectrl.pas檔裡.你可以發現原來的程式只是動態產生一個TSelectDirDlg的畫面而已.你可以自加再上那個form的Top及Left等屬性,也能改變視窗出現的位置.試試看

謝謝你的回答... SelectDirectory一共有兩種產生的樣式... 其中SelectDirectory(Directory,Options,HelpCtx):Boolean;所產生的對話框的確在正中央，可是我是需要用另外一種可以選取網路芳鄰的目錄 SelectDirectory('挑選目錄', '', strDir)此種所產生的對話框我也有想過你說的加入屬性來改變位置，可是第二種的原始碼並不像第一種方式可以輕易改變，也或許我不太了解可以加在哪裡，請再指點謝謝~  

function SelectDirectory(const Caption: string; const Root: WideString;
  var Directory: string): Boolean;
var
  WindowList: Pointer;
  BrowseInfo: TBrowseInfo;
  Buffer: PChar;
  OldErrorMode: Cardinal;
  RootItemIDList, ItemIDList: PItemIDList;
  ShellMalloc: IMalloc;
  IDesktopFolder: IShellFolder;
  Eaten, Flags: LongWord;
begin
  Result := False;
  if not DirectoryExists(Directory) then
    Directory := '';
  FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
  if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then
  begin
    Buffer := ShellMalloc.Alloc(MAX_PATH);
    try
      RootItemIDList := nil;
      if Root <> '' then
      begin
        SHGetDesktopFolder(IDesktopFolder);
        IDesktopFolder.ParseDisplayName(Application.Handle, nil,
          POleStr(Root), Eaten, RootItemIDList, Flags);
      end;
      with BrowseInfo do
      begin
        hwndOwner := Application.Handle;
        pidlRoot := RootItemIDList;
        pszDisplayName := Buffer;
        lpszTitle := PChar(Caption);
        ulFlags := BIF_RETURNONLYFSDIRS;
        if Directory <> '' then
        begin
          lpfn := SelectDirCB;
          lParam := Integer(PChar(Directory));
        end;
      end;
      WindowList := DisableTaskWindows(0);
      OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
      try
        ItemIDList := ShBrowseForFolder(BrowseInfo);
      finally
        SetErrorMode(OldErrorMode);
        EnableTaskWindows(WindowList);
      end;
      Result :=  ItemIDList <> nil;
      if Result then
      begin
        ShGetPathFromIDList(ItemIDList, Buffer);
        ShellMalloc.Free(ItemIDList);
        Directory := Buffer;
      end;
    finally
      ShellMalloc.Free(Buffer);
    end;
  end;
end; 

------------------------ 創造其實就是...... 轉個彎看世界......

好吧！這是您要的程式碼。    其中我已修改視窗會直接顯示正中央。    

Function SelectDirectory(const Caption: string; const Root: String;
                         out Directory: String): Boolean;
  function CBBrowseForFolder(Wnd: HWND; uMsg: UINT;
                             lParam, lpData: LPARAM): Integer stdcall;
  Var
    WRect : TRect;
  begin
    Result:= 0;
    case uMsg of
      BFFM_INITIALIZED:
        begin
          WRect.Left := 0;WRect.Top := 0;
          if Windows.GetClientRect(Wnd,WRect) then
          begin
            WRect.Left :=(GetSystemMetrics(SM_CXSCREEN) - WRect.Right) div 2;
            WRect.Top  :=(GetSystemMetrics(SM_CYSCREEN) - WRect.Bottom) div 2;
          end;
          SetWindowPos(Wnd, 0,WRect.Left,WRect.Top, 0, 0,
                       SWP_NOACTIVATE or SWP_NOSIZE or SWP_NOZORDER);
        end;
    end;
  end;
var
  WindowList: Pointer;
  BrowseInfo: TBrowseInfo;
  Buffer: PChar;
  RootItemIDList, ItemIDList: PItemIDList;
  ShellMalloc: IMalloc;
  IDesktopFolder: IShellFolder;
  Eaten, Flags: LongWord;
begin
  Result := False;
  Directory := '';
  FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
  if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then
  begin
    Buffer := ShellMalloc.Alloc(MAX_PATH);
    try
      RootItemIDList := nil;
      if Root <> '' then
      begin
        SHGetDesktopFolder(IDesktopFolder);
        IDesktopFolder.ParseDisplayName(Application.Handle, nil,
          POleStr(Root), Eaten, RootItemIDList, Flags);
      end;
      with BrowseInfo do
      begin
        hwndOwner := Application.Handle;
        pidlRoot := RootItemIDList;
        pszDisplayName := Buffer;
        lpszTitle := PChar(Caption);
        ulFlags := BIF_RETURNONLYFSDIRS;
        lpfn := @CBBrowseForFolder;
      end;
      WindowList := DisableTaskWindows(0);
      try
        ItemIDList := ShBrowseForFolder(BrowseInfo);
      finally
        EnableTaskWindows(WindowList);
      end;
      Result :=  ItemIDList <> nil;
      if Result then
      begin
        ShGetPathFromIDList(ItemIDList, Buffer);
        ShellMalloc.Free(ItemIDList);
        Directory := Buffer;
      end;
    finally
      ShellMalloc.Free(Buffer);
    end;
  end;
end;

耶,被wameng搶先了 好吧,這裡有解說可以參考 http://delphi.about.com/library/weekly/aa122803a.htm 重點在設定TBrowseInfo.lpfn指到一個callback的function

to change.jian 版主大大！    Sorry.... 被我多此一舉了，給搶先了。 想必對大大而言，這個問題是輕而易舉的。    恭喜大大，差一分就破百了！ 恭喜！恭喜！< >< >

引言:
Sorry....
被我多此一舉了，給搶先了。
想必對大大而言，這個問題是輕而易舉的。 恭喜大大，差一分就破百了！
恭喜！恭喜！

真的非常感謝兩位

編輯記錄