завершение процессов. открытия приложений. и т.д.

@maxpayn · Регистрация: 02.08.2011

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

Добрый уже вечер. нашёл старый, но ещё неплохо работающий комп. Решил сделать из него мильтимедийный центр и подключить к плазме.
короче что я планирую сделать:
вообще хотел сделать и с батником и простенькой программой но если можно совместить то круто)

я поставлю прогу в автозапуск и вот список что она должна желательно делать:
1) убивать процесс explorer.exe
2) открыть окно программы на весь экран без верхней панели (без кнопки закрытия, сворачивания, развёртывания)
3) кнопки с картинками что бы запускать некоторые приложения ( некоторые : firefox, плеер, блютуз менеджер, выключение компа)
4) что бы открывал приложения тоже на весь экран.
ну в принципе и всё.

спасибо заранее.

Кто что знает напишите, соберу потом)

@anonimus · 02.08.2011, 09:19

1) добавь свою прогу в реестр
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon
ключ "Shell" значение поменяй на свою прогу и у тебя твоя прога будет запускаться вместо explorer.
2) ну эт просто. Свойство формы Align:=alClient; BorderStyle:=bsNone; (либо руками задай нужную ширину и высоту формы)
3) для запуска программ функция shellexecute. Для выключение компа одной функцией не отделаешься, в нете есть куча примеров с готовым кодом, как выключить-перезагрузить комп.

@maxpayn · 02.08.2011, 15:22 **[ТС]**

Спасибо) сейчас пробую)

@spydark91 · 02.08.2011, 17:44

вырубить комп можно так
WinExec('ShutDown -r',SW_HIDE);

@igoriy · 02.08.2011, 19:20

/r - а вроде это перезагрузка
/s - Завершает работу компьютера.

02.08.2011, 19:21

WinLocker?

@igoriy · 02.08.2011, 19:24

а вообще вот

Delphi

// Как выключить или перезагрузить компьютер
procedure Shutdown(Flags: DWORD);
var
hToken: THandle;
Luid: Int64;
NewPrivileges: TTokenPrivileges;
OldPrivileges: TTokenPrivileges;
OldPrivilegesSize: DWORD;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT
then // получения привилегий для платформы NT
begin
// получения локального уникального ИД
Win32Check(LookupPrivilegeValue(nil, 'SeShutdownPrivilege', Luid)
// получения токена процесса
Win32Check(OpenProcessToken(GetCurrentProcess,
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
NewPrivileges.PrivilegeCount := 1;
NewPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
NewPrivileges.Privileges[0].Luid := Luid;
// настройка привилегий
AdjustTokenPrivileges(hToken,
False,
NewPrivileges,
SizeOf(OldPrivileges),
OldPrivileges,
OldPrivilegesSize);
try
Win32Check(GetLastError = ERROR_SUCCESS);
finally
CloseHandle(hToken);
end
end;
Win32Check(ExitWindowsEx(Flags, 0));
end;

Вызов:

Delphi

1	Shutdown(EWX_SHUTDOWN or EWX_POWEROFF);

Флаги можно комбинировать c помощью оператора OR
EWX_FORCE - принудительное выполнение операций, без сохранения данных.4
EWX_LOGOFF - выход из сеанса текущего пользователя;
EWX_POWEROFF - выключение питания;
EWX_REBOOT - пеpезагpузка Windows;
EWX_SHUTDOWN - выключение Windows, точка в которой безопасно выключать
питание.

@maxpayn 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 6
		1
	завершение процессов. открытия приложений. и т.д. 02.08.2011, 02:28. Показов 2270. Ответов 6 Метки нет (Все метки) Добрый уже вечер. нашёл старый, но ещё неплохо работающий комп. Решил сделать из него мильтимедийный центр и подключить к плазме. короче что я планирую сделать: вообще хотел сделать и с батником и простенькой программой но если можно совместить то круто) я поставлю прогу в автозапуск и вот список что она должна желательно делать: 1) убивать процесс explorer.exe 2) открыть окно программы на весь экран без верхней панели (без кнопки закрытия, сворачивания, развёртывания) 3) кнопки с картинками что бы запускать некоторые приложения ( некоторые : firefox, плеер, блютуз менеджер, выключение компа) 4) что бы открывал приложения тоже на весь экран. ну в принципе и всё. спасибо заранее. Кто что знает напишите, соберу потом) 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	02.08.2011, 09:19	2
	1) добавь свою прогу в реестр HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon ключ "Shell" значение поменяй на свою прогу и у тебя твоя прога будет запускаться вместо explorer. 2) ну эт просто. Свойство формы Align:=alClient; BorderStyle:=bsNone; (либо руками задай нужную ширину и высоту формы) 3) для запуска программ функция shellexecute. Для выключение компа одной функцией не отделаешься, в нете есть куча примеров с готовым кодом, как выключить-перезагрузить комп. 1

@maxpayn 0 / 0 / 0 Регистрация: 02.08.2011 Сообщений: 6
	02.08.2011, 15:22 [ТС]	3
	Спасибо) сейчас пробую) 0

@spydark91 86 / 86 / 13 Регистрация: 03.03.2011 Сообщений: 1,873
	02.08.2011, 17:44	4
	вырубить комп можно так WinExec('ShutDown -r',SW_HIDE); 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	02.08.2011, 19:20	5
	/r - а вроде это перезагрузка /s - Завершает работу компьютера. 0

	02.08.2011, 19:24