DLL과 TTimer가 작동하지 않습니다.

Question

저는 테스트 용으로 DLL Injection을 사용하는 프로젝트를하고 있습니다. 모든 것이 잘 작동한다면 아마도이 기술을 사용할 것입니다. 그러나 지금까지는 문제가 발생했습니다. 아마도 DLL 프로젝트를 처음 코딩하기 때문일 것입니다. 빨리 이해할 수 있도록 일시 중단 된 explorer.exe 프로세스를 만들고 일시 중지 된 탐색기 안에이 DLL을 주입합니다. 모든 것이 작동했지만 DLL에 타이머를 넣으려고 할 때 문제가 발생했습니다. DLL을 코드 봐 :

uses 
    SysUtils, 
    Classes, 
    Windows, 
    ExtCtrls, 
    Dialogs; 

{$R *.res} 
type 
    TMyTimer = Class(TTimer) 
    public 
    procedure OnMyTimer(Sender: TObject); 
    end; 

var 
    MyTimer: TMyTimer; 

procedure EntryPoint(Reason: integer); 
begin 
    if Reason = DLL_PROCESS_ATTACH then 
    begin 
     MessageBox(0, 'DLL Injected', 'DLL Injected', 0); 
     MyTimer := TMyTimer.Create(nil); 
     MyTimer.Interval := 5000; 
     MyTimer.OnTimer := MyTimer.OnMyTimer; 
     MyTimer.Enabled:= true; 
    end 
    else 
    if Reason = DLL_PROCESS_DETACH then 
    begin 
     MessageBox(0, 'DLL De-Injected', 'DLL De-Injected', 0); 
    end; 
end; 

procedure TMyTimer.OnMyTimer(Sender: TObject); 
begin 
    MessageBox(0, 'Timer Running', 'Timer Running', 0); 
end; 

begin 
    DLLProc:= @EntryPoint; 
    EntryPoint(DLL_PROCESS_ATTACH); 
end. 

가 좋아을, 그래서 일시 중단 된 Explorer.exe에서 프로세스의 DLL을 주입 할 때, 나는 'DLL 주조'는 메시지가 나타납니다 ...이 후, 타이머와 매 5를 만들어야합니다 몇 초 만에 'Timer Running'이라는 메시지가 나옵니다. 그러나이 메시지를받지 못했고, 모든 것을 시도했지만 아무것도 작동하지 않았습니다 ... 어떤 도움이 필요합니까? 그게 완전히 엉망 이냐, 뭐야?

Answer 1

Delphi TTimer 개체는 Win32 SetTimer API 함수를 둘러싼 느슨한 래퍼입니다. VCL 래퍼는 숨겨진 창을 만든 다음 SetTimer를 호출하여 해당 창을 전달합니다. 그러면 타이머가 SetTimer를 호출 한 스레드의 메시지 큐에서 WM_TIMER 메시지를 합성하여 Windows에서 실행됩니다. 시나리오의 경우 해당 스레드는 사용자가 만든 원격 스레드입니다. 따라서 타이머 이벤트가 실행 되려면 해당 스레드에 메시지를 디스패치해야합니다.

일반적으로 나는 주입 된 DLL 안에 VCL을 넣는 지혜를 묻습니다. 확실히 고통 스러울 것입니다. VCL for 타이머가 필요한 경우 SetTimer를 직접 호출하는 것이 더 간단합니다.

더 자세히 알고 싶으면 다른 스레드를 만들어야한다고 조언합니다. 현재 모든 주입 코드가 DllMain에서 실행 중입니다. 주제에 대한 DllMain과 Raymond Chen의 기사를 읽으십시오. 특히 DllMain이 DLL 로더 잠금이 유지 될 때 실행되는 부분을 설명합니다. DllMain에서 아무 것도하지 말아야합니다. CreateThread를 호출 할 수 있습니다. 그렇게하지 마세요.

Answer 2

TTimer는 Window Messages에 의존하므로 메시지 루프가 필요합니다.