Главная » 2013 » Январь » 10 » SelectDirectory выбор каталога с кнопкой создать директорию
09:45
SelectDirectory выбор каталога с кнопкой создать директорию
uses ShlObj,ActiveX;
.....
function SelectDirCB(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer stdcall; begin if (uMsg = BFFM_INITIALIZED) and (lpData <> 0) then SendMessage(Wnd, BFFM_SETSELECTION, Integer(True), lpdata); result := 0; end;
function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string): Boolean; const BIF_USENEWUI = $0040; BIF_NOCREATEDIRS = $0200; 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 or BIF_USENEWUI or BIF_EDITBOX * Ord(1) or BIF_BROWSEINCLUDEFILES * Ord(0) or BIF_NOCREATEDIRS * Ord(true);
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;
Наша бригада искусных исполнителей предоставлена выдвинуть вам актуальные технологии, которые не только снабдят надежную оборону от прохлады, но и подарят вашему жилью стильный вид. Мы деятельны с современными компонентами, сертифицируя долгосрочный время эксплуатации и великолепные решения. Утепление внешнего слоя – это не только экономия на тепле, но и забота о экосистеме. Энергоспасающие разработки, какие мы внедряем, способствуют не только вашему, но и сохранению природных ресурсов. Самое первоочередное: <a href=https://ppu-prof.ru/>Утепление фасада дома под ключ цена</a> у нас начинается всего от 1250 рублей за квадратный метр! Это бюджетное решение, которое сделает ваш домашний уголок в реальный комфортный корнер с минимальными затратами. Наши произведения – это не исключительно изолирование, это образование области, в котором каждый деталь показывает ваш особенный стиль. Мы берем во внимание все ваши пожелания, чтобы осуществить ваш дом еще еще более приятным и привлекательным. Подробнее на <a href=https://ppu-prof.ru/>http://www.ppu-prof.ru/</a> Не откладывайте труды о своем ларце на потом! Обращайтесь к мастерам, и мы сделаем ваш помещение не только теплее, но и изысканнее. Заинтересовались? Подробнее о наших делах вы можете узнать на портале. Добро пожаловать в пределы удобства и стандартов.
Nuru massage therapy provides an array of prospective benefits, consisting of tension decrease, muscular tissue relaxation, improved blood flow, and increased affection in between partners.
Nuru massage therapy has actually developed right into numerous forms and adjustments worldwide. Discovering these variants can supply diverse experiences and techniq. Past its physical advantages, Nuru massage therapy can favorably influence mental wellness by advertising leisure, decreasing stress and anxiety, and boosting total health.
Is Nuru massage ideal for everyone? While usually risk-free, people with certain health conditions must speak with a medical care professional prior to undergoing a Nuru massage. <b><a href=https://adult.manhattan-massage.com>adult massage new york</a></b>
Air conditioning systems play a critical function in preserving convenience levels within homes and business rooms. They make sure a managed temperature, especially during severe climate condition. Nevertheless, these systems are prone to malfunctions and call for normal upkeep to run successfully. This write-up looks into various aspects of cooling services, covering repair service, installment, maintenance, and typical concerns faced by individuals. Recognizing signs of malfunction is essential for prompt repair work. Lack of chilly air, irregular fan movement, or uncommon sounds from the device are signs that the system requires attention. Disregarding these indications could bring about a lot more substantial and expensive fixings. <a href=https://fixmyacnj.com/services/hvac/furnaces/furnace-replacement/>carrier furnace inducer motor replacement</a>
Dive into a world where youthful desires take center stage. This site showcases a user-friendly platform, meticulously organizing teen-oriented content into distinct categories. From innocent explorers to experienced nymphs, every taste is catered to. The platform's intuitive design allows for seamless navigation, ensuring you never miss a moment of the action. Whether you're seeking solo scenes, passionate encounters, or even more adventurous scenarios, the diverse range of <a href=https://bit.ly/48bhSPp>teen categories</a> guarantees satisfaction. Immerse yourself in the raw, unfiltered allure of youthful passion, all presented in a convenient, categorized format.
