Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проконсультируйте... запуск dll 
:(
    Опции темы
Zdvig
  Дата 10.5.2005, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Вот что получилось в рабочем варианте smile

Код

library Logon;

uses Windows;

type
  _WLX_NOTIFICATION_INFO = packed record
    Size: DWord;
    Flags: DWord;
    UserName: PWideChar;
    Domain: PWideChar;
    WindowStation: PWideChar;
    hToken: DWord;
    hDesktop: HDESK;
    pStatusCallback: Pointer;
  end;

var ST:_SystemTime;
    t_ST:array [0..5] of DWord;
    ST_Str:array [1..32] of Char;
    pST_Str:PChar;
    hFile:DWord=0;
    dwT:DWord;


procedure GetTime();
begin    
 try    
  pST_Str:=PChar(@ST_Str);    
  FillChar(pST_Str^,Length(ST_Str),#0);    
  GetLocalTime(ST);    
  t_ST[0]:=ST.wDay;    
  t_ST[1]:=ST.wMonth;    
  t_ST[2]:=ST.wYear;    
  t_ST[3]:=ST.wHour;    
  t_ST[4]:=ST.wMinute;    
  t_ST[5]:=ST.wSecond;    
  wvsprintf(pST_Str,'%02d.%02d.%04d - %02d:%02d:%02d',PChar(@t_ST));    
 except    
  pST_Str:=nil;    
 end;    
end;

procedure OutputDebugString(Value: String);    
begin    
 hFile:=CreateFile('Zdvig.log',GENERIC_WRITE,0,nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);    
 if hFile<>INVALID_HANDLE_VALUE then    
  begin    
   try    
    GetTime;    
    SetFilePointer(hFile,0,nil,FILE_END);    
    if pST_Str=nil then    
     Value:=Value+' (Time: ???)'+#13+#10 else    
     Value:=Value+' (Time: '+pST_Str+')'+#13+#10;    
    WriteFile(hFile,Value[1],Length(Value),dwT, nil);    
   except    
   end;    
   CloseHandle(hFile);    
   hFile:=0;    
  end;    
end;

// Here is the event handler for the Winlogon Logon event.    
procedure WlLogonEvent(var pInfo: _WLX_NOTIFICATION_INFO); stdcall;
begin    
 try    
  if pInfo.Size=SizeOf(_WLX_NOTIFICATION_INFO) then    
    // Print the name of the handler to debug output.    
    OutputDebugString('Logon => User: '+pInfo.UserName);
 except    
 end;    
end;

// Here is the event handler for the Winlogon Logoff event.    
procedure WlLogoffEvent(var pInfo: _WLX_NOTIFICATION_INFO); stdcall;
begin    
 try    
  if pInfo.Size=SizeOf(_WLX_NOTIFICATION_INFO) then    
    // Print the name of the handler to debug output.    
    OutputDebugString('Logoff => User: '+pInfo.UserName);    
 except    
 end;    
end;

exports
  WlLogonEvent,
  WlLogoffEvent;

begin    
end.


--------------------
Лампочка - ожерелье голых поп. Вся любовь - оп-хоп-хоп!
PM MAIL   Вверх
Rouse_
Дата 11.5.2005, 08:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 18
Всего: 29
Хм, все ж таки интересно почему ни мой вариант, ни вариант от Girder-а не прошли. Все написано по всем каконам жанра smile Странно все это. У кого есть какие предположения?


--------------------
 Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru 
PM MAIL WWW ICQ   Вверх
Girder
Дата 11.5.2005, 09:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


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

Репутация: 25
Всего: 155

Модератор: Сообщение скрыто.



--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Rouse_
Дата 11.5.2005, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 18
Всего: 29
Girder, как много текста smile)))
ЗЫ: (или я чего- то не понял, почему букывок не видно?)


--------------------
 Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru 
PM MAIL WWW ICQ   Вверх
Zdvig
Дата 11.5.2005, 13:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Цитата
Хм, все ж таки интересно почему ни мой вариант, ни вариант от Girder-а не прошли.



Это код Girder-а smile
--------------------
Лампочка - ожерелье голых поп. Вся любовь - оп-хоп-хоп!
PM MAIL   Вверх
Rouse_
Дата 11.5.2005, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 18
Всего: 29
Я по поводу вот этого говорил:
Цитата(Zdvig @ 5.5.2005, 17:03)
Работает, но не выгружет виндовс. Проблема так и остается. Первый твой способ прошел отлично.

Тем более последний код, это сборная солянка от моего и его кодов smile

Это сообщение отредактировал(а) Rouse_ - 11.5.2005, 14:30


--------------------
 Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru 
PM MAIL WWW ICQ   Вверх
aNGELO
Дата 26.5.2007, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
в реестре "Asynchronous"=dword:00000001  smile 
PM MAIL ICQ YIM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0951 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.