Функция вызывает стандартный диалог Свойства

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Babay_S

WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Функция вызывает стандартный диалог «Свойства»

Зависимости: uses Activex;

Автор: Babay_S

Дата: 27 сентября 2002 г.

***************************************************** }

uses Activex;

function ObjectProperties(hOwner, uFlags: LongInt; sName, sParam: string):

LongInt;

{Функция вызывает диалог «Свойства»

Параметры

hOwner — хэндл родителя.

uFlags — может принимать два значения — 1 для свойств принтера, 2 — для файла

sName — имя принтера или файла. Если вместо имени файла указаны папка или диск,

вызывается соответствующее окно свойств. Если указано «» — появляются свойства Системы.

sParam — название вкладки на пропертях, которую надо показать. Если предать пустую

строку или несуществующую вкладку — будет показана первая вкладка.

}

implementation

function ObjectProperties(hOwner, uFlags: LongInt; sName, sParam: string):

LongInt;

var

sNameW, sParamW: PWideChar;

sNameL, sParamL: Integer;

begin

SNameL := Length(sName) 1;

sNameW := CoTaskMemAlloc(SNameL * sizeof(WideChar));

StringToWideChar(SName, SNameW, sNameL);

SParamL := Length(sParam) 1;

sParamW := CoTaskMemAlloc(SParamL * sizeof(WideChar));

StringToWideChar(SParam, SParamW, sParamL);

Result := SHObjectProperties(hOwner, uFlags, sNameW, sParamW);

CoTaskMemFree(sNameW);

CoTaskMemFree(sParamW);

end;

{/codecitation}