Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Как вызвать системное окошко с пропертисами файла   Найти похожие ветки 

 
Demn ©   (2002-11-03 07:13) [0]

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


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

{ 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;


 
Demn ©   (2002-11-04 02:54) [2]

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



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

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

Наверх




Память: 0.46 MB
Время: 0.014 c
3-51579
Jackal22
2002-11-27 11:21
2002.12.16
Проблемы с изменением таблицы


7-51972
Ketmar
2002-10-13 15:39
2002.12.16
Terminal Services Client (ActiveX) - автоввод пароля - как?


3-51568
Mad_Ghost
2002-11-27 09:44
2002.12.16
Как избавиться от диалогового окна для ввода пароля при под....


3-51602
Начинающий програмер
2002-11-27 16:17
2002.12.16
Програмное добавление


1-51778
Tundra
2002-12-04 06:44
2002.12.16
Мигание компонента