0

Ставлю службу, там выводится ShowMessage с надписью "АГА". Потом я меняю дату на день вперёд должен вывестись ShowMessage с надписью "АГУ", но не чего не выводится. Зато когда удаляешь службу то окно "Агу" выводится!

Таймер установлен на интервал: 1

MainUnit.pas:

unit MainUnit;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs, IniFiles, SHFolder,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, FileCtrl,
  Vcl.ExtCtrls;

type
  TSupServUpdateService = class(TService)
    UpdateTimer: TTimer;
    IdHTTP: TIdHTTP;
    procedure ServiceAfterInstall(Sender: TService);
    procedure UpdateTimerTimer(Sender: TObject);
  public
    procedure GetSend;
    procedure GetSend1;
    function GetServiceController: TServiceController; override;
  end;

var
  SupServUpdateService: TSupServUpdateService;
  Get: string;
  a: tdate;
const
  UPDATE_NAME = 'cfg';

implementation
{$R *.dfm}

function GetAppDataDir: string;
var
  Path: array [0..MAX_PATH] of char;
const
  SHGFP_TYPE_CURRENT = 0;
begin
  if SUCCEEDED(SHGetFolderPath(0, CSIDL_APPDATA, 0, SHGFP_TYPE_CURRENT, @Path[0])) then
    Result := Path
  else
    Result := '';
  end;

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

procedure TSupServUpdateService.GetSend;
begin
  showmessage('Ага!!!');
end;

procedure TSupServUpdateService.GetSend1;
begin
  showmessage('Агу!!');
end;

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

procedure TSupServUpdateService.ServiceAfterInstall(Sender: TService);
var
  CheckAfterInstall: TIniFile;
begin
  CheckAfterInstall:= TIniFile.Create(GetAppDataDir + '\' + UPDATE_NAME + 'ServiceUpdate');
  CheckAfterInstall.WriteDate('Data', 'EndCheck', Date);
  GetSend;
end;

procedure TSupServUpdateService.UpdateTimerTimer(Sender: TObject);
var
  CheckUpdate, Check: TIniFile;
  FileDate: TDate;
   A: tdatetime;
begin
  CheckUpdate:= TIniFile.Create(GetAppDataDir + '\' + UPDATE_NAME + 'ServiceUpdate');
  FileDate:= CheckUpdate.ReadDate('Data', 'EndCheck', Date);

  if Date > FileDate then
    begin
      Check:= TIniFile.Create(GetAppDataDir + '\' + UPDATE_NAME + 'ServiceUpdate');
      Check.WriteDate('Data', 'EndCheck', Date);
      GetSend1;
      //DeleteFile('c:\2.txt');
    end;
end;

end.
1
  • Есть подозрение что повторное срабатывание таймера игнорируется системой или реализацией стандартной оконной процедуры в VCL до тех пор пока на закончится обработка предыдущего срабатывания. А Закрыть окно с сообщением за 1 мс вы точно не успеете. Попробуйте вывести что-то в файл или в OutputDebugString. А лучше поставить интервал в несколько секунд. 21 сен 2018 в 7:05

1 ответ 1

3

Начиная с Windows Vista все сервисы работают на отдельном "служебном" рабочем столе, который не имеет доступа к рабочему столу пользователя.

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

P.S. интервал 1 в таймере - это слишком мало. Минимально возможный интервал в ОС Windows составляет 16 миллисекунд ( https://docs.microsoft.com/en-us/windows/desktop/api/winuser/nf-winuser-settimer ), поэтому меньшие значения выставлять смысла нет.

14
  • 2
    Часть про интервал вы тестировали сами? ибо заявление от реальности оторвано. yadi.sk/i/yLTrGYVq9fPaYw 21 сен 2018 в 5:30
  • Стандартное разрешение интервала около 16мс. Снижается до 1мс если запросить begin time period (емнип)
    – Kromster
    21 сен 2018 в 5:36
  • 1
    Таймер на 1мс срабатывает как через 0мс, так и через стандартный для машины/ОС интервал с разной вероятностью. Средний интервал срабатываний в течение достаточно продолжительного времени будет стремится к заданному интервалу (1мс в данном случае). Проверено на Win7, 8, 10. 21 сен 2018 в 6:27
  • @kot-da-vinci это всё зависит от железа и нагрузки на него, само переключение занимает микросекунды(на разных процессорах по разному) и если у ОС есть свободные ресурсы, которые нечем нагружать - таймер будет срабатывать и чаще чем 1мс. 21 сен 2018 в 6:46
  • 1
    @kot-da-vinci, да вы правы, откопал старые исходники, там был не sleep а хак на околослиповую тему с использованием ring 0 драйвера. 21 сен 2018 в 7:25

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.