| Код |
function SelectDirPlus(hWnd: HWND; const Caption: string; const SelRoot: String = ''; const Root: WideString = ''): String;
// Диалог выбора директории с кнопкой "Создать папку"
// hWnd - Хендл окна владельца
// Caption - Текст пояснения
// SelRot - Папка выбранная при открытии
// Root - Корневая папка
// Пример:
// SelectDirPlus(Handle, '1454', 'c:\Temp', 'c:\');
function SelectDir(hWnd: HWND; const Caption: String; const SelRoot: String = ''): String;
// Диалог выбора директории
// hWnd - Хендл окна владельца
// Caption - Текст пояснения
// SelRot - Папка выбранная при открытии
// Пример:
// SelectDir(Handle, '1454', 'c:\Temp');
function ChangeIconDialog(hOwner :tHandle; var FileName: string; var IconIndex: Integer): Boolean;
// Диалог выбора иконки
|
http://alex-co.com.ru/clicks_counter.php?http://alex-co.com.ru/delphi/modules/acDlgSelect.rar |