я пытаюсь перехватить все сообщения OutputDebugString (включая сообщения от служб), используя следующий код. Все работало нормально, пока я не перешел на Windows 7.
Проблема в том, что, поскольку службы Windows Vista работают в сеансе № 0 низкого уровня, некоторые люди говорят, что их невозможно поймать, а некоторые - что это является. Как вы думаете?
Можно ли изменить следующий код, увеличив некоторые права, чтобы иметь возможность получать сообщения OutputDebugString из сеанса №0? Другими словами; можно ли совместно использовать DBWIN_BUFFER в сеансе № 0 с сеансом № 1?
Я бы сказал, что это должно быть возможно, потому что, например, DebugView может это сделать, и я не вижу никакого помощника службы, который отправлял бы эти сообщения (например, через именованные каналы) из сеанса № 0 в сеанс № 1, где работает графический интерфейс.
Проблема будет в IMO в настройки безопасности. Может ли кто-нибудь подсказать мне, как их изменить?
type
TODSThread = class(TThread)
protected
procedure Execute; override;
end;
...
procedure TODSThread.Execute;
var SharedMem: Pointer;
SharedFile: THandle;
WaitingResult: DWORD;
SharedMessage: string;
DataReadyEvent: THandle;
BufferReadyEvent: THandle;
SecurityAttributes: SECURITY_ATTRIBUTES;
SecurityDescriptor: SECURITY_DESCRIPTOR;
begin
SecurityAttributes.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecurityAttributes.bInheritHandle := True;
SecurityAttributes.lpSecurityDescriptor := @SecurityDescriptor;
if not InitializeSecurityDescriptor(@SecurityDescriptor, SECURITY_DESCRIPTOR_REVISION) then
Exit;
if not SetSecurityDescriptorDacl(@SecurityDescriptor, True, nil, False) then
Exit;
BufferReadyEvent := CreateEvent(@SecurityAttributes, False, True, 'DBWIN_BUFFER_READY');
if BufferReadyEvent = 0 then
Exit;
DataReadyEvent := CreateEvent(@SecurityAttributes, False, False, 'DBWIN_DATA_READY');
if DataReadyEvent = 0 then
Exit;
SharedFile := CreateFileMapping(THandle(-1), @SecurityAttributes, PAGE_READWRITE, 0, 4096, 'DBWIN_BUFFER');
if SharedFile = 0 then
Exit;
SharedMem := MapViewOfFile(SharedFile, FILE_MAP_READ, 0, 0, 512);
if not Assigned(SharedMem) then
Exit;
while (not Terminated) and (not Application.Terminated) do
begin
SetEvent(BufferReadyEvent);
WaitingResult := WaitForSingleObject(DataReadyEvent, INFINITE);
case WaitingResult of
WAIT_TIMEOUT: Continue;
WAIT_OBJECT_0:
begin
SharedMessage := String(PAnsiChar(SharedMem) + SizeOf(DWORD));
// here I have what I need and process it in the main thread
end;
WAIT_FAILED: Continue;
end;
end;
UnmapViewOfFile(SharedMem);
CloseHandle(SharedFile);
end;
Я добавил тег C #, даже если код написан на Delphi, потому что атрибуты безопасности являются общими для всего Windows API, а у C # много последователей :)