Окно "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. Может я что-то не так делаю?

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

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

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

а зачем?

> а зачем?

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

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

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

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

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

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

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