Как перенести SelectDirectory из BDS2006 в D7?

← →
Kolan © (2007-08-06 10:58) [0]

Здравствуйте,
оказывается в BDS2006 SelectDirectory гораздо лучьше чем в D7(я про windows выриант).

BDS2006:
function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string; Options: TSelectDirExtOpts; Parent: TWinControl): Boolean;

D7
function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string): Boolean;

Как видете в D7 нет опций, а они мне нужны. Что делать?

ЗЫ
Вариант использовать другую SelectDirectory негодится, уж больно она страшная&#133

← →
AZIZE © (2007-08-06 10:59) [1]

поставь BDS2006 и не парься

← →
Kolan © (2007-08-06 11:04) [2]

> поставь BDS2006 и не парься

Да это вариант тоже не годится, тк лицензия&#133

← →
Kolan © (2007-08-06 11:42) [3]

Тупо скопировал к себе в программу. Вроде работает&#133

> Kolan © (06.08.07 10:58)
>
> Здравствуйте,
> оказывается в BDS2006 SelectDirectory гораздо лучьше чем
> в D7(я про windows выриант).
>

Справку читал?
Unit FileCtrl Category dialog and message routines type TSelectDirOpt = (sdAllowCreate, sdPerformCreate, sdPrompt); TSelectDirOpts = set of TSelectDirOpt; function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload; function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;
Взято из справки для Д4

Как перенести SelectDirectory из BDS2006 в D7? Найти похожие ветки