| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как вызвать системное окошко с пропертисами файла [D5, D6, WinME, Win2k]

Demn ©   (2002-11-03 07:13:00) 

Как можно это сделать, если возможно. Подскажите плиз.

---

Demn   (2002-11-04 02:54:00) [1]

Большое спасибо!
Я примерно так и думал... ;)

---

Ученик   (2002-11-03 10:42:00) [2]

{ Project JEDI Code Library (JCL) }

const
cVerbProperties = "properties";

//--------------------------------------------------------------------------------------------------

function DisplayPropDialog(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 := cVerbProperties;
end;
Result := ShellExecuteEx(@Info);
end;

---

Наверх