Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Запись в журнал приложений системы
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Громова Ирина Громова Ирина вне форума
Member
 
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 04.04.2006
По умолчанию Запись в журнал приложений системы - 14.07.2008, 14:28

Плиз! Подскажите!
Прога должна писать в журнал приложений системы (для 2000 и ХР) сообщения при ее запуске. При попытке записи вываливается ошибка 'Неправильный параметр'.
Где ошибка?

Код:
const
 MyMess:array [0..1] of PChar = ('Программа запущена!','Программа остановлена!');


procedure TForm1.FormCreate(Sender: TObject);
 var
 h:THandle;
begin
 h:=RegisterEventSource(nil,PChar(Application.exename));
 if h=0 then
  begin
   application.MessageBox('Ошибка','Ошибка1',mb_ok);
   exit;
  end;
 try
  if not ReportEvent(h,EVENTLOG_INFORMATION_TYPE,1,0,nil,1,0,MyMess[0],nil)        //<- тут ошибка
   then application.MessageBox(PChar(SysErrorMessage(GetLastError)),'Ошибка2',mb_ok); 
 finally
  DeregisterEventSource(h);
 end;
end;
Ответить с цитированием
  (#2 (permalink)) Старый
Wood Wood вне форума
Member
 
Сообщений: 108
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 04.09.2006
По умолчанию 16.07.2008, 17:35

Цитата:
//<- тут ошибка
а текст ошибки?
пересмотрите, на всякий случай, типы параметров функции ReportEvent
Ответить с цитированием
  (#3 (permalink)) Старый
AfIS AfIS вне форума
Member
 
Сообщений: 384
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 08.02.2005
По умолчанию 18.07.2008, 08:53

А разве не нужно символ 0 добавлять?

MyMess:array [0..1] of PChar = ('Программа запущена!'#0, 'Программа остановлена!'#0);
Ответить с цитированием
  (#4 (permalink)) Старый
Громова Ирина Громова Ирина вне форума
Member
 
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 04.04.2006
По умолчанию 18.07.2008, 11:31

Цитата:
А разве не нужно символ 0 добавлять?

MyMess:array [0..1] of PChar = ('Программа запущена!'#0, 'Программа остановлена!'#0);
Нет, не нужно добавляь ничего. Тип PChar совместим со строковыми константами.
Ответить с цитированием
  (#5 (permalink)) Старый
Громова Ирина Громова Ирина вне форума
Member
 
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 04.04.2006
По умолчанию 18.07.2008, 11:33

Ошибка нашлась!
Вместо:
Код:
ReportEvent(h,EVENTLOG_INFORMATION_TYPE,1,0,nil,1,0,MyMess[0],nil)
Надо было писать:
Код:
ReportEvent(h,EVENTLOG_INFORMATION_TYPE,1,1,nil,1,0,@MyMess[0],nil)
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
Wood Wood вне форума
Member
 
Сообщений: 108
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 04.09.2006
По умолчанию 24.07.2008, 12:18

Цитата:
Ошибка нашлась!
Вместо:
Код:
ReportEvent(h,EVENTLOG_INFORMATION_TYPE,1,0,nil,1,0,MyMess[0],nil)
Надо было писать:
Код:
ReportEvent(h,EVENTLOG_INFORMATION_TYPE,1,1,nil,1,0,@MyMess[0],nil)
а я о чем и говорил
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не удаляется журнал обозревателя tvs Любые вопросы от новичков 0 14.04.2011 17:38
Журнал обозревателя tvs Любые вопросы от новичков 0 12.04.2011 16:15
При загрузке операционной системы ошибки приложений. SXE Техническая поддержка 5 11.12.2009 06:07
журнал регистрации запуска копа imported_Freeman Софт и программы 0 07.08.2009 23:01
Онлайн Журнал wajox Некоммерческие проекты 0 01.05.2008 19:44
Создание приложений под многопроцессорные системы Rodya Общие вопросы создания ПО 5 17.10.2007 16:36
Как очистить журнал ошибок в Internet Explorer? Rossianin Любые вопросы от новичков 3 01.09.2007 03:09
журнал событий в винде sannin Софт и программы 2 08.06.2007 12:04
Как открыть поток на чтение и запись, причем запись в конец файла Borro С/С++ 6 16.03.2005 14:47
Веб-журнал как его вести perlmaster Некоммерческие проекты 2 22.02.2005 13:44
Как очистить журнал транзакций Anonymous MSSQL Server 5 10.11.2003 23:42
Журнал системных событий Mnior WinAPI 2 16.10.2003 13:32



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов