VPF::нужен исходник сервиса - Форум программистов

BLACK_KOT

Дата 31.10.2007, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

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

нужон он мне чисто для обучения. я на примерах гораздо лучше понимаю.

буду крайне благодарен.

Это сообщение отредактировал(а) BLACK_KOT - 31.10.2007, 15:15

--------------------

.. я - демо версия Бога от Microsoft..

VICTAR

Дата 31.10.2007, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Посмотри в drkb

BLACK_KOT

Дата 31.10.2007, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

че все жмутся то, никто сервис не писал чтоль?

--------------------

.. я - демо версия Бога от Microsoft..

VICTAR

Дата 31.10.2007, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Тебе же сказано, посмотри в drkb, там есть примеры!

BLACK_KOT

Дата 31.10.2007, 19:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

чё такое drkb?

дай ссылку пожалуйста.

--------------------

.. я - демо версия Бога от Microsoft..

Rennigth

Дата 31.10.2007, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(BLACK_KOT @ 31.10.2007, 19:11

)

чё такое drkb?

дай ссылку пожалуйста.

http://forum.vingrad.ru/forum/topic-138426.html

--------------------

(* Honesta mors turpi vita potior *)

Sanchezzz

Дата 31.10.2007, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 5
Всего: 60

вот примитивный сервер пи запуске создает форму при остановки уничтожает

Код


 const
 WM_APPSTARTUP = WM_USER + 1;
 WM_APPSTOP    = WM_USER + 2;

type
  TService1 = class(TService)
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
    procedure ServicePause(Sender: TService; var Paused: Boolean);
    procedure ServiceShutdown(Sender: TService);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceContinue(Sender: TService; var Continued: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
  end;

var
  Service1: TService1;

implementation uses unit1;

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ServiceContinue(Sender: TService; var Continued: Boolean);
begin
   Continued := SendMessage(Form1.Handle,WM_APPSTARTUP,0,0) <> 0;
end;

procedure TService1.ServiceCreate(Sender: TObject);
begin
 if ParamStr(1) = '' then begin
 end;
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do begin
    ServiceThread.ProcessRequests(True);
  end;
end;

procedure TService1.ServicePause(Sender: TService; var Paused: Boolean);
begin
  Paused := SendMessage(Form1.Handle,WM_APPSTOP,0,0) <> 0;
end;

procedure TService1.ServiceShutdown(Sender: TService);
var
  Stopped: boolean;
begin
  ServiceStop(Sender,Stopped);
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
 if not Assigned(Form1) then begin
  //  Form1 := TForm1.Create(nil); // создадим форму 
  end;
  Started := SendMessage(Form1.Handle,WM_APPSTARTUP,0,0) <> 0;
end;


procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  if Assigned(Form1) then begin
    Stopped := SendMessage(Form1.Handle,WM_APPSTOP,0,0) <> 0;
    FreeAndNil(Form1);
  end
  else
    Stopped := True;
end;

--------------------

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

BLACK_KOT

Дата 1.11.2007, 00:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

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

про безопасник ваабще рально?

--------------------

.. я - демо версия Бога от Microsoft..

Alix

Дата 1.11.2007, 10:47 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

на winapi пойдет?
http://forum.vingrad.ru/topic-57518/view-f...t/p-471413.html

Добавлено через 1 минуту и 18 секунд
если нужно покажу тоже самое, но делающее что-то smile

(работа с окнами, бд, ...)

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »