» Перехват закрытия приложения

Подскажите, кто знает как перехватить закрытия Access кагда пользователь нажимает на значке Х.
Просьба Вопросов типа "а зачем?" и прочих советов не давать.
Только скажите возможно ли это и как, если да.
СПАСИБО БОЛЬШОЕ.

Может не в тему но:

Можно ли отключить кнопку закрытия любого окна?
Ответ:
Да, приведенный пример отключает кнопку закрытия и пункт "закрыть" ситсемного меню заданного окна. procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil, 'Untitled - Notepad');
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;

Shura09
Да можно перехватить нажатия кнопки Х в любом приложении. Для этого ставится системный хук, который фильтрует мессаги ( в отличии от случая когда требуется перехватить нажатия клавиш). В процедуре хука ты смотришь заголовыок приложения по Хэндлу, который передается в хук и если там есть слово Access то по своему переопределяешь событие WM_CLOSE или WM_CLOSEQUERY. Извини пример проги давать не буду, так как примеров по работе с хуками в инете пруд пруди. А еще лучше почитай MSDN. На твой вопрос вроде бы ответил.

Сильно похоже на http://www.forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=2118#1

Цитата:

Сильно похоже на http://www.forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=2118#1

Не совсем так. Тут надо перехватить в чужом окне.

ShIvADeSt

Цитата:

Тут надо перехватить в чужом окне.

Это да... Сложнее.

Хотя бы заблокиновать кнопку закрытия пока пользователь на что-нить не нажмет.
Только я что-то не пойму с какого бока подойти к этому примеру:

procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil, 'Untitled - Notepad');
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;

Спасибо за советы.

Shura09
Тут же все просто.

Цитата:

hwndHandle := FindWindow(nil, 'Untitled - Notepad');

только вместо Untitled - notepad пишешь Access - тру ля ля. Только учти, что лучше всего использовать функцию перечисления всех окон в ней находишь окно в котором есть надпись Access вот пример, его надо подправить под себя. Он просто возвращает хэндл первого окна в котором есть напись Access а ты уже для этого хэндла делаешт это. Вобщем дальше дело техники.


Цитата:

hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;

type
PFindWindowStruct = ^TFindWindowStruct;
TFindWindowStruct = record
Caption : string;
ClassName : string;
WindowHandle : THandle;
end;

function EnumWindowsProc(hWindow:hWnd; lParam:LongInt):Bool;{$IFDEF Win32} stdcall; {$ELSE} ; export; {$ENDIF}
var
lpBuffer:PChar;
WindowCaptionFound:bool;
begin
GetMem(lpBuffer,MAX_PATH+30);
Result := True;
WindowCaptionFound := False;
try
if GetWindowText(hWindow, lpBuffer, MAX_PATH+30) > 0 then
if Pos(AnsiUpperCase(PFindWindowStruct(lParam).Caption),AnsiUpperCase('Access')) > 0
then WindowCaptionFound := true;
if WindowCaptionFound then begin
PFindWindowStruct(lParam).WindowHandle := hWindow;
Result := False;
end;
finally
FreeMem(lpBuffer, sizeof(lpBuffer^));
end;
end;

function FindFWindow(FCaption:string):THandle;
var
WindowInfo : TFindWindowStruct;
begin
with WindowInfo do begin
Caption:=FCaption;
ClassName:='';
WindowHandle:=0;
EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
FindFWindow:=WindowHandle;
end;
end;

Это кусок программы на Delphi.

В этом примере отключается кнопка X у приложения с заголовком "Untitled - Notepad" (хотя хэндл можно и другими путями находить).
Для того чтобы его включить та же процедура, но вместо GetSystemMenu(hwndHandle, FALSE) надо GetSystemMenu(hwndHandle, TRUE).

Интересно, как я буду использовать программу на Delphi в VBA? Может я допустил неопределенность, но программирование ведется на VBA.

Shura09

Цитата:

Может я допустил неопределенность, но программирование ведется на VBA.

