ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от SkyLine32

Потому что папка создаётся сразу, юзеру же нет возможности при создании директории видеть эту папку и переименовать. Тоесть эффект должен быть такой: юзер жмет Создать папку, она должна в этом окне что на скрине появится и предложить её переименовать. Ну я думаю ты меня понял...

PHP код:


		
			
function BrowseCallbackProc(hwnd: HWND; uMsg: UINT; lParam: LPARAM; lpData:

  LPARAM): Integer; stdcall;

begin

  if (uMsg = BFFM_INITIALIZED) then

    SendMessage(hwnd, BFFM_SETSELECTION, 1, lpData);

  BrowseCallbackProc := 0;

end;



function GetFolderDialog(Handle: Integer; Caption: string; var strFolder:

  string): Boolean;

const

  BIF_STATUSTEXT = $0004;

  BIF_NEWDIALOGSTYLE = $0040;

  BIF_RETURNONLYFSDIRS = $0080;

  BIF_SHAREABLE = $0100;

  BIF_USENEWUI = BIF_EDITBOX or BIF_NEWDIALOGSTYLE;

 

var

  BrowseInfo: TBrowseInfo;

  ItemIDList: PItemIDList;

  JtemIDList: PItemIDList;

  Path: PAnsiChar;

begin

  Result := False;

  Path := StrAlloc(MAX_PATH);

  SHGetSpecialFolderLocation(Handle, CSIDL_DRIVES, JtemIDList);

  with BrowseInfo do

  begin

    hwndOwner := GetActiveWindow;

    pidlRoot := JtemIDList;

    SHGetSpecialFolderLocation(hwndOwner, CSIDL_DRIVES, JtemIDList);

 

    { return display name of item selected }

    pszDisplayName := StrAlloc(MAX_PATH);



    { set the title of dialog }

    lpszTitle := PChar(Caption); //'Select the folder';

    { flags that control the return stuff }

    ulFlags := BIF_RETURNONLYFSDIRS or BIF_NEWDIALOGSTYLE ;

  //  ulFlags := ulFlags or BIF_NEWDIALOGSTYLE or BIF_RETURNONLYFSDIRS;

 //ulFlags := ulFlags or BIF_RETURNONLYFSDIRS;

    lpfn := @BrowseCallbackProc;

    { extra info that's passed back in callbacks }

    lParam := LongInt(PChar(strFolder));

  end;



  ItemIDList := SHBrowseForFolder(BrowseInfo);



  if (ItemIDList <> nil) then

    if SHGetPathFromIDList(ItemIDList, Path) then

    begin

      strFolder := Path;

      Result := True

    end;

end;

PHP код:


		
			
  if not GetFolderDialog(GetStdHandle(STD_OUTPUT_HANDLE), 'Выберите каталог', Path) then

в Path окажется выбор пользователя.

P.s. возможно понадобится uses ShlObj;