Форум: "WinAPI";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Вниз

Save OpenDialog через API   Найти похожие ветки 

← →
Дмитрий Д.   (2002-01-31 13:19) [1]

var
buffer: string;
idList: PItemIDList;
info: TBrowseInfo;
begin

SetLength(buffer, MAX_PATH);

with info do
begin
hwndOwner := MainForm.Handle;
pidlRoot := nil;
pszDisplayName := PChar(buffer);
lpszTitle := PChar("Выбор каталога для обработки");
ulFlags := BIF_RETURNONLYFSDIRS;
lpfn := nil;
lParam := 0;
iImage := 0;
end;

idList := SHBrowseForFolder(info);

end;

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c