"Работайте только исправным инструментом!" (с) не знаю чьё

BugFixer

Цитата:

"Работайте только исправным инструментом!" (с) не знаю чьё

Ну и? Опять будет разборка, что лучше?
Shura09

Цитата:

как я буду использовать программу на Delphi в VBA

Delphi программу использовать не удасться. Но можно использовать аналогичные API функции. Ну и, соответственно, ту же логику.

dneprcomp

Цитата:

можно использовать аналогичные API функции.

Что значит аналогичные ? Те же самые функции

woffer
Ну, так тем лучше для Shura09
Я же названия API-ек не проверял

Вот это да!!!
Оказалось все не так то просто.
А задача - заблокировать кнопку закрытия
Нужно знать объект и свойство или параметр. Но какой??

Цитата:

Нужно знать объект и свойство или параметр. Но какой??

В смысле ? Нужно знать хендл окна, и скормить его функции GetSystemMenu
см код ShIvADeSt

Код: hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;

Нужен Basic.

Цитата:

Нужен Basic.

В смысле тебе нужен компилятор Васика или же код на нем. Если первое то ищи не здесь это программирование, если второе то извини но переводить на Ваську меня ломает. Мне было достаточно когда я тот код из С в Дельфи лопатил. Сам смотри функции как они описаны в твоем хелпе и делай соответсвующий перевод. Хотя может кто другой переведет для тебя.

Поднимаю эту тему снова. С блокнотом все работает. А вот с outlook 2007 оказалось немного хуже. В systemmenu все прекрасно отрубается, а вот сама кнопка с крестиком там видимо по другому реализована. Короче она не отрубается. А очень надо. Ибо юзвери постоянно гасят outlook, а потом жалуются что у них почта не работает.

dad1969
хм, мне вариант в голову интересный пришёл
узнать hwnd главного окна аутлука, а затем с помощью SetWindowLong(GWL_WNDPROC) поменять этому окну WNDPROC, старую ессно запомнить. и после всего этого в своей WNDPROC ловить сообщения, если WM_CLOSE - то забивать, а если другое - то вызывать старую WNDPROC
гипотетически должно работать

ну или как вариант - стоять за спиной юзира с топором

rain87
thnx
буду попробовать.
ну а потом, для верности, за топором...

Подскажите, пожалуйста, как сделать так, чтобы моя программа закрывалась вместе с другой программой, блокнотом тем же, например?

Т.е. в блокноте мы жмем на крестик и он закрывается вместе с моей программой.


procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil, 'Untitled - Notepad');
if (hwndHandle <> 0) then

А дальше не знаю как писать (( Подскажите, плиз

Jj7777
тебе лучше здесь спросить:
http://forum.ru-board.com/topic.cgi?forum=33&topic=10477#1

спс =)

Цитата:

А дальше не знаю как писать (( П

Не знал, куда ещё обратиться.

Задача похожая, подскажите, пожалуйста решение, но не как программисту, а как эникею

Есть компьютер в магазине, без жесткого диска, без системы, загружается с CD-диска и подключается к терминальному серверу. В терминале жёстко прописана на запуск одна единственная программа (Автокаталог).
Дак вот, клиенты иногда по привычке закрывают эту программу и сессия остается висеть голая. Чтобы перезапустить её нужно на сервере выкидывать этот сеанс и подключаться по новой.
Хотелось бы как-нибудь автоматизировать процесс.
В идеале, запускать эту программу из какого-нибудь скрипта, который делал проверку и если происходит закрытие программы, тут же открывал её заново. Либо просто убрать кнопку закрытия.

UPD помог res2001 из соседней темы


Код: @echo off
:loop
set "isproc="
for /f "tokens=2" %%i in ('tasklist ^| findstr "notepad.exe" ') do set "isproc=1"
if not defined isproc start "" notepad.exe
1>nul 2>&1 ping -n 1 -w 30000 127.255.255.255
goto:loop