[Sharky]

Привет народ , помогите мне пожалуйста освоить написание сервиса

Прошу расказать мне что делают эта функция и процидура

Код:

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

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

Admin: Пользуемся тегами!

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