В kernel32.dll не существует такой функции

[Rin]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
{$IFDEF MSWINDOWS}
  kernel32  = 'kernel32.dll';
  function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall;
  function RegisterServiceProcess; external kernel32 name 'RegisterServiceProcess';
 {$ENDIF}
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;

    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin  // hide
  if not (csDesigning in ComponentState) then
    RegisterServiceProcess(GetCurrentProcessID, 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin // show
    if not (csDesigning in ComponentState) then
    RegisterServiceProcess(GetCurrentProcessID, 0);
end;

end.

какая может быть замена этой функции?

[p51x]

НАЧИТЕСЬ ПОЛЬЗОВАТЬСЯ ГУГЛОМ!

[Vikenty]

эта фукнция для Win95

[GunSmoker]

Замена.

Трояна от диспетчера задач прячем?

[Rin]

for p51x
спасибо, что напомнили про гоголя, но мне это не так сильно надо.

for Vikenty
ё-моё %)

for GunSmoker
Это понятно, что замена...какой именно функцией?

for all
Просто шарился по сайтам и наткнулся на эту функцию(здесь как раз эта функция http://www.helloworld.ru/texts/comp/....htm#FAQ6).Она, ясный перец, показалась интересной. Опробовал, не получилось(. Я просто с разных сайтов интересные коды скачиваю и разбираю их. Так потихоньку и учусь.

[GunSmoker]

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

Какую конкретно цель вы преследовали оригинальным кодом?

[Rin]

Я преследовал цель проверить этот код. Код не прокатил. Я продолжил дальше исследовать просторы этого сайта(того, что указан выше). Но у меня есть такая отрицательно-положительная привычка --- пока не добьюсь результата - не успокоюсь! Вот мне и интересно, какая функция это делает.Именно поэтому я создал эту тему.
Если бы я сейчас писал трояна , то я бы не стал повсеместно расспрашивать , как спрятать прогу от диспетчера задач, а использовал метод p51x =).

[GunSmoker]

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

Вот мне и интересно, какая функция это делает.

Я и спрашиваю вас: что ЭТО? Что вас интересует в этой функции?

[Vikenty]

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

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

Какую конкретно цель вы преследовали оригинальным кодом?

зарегестрировать свою программу как сервис - функция для этого вроде...

[Rin]

как сказано на сайте, эта функция прячет приложение от диспетчера задач.
А грузить, это всегда пожалуйста, я не против! ! !