Всем здравствуйте

Исходный код подсмотрел здесь
Ссылка
Ссылка

Пишу скрипт на Purebasic, вот такой код ниже

Код:
Procedure.s BrowseForFolder(Path.s)
  Folder.s = Space(#MAX_PATH)
  Dir.BROWSEINFO
  
  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE | #BIF_EDITBOX

  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE

  ;works !!!
  dir\ulFlags = #BIF_EDITBOX
  
  result.l = SHBrowseForFolder_(@Dir)
  SHGetPathFromIDList_(result, @Folder)
  ProcedureReturn Folder
EndProcedure

Path$ = BrowseForFolder("")
MessageRequester("",Path$)

Пожалуйста, научите, как изменить размер окна?

Спасибо.

Отредактировано SharkyEXE (26.02.2022 20:52:37)