Как вызвать окно

← →
Maxim Pshevlotsky (2003-08-16 18:45) [0]

Как вызвать окно "свойства" файла?

← →
DVM © (2003-08-16 19:27) [1]

function ShowFilePropertiesDialog(const Handle: HWND; const FileName: string): Boolean;
var
Info: TShellExecuteInfo;
begin
FillChar(Info, SizeOf(Info), #0);
with Info do
begin
cbSize := SizeOf(Info);
lpFile := PChar(FileName);
nShow := SW_SHOW;
fMask := SEE_MASK_INVOKEIDLIST;
Wnd := Handle;
lpVerb := cProperties;
end;
Result := ShellExecuteEx(@Info);
end;

Как вызвать окно Найти похожие ветки