Свойства файла

← →
Elec3C © (2008-01-24 14:37) [0]

Окно "Cвойства" файла вызываю так:

procedure ProgInfo(const Path, FileName : String);
var SEI : _SHELLEXECUTEINFOA;
begin
ZeroMemory(@SEI, SizeOf(_SHELLEXECUTEINFOA));

with SEI do
begin
cbSize := SizeOf(_SHELLEXECUTEINFOA);
fMask := SEE_MASK_INVOKEIDLIST;
//Wnd := Form.Handle;
lpVerb := "Properties";
lpFile := PChar(FileName);
lpDirectory := PChar(Path );
end;

ShellExecuteEx(@SEI);
end;

Есть 2 вопроса:
1. Почему после вызова ProgInfo окно "Свойства" файла долго появляется(где-то появляется после секунд 3-5)? В Тотале, если вызываешь "Свойства" файла, окно появляется сразу после ~1 секунды.
2. Как отловить закрытие окна "Свойства" файла?

P.S. Может я что-то не так делаю?

← →
clickmaker © (2008-01-24 14:53) [1]

function SHObjectProperties(hWindow: HWND; dwType: DWORD; szObject: PWideChar; szPage: PWideChar): LongBool; stdcall; external "shell32.dll";

const
SHOP_FILEPATH = 2;

вызов

SHObjectProperties(Form.Handle, SHOP_FILEPATH, FileName, nil);

← →
Elec3C © (2008-01-24 15:12) [2]

Всё равно как-то долговато появляется окно. А как отловить закрытие?

← →
Elec3C © (2008-01-24 15:17) [3]

Хотя, нормально. Последний вопрос: Как отловить закрытие окна "Свойства" файла?

← →
Palladin © (2008-01-24 15:18) [4]

а зачем?

← →
Elec3C © (2008-01-24 15:32) [5]

> а зачем?

Ну мне нужно выполнить некоторые действия, именно, после закрытия окна.

← →
Palladin © (2008-01-24 15:34) [6]

никогда не понимал, ну вот нахера люди ищут себе гемморой на мягкое место... ясен пень что тебе нужно выполнить какие то действия именно после закрытия окна... а вот неясен пень накой их выполнять именно после закрытия окна и что это за действия таекие? там что, второе пришествие наступит после закрытия? или еще чего?

← →
Elec3C © (2008-01-24 16:24) [7]

Большая рутина, что-ли?

> [5] Elec3C © (24.01.08 15:32)

после изменения свойств файла?
ну отслеживай их тогда
FindFirstChangeNotification и иже с нею

Всем спасибо. Ветка закрыта.

Поторопился, блин. Последний вопрос: Если свойство окна StayOnTop в True и при этом вызвать свойства файла, то окно свойств файла будет позади окон программы.
Каким образом, можно поставить окно свойств файла "Поверх остальных окон"?

Свойства файла Найти похожие ветки