Текущий архив: 2003.10.23;
Скачать: CL | DM;

Вниз

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

← →
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;

---

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

Текущий архив: 2003.10.23;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.035 c