Уничтожение окна

[Kashp]

Здравствуйте. Имеется код:

var
 h: hWnd;

begin

 h:=FindWindow(nil, 'Документ1 - Microsoft Word');
 if h=0 then exit;
 SendMessage(h, WM_DESTROY, 0,0);

end;

Так вот, сия штука уничтожает окно Microsoft Word'a. Но если я вместо "Документ1-Microsoft Word" вписываю название моей папки "МОЯ", открываю эту папку и запускаю проект, то окно не закрывается, а просто зависает. Вопрос: почему с вордом все работает, а с окном папки не работает?

[Stilet]

Пробуй так :

var
h: hWnd;
begin
h:=FindWindow(nil, 'D:\');
if h=0 then exit;
CloseWindow(h);
end;

[Kashp]

Сообщение от Stilet

Пробуй так :

var
h: hWnd;
begin
h:=FindWindow(nil, 'D:\');
if h=0 then exit;
CloseWindow(h);
end;

Не работает

[Stilet]

Да у меня тоже зависает, эт я поспешил, извини.

[rpy3uH]

возможно это окно не реагирует на эти сообщения (возможно это какой-то способ защиты), один выходов - использовать ShowWindow(h,SW_HIDE);

[Tokolist]

2 Kashp
Так просто не получится
Вот как я когда-то решил проблему.

var
 WndHandle: HWND;
begin
 WndHandle := FindWindow(nil, 'МОЯ');
 if WndHandle <> 0 then
   SendMessage(WndHandle, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

[Kashp]

Сообщение от Tokolist

2 Kashp
Так просто не получится
Вот как я когда-то решил проблему.

var
 WndHandle: HWND;
begin
 WndHandle := FindWindow(nil, 'МОЯ');
 if WndHandle <> 0 then
   SendMessage(WndHandle, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

Вот это как раз то, что я и хотел Спасибо!

[Kashp]

А вот еще вопрос созрел. Вот если папку открывать обычным способом, то все хорошо (она закрывается). А как можно сделать, чтобы эта папка закрывалась, даже если ее открывать, например, через Total Commander?

[Stilet]

Это врядли получится.

[Kashp]

Сообщение от Stilet

Это врядли получится.

Эх, жаль, хотел программу-"сигнализацию" сделать