|
Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply |
|
KWN |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 3.5.2009 Репутация: нет Всего: нет |
помогите реализовать автозапуск ПО после загрузки системы, через службу.
unit Unit1; interface uses shellapi, Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs; type TFTPussyStarter = class(TService) procedure ServiceStart(Sender: TService; var Started: Boolean); procedure ServiceCreate(Sender: TObject); procedure ServiceExecute(Sender: TService); private { Private declarations } public function GetServiceController: TServiceController; override; { Public declarations } end; var FTPussyStarter: TFTPussyStarter; implementation {$R *.DFM} procedure ServiceController(CtrlCode: DWord); stdcall; begin FTPussyStarter.Controller(CtrlCode); end; function TFTPussyStarter.GetServiceController: TServiceController; begin Result := ServiceController; end; procedure TFTPussyStarter.ServiceStart(Sender: TService; var Started: Boolean); begin ShellExecute(GetForegroundWindow,'open',PChar('C:\software.exe'),'',PChar('c:\'),SW_HIDE); Started:=false; end; procedure TFTPussyStarter.ServiceCreate(Sender: TObject); begin // end; procedure TFTPussyStarter.ServiceExecute(Sender: TService); begin // Sender.ReportStatus; end; end. |
|||
|
||||
Правила форума "Delphi: WinAPI и системное программирование" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |