вернуть обратно

@First · Регистрация: 09.06.2011

Author24 — интернет-сервис помощи студентам

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

Delphi

procedure antio;
var
 tit:HWND;
begin
 tit:=FindWindow(nil, 'Диспетчер задач Windows');
 if (tit>0) then
 PostMessage(tit, WM_QUIT, 1, 0);
 tit:=FindWindow(nil, 'Запуск программы');
 if (tit>0) then
 PostMessage(tit, WM_QUIT, 1, 0);
 tit:=FindWindow(nil, 'Мой компьютер');
 if (tit>0) then
 PostMessage(tit, WM_QUIT, 1, 0);
 tit:=FindWindow(nil, 'Пуск');
 if (tit>0) then
 PostMessage(tit, WM_QUIT, 1, 0);
end;

этот код я использовал. а вот как вернуть не могу. а то после закрытия программы получается что ПУСК и т.д. не открываются(((

HighPredator · 30.09.2012, 23:01

Конечно не открывается. Вы понимаете вообще, что делает ваш код? Вы перечисленным окнам, если они найдены добавляете в очередь сообщений сообщение WM_QUIT. Оно завершает работу приложений. Ну вы их все успешно и закрыли. И вся песня.

Не по теме:

P.S. правда WM_QUIT не является сообщением как таковым, оно просто взводит флаг ожидания закрытия в очереди сообщений, который проверяется тогда, когда все сообщения в очереди обработаны.

@First · 30.09.2012, 23:07 **[ТС]**

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

Конечно не открывается. Вы понимаете вообще, что делает ваш код? Вы перечисленным окнам, если они найдены добавляете в очередь сообщений сообщение WM_QUIT. Оно завершает работу приложений. Ну вы их все успешно и закрыли. И вся песня.

Не по теме:

P.S. правда WM_QUIT не является сообщением как таковым, оно просто взводит флаг ожидания закрытия в очереди сообщений, который проверяется тогда, когда все сообщения в очереди обработаны.

а как их можно заново запустить??? не перезагружая комп???

30.09.2012, 23:12

WinExec
ShellExecute
CreateProcess

Выбирай по вкусу.

@First · 30.09.2012, 23:13 **[ТС]**

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

Выбирай по вкусу.

ShellExecute - это можно как я думаю. а как мне их вообще искать как прописывать это. можешь подсказать?

30.09.2012, 23:15

Перед тем как закрывать программу, узнай её путь. Правда я не уверен, что это "прокатит" для всего закрываемого. Не все из них исполняемые файлы.

@First · 30.09.2012, 23:21 **[ТС]**

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

Перед тем как закрывать программу, узнай её путь. Правда я не уверен, что это "прокатит" для всего закрываемого. Не все из них исполняемые файлы.

из всего что закрывается меня больше всего интерисует кнопка "ПУСК" я не могу понять как ее запустить?

30.09.2012, 23:28

Может её лучше не закрывать, а прятать, тогда и вернуть проблем не будет.

Delphi

  Wnd := FindWindow('Shell_TrayWnd', nil);
  Wnd := FindWindowEx(Wnd, HWND(0), 'Button', nil);
  {прячем кнопку "Пуск"}
  ShowWindow(Wnd, SW_HIDE);

соответственно и обратно также.

Delphi

  Wnd := FindWindow('Shell_TrayWnd', nil);
  Wnd := FindWindowEx(Wnd, HWND(0), 'Button', nil);
  {прячем кнопку "Пуск"}
  ShowWindow(Wnd, SW_SHOW);

@First · 30.09.2012, 23:43 **[ТС]**

все равно при запуске программы пуск работает а мне не надо это(((( у меня вин7 может внем не работает???

пробую такой код а толку нет

Отключаем пуск:

Delphi

1	enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),false);

Включаем пуск :

Delphi

1	enablewindow(findwindowex(findwindow('shell_traywnd',nil),0,'button',nil),true);

@volvo · 01.10.2012, 01:01

В "Семерке" кнопка Пуск уже не является дочерним окном shell_traywnd. Это самостоятельное отдельное окно, и искать его надо не в "детях" shell_traywnd с помощью FindWindowEx, а через FindWindow('Button', nil)

@First · 01.10.2012, 01:16 **[ТС]**

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

В "Семерке" кнопка Пуск уже не является дочерним окном shell_traywnd. Это самостоятельное отдельное окно, и искать его надо не в "детях" shell_traywnd с помощью FindWindowEx, а через FindWindow('Button', nil)

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

01.10.2012, 01:28

Можешь попытаться искать как и раньше, с указанием класса "BUTTON", дополнительно указав заголовок кнопки.

Delphi

1	FindWindowEx(0, 0, 'BUTTON', 'Пуск');

@First · 01.10.2012, 01:32 **[ТС]**

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

Можешь попытаться искать как и раньше, с указанием класса "BUTTON", дополнительно указав заголовок кнопки.

Delphi

1	FindWindowEx(0, 0, 'BUTTON', 'Пуск');

что то я не понимаю. то есть по этой строке кода он нашел кнопку "пуск" - и как сделать ее блокировку???

я хочу разобраться как блокировать эту кнопку или клавишу WIN???? поисковики скоро расплавятся от этих запросов)))

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	30.09.2012, 23:01	2
	Конечно не открывается. Вы понимаете вообще, что делает ваш код? Вы перечисленным окнам, если они найдены добавляете в очередь сообщений сообщение WM_QUIT. Оно завершает работу приложений. Ну вы их все успешно и закрыли. И вся песня. Не по теме: P.S. правда WM_QUIT не является сообщением как таковым, оно просто взводит флаг ожидания закрытия в очереди сообщений, который проверяется тогда, когда все сообщения в очереди обработаны. 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	30.09.2012, 23:07 [ТС]	3
	Сообщение от HighPredator Конечно не открывается. Вы понимаете вообще, что делает ваш код? Вы перечисленным окнам, если они найдены добавляете в очередь сообщений сообщение WM_QUIT. Оно завершает работу приложений. Ну вы их все успешно и закрыли. И вся песня. Не по теме: P.S. правда WM_QUIT не является сообщением как таковым, оно просто взводит флаг ожидания закрытия в очереди сообщений, который проверяется тогда, когда все сообщения в очереди обработаны. а как их можно заново запустить??? не перезагружая комп??? 0

angstrom
	30.09.2012, 23:12	4
	WinExec ShellExecute CreateProcess Выбирай по вкусу.

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	30.09.2012, 23:13 [ТС]	5
	Сообщение от angstrom Выбирай по вкусу. ShellExecute - это можно как я думаю. а как мне их вообще искать как прописывать это. можешь подсказать? 0

angstrom
	30.09.2012, 23:15	6
	Перед тем как закрывать программу, узнай её путь. Правда я не уверен, что это "прокатит" для всего закрываемого. Не все из них исполняемые файлы.

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	30.09.2012, 23:21 [ТС]	7
	Сообщение от angstrom Перед тем как закрывать программу, узнай её путь. Правда я не уверен, что это "прокатит" для всего закрываемого. Не все из них исполняемые файлы. из всего что закрывается меня больше всего интерисует кнопка "ПУСК" я не могу понять как ее запустить? 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	01.10.2012, 01:01	10
	В "Семерке" кнопка Пуск уже не является дочерним окном shell_traywnd. Это самостоятельное отдельное окно, и искать его надо не в "детях" shell_traywnd с помощью FindWindowEx, а через FindWindow('Button', nil) 0

@First 21 / 14 / 11 Регистрация: 09.06.2011 Сообщений: 832 Записей в блоге: 3
	01.10.2012, 01:16 [ТС]	11
	Сообщение от UI В "Семерке" кнопка Пуск уже не является дочерним окном shell_traywnd. Это самостоятельное отдельное окно, и искать его надо не в "детях" shell_traywnd с помощью FindWindowEx, а через FindWindow('Button', nil) можешь код кинуть к примеру какой использовать....? 0

	01.10.2012, 01:32