Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как закрыть Dll'ку по завершении? [D7, WinXP]


Valentin ©   (2005-08-08 15:51:00) 

Моя Dll'ка работает всего минуту, после чего вырубается, как можно привязать её к работе программы, так чтобы она работала ровно столько же и выключалась вместе с завершением программы?

Код Dll:

library Project1;

uses

Windows,Messages;

Var

SavedProc: pointer;

ThreadID,id:cardinal;

ready:boolean;

function GethWnd: HWND;

begin

result:= FindWindow(Pchar('SAS Window class'),Pchar('SAS window') );

end;

function MyWndProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

begin

ready:=false;

 if  msg=WM_HOTKEY then  begin

// Поймали HOTKEY CAD (CSE) - выводим сообщение на десктоп "Default" и затем выходим

if( MAKELONG( MOD_CONTROL or MOD_ALT, VK_DELETE ) = lParam )then

begin

result:= 0;

ready:=True;

end;

if( MAKELONG( MOD_CONTROL or  MOD_SHIFT, VK_ESCAPE ) = lParam ) then

begin

result:= 0;

ready:=True;

end;

if not ready then result:= CallWindowProc(SavedProc, hWnd, Msg, wParam, lParam);

                           end

else  result:= CallWindowProc(SavedProc, hWnd, Msg, wParam, lParam);

end;

procedure SetWndProc(hWnd: HWND);

begin

SavedProc:= pointer(SetWindowLong(hWnd, GWL_WNDPROC, cardinal(@myWndProc)));

end;

procedure UnSetWndProc(hWnd: HWND);

begin

SavedProc:= pointer(SetWindowLong(hWnd, GWL_WNDPROC, cardinal(SavedProc)));

end;

function thread:integer; stdcall;

begin

SetWndProc(GethWnd);

sleep(60*1000); // помоему проблема сдесь!!

//PostMessage(HWND_BROADCAST,WM_HOTKEY,0, MAKELONG(MOD_CONTROL or MOD_ALT, VK_DELETE ) ); //CAD

UnSetWndProc(GethWnd);

sleep(10);

thread:=0;

CreateThread(nil,0,GetProcAddress(GetModuleHandle('kernel32'),'FreeLibrary'),pointer(hInstance),0,id);

end;

begin

//MessageBoxEx(0,'Ctrl + Shift + Esc','FIGA2', MB_DEFAULT_DESKTOP_ONLY, 0 );

CreateThread(nil,0,@Thread,nil,0,ThreadID);

end.

А вот код программы:

program loader;

uses

Windows,SysUtils,Tlhelp32;

function SetDebugPriv: Boolean;

var

Token: THandle;

tkp: TTokenPrivileges;

begin

Result := false;

if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token) then

begin

if LookupPrivilegeValue(nil, PChar('SeDebugPrivilege'), tkp.Privileges[0].Luid) then

begin

  tkp.PrivilegeCount := 1;

  tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

  Result := AdjustTokenPrivileges(Token, false, tkp, 0, PTokenPrivileges(nil)^, PDWord(nil)^);

end;

end;

end;

function Start(ProcessID: Cardinal; DllFileName: string): Boolean;

var

hProcess, hTh: THandle;

BytesWritten, ThreadID, DllNameLen: Cardinal;

LoadLibraryProc, MemPtr: Pointer;

ExitCode: DWord;

begin

Result := false;

SetDebugPriv();

hProcess := OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_OPERATION or PROCESS_VM_WRITE,true, ProcessID);

if hProcess <> 0 then

begin

DllNameLen := Length(DllFileName) + 1;



MemPtr := VirtualAllocEx(hProcess, nil, DllNameLen, MEM_COMMIT, PAGE_READWRITE);

if MemPtr <> nil then

begin

  if WriteProcessMemory(hProcess, MemPtr, PChar(DllFileName), DllNameLen, BytesWritten) then

  begin

    LoadLibraryProc := GetProcAddress(GetModuleHandle('kernel32.dll'), 'LoadLibraryA');

    hTh := CreateRemoteThread(hProcess, nil, 0, LoadLibraryProc, MemPtr, 0, ThreadID);

    if hTh <> 0 then

    begin

      if (WaitForSingleObject(hTh, INFINITE) = WAIT_OBJECT_0) and

        GetExitCodeThread(hTh, ExitCode) then

        Result := ExitCode <> 0;

      CloseHandle(hTh);

    end;

  end;

  VirtualFreeEx(hProcess, MemPtr, 0, MEM_RELEASE);

end;

CloseHandle(hProcess);

end;

end;

var

ProcessID: Cardinal;

DllName,ppp: string;

ContinueLoop: BOOL;

FSnapshotHandle: THandle;

FProcessEntry32: TProcessEntry32;

begin

ProcessID:=0;

FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);

ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);

while integer(ContinueLoop) <> 0 do

begin

ppp:=FProcessEntry32.szExeFile;

if (pos('WINLOGON',UpperCase(ppp))>0) then  ProcessID:=FProcessEntry32.th32ProcessID;

ContinueLoop := Process32Next(FSnapshotHandle,  FProcessEntry32);

end;

CloseHandle(FSnapshotHandle);

DllName:='C:\Documents and Settings\Vania\My Documents\cad_zamena\Project1.dll';

if ProcessID <> 0 then Start(ProcessID, DllName);

end.

Alexander Panov   (2005-08-09 04:28:00) [1]

Рекомендую поучиться сначала, прежде чем братьсяза освоение вирусных технологий

n0name   (2005-08-09 04:04:00) [2]

Я написал так, образно %)
Глобальные переменные:
var
...
hEvent: THandle;
...

В начале кода:
hEvent:=CreateEvent(nil, false, false, 'Simple Name');
В конце кода:
SetEvent(hEvent);
CloseHandle(hEvent);

В DLL где надо подождать:
Локальные переменные:
var
...
hEvent: THandle;
...
hEvent:=OpenEvent(EVENT_ALL_ACCESS, false, 'Simple Name');
WaitForSingleObject(hEvent, INFINNITE);

Valentin   (2005-08-08 23:24:00) [3]

n0name   (08.08.05 21:04) [11]
[8] - наверное правильно сказал мне ещё не хватает мозгов.
Так что если не затруднит - перепишите вышеуказанный код.

n0name   (2005-08-08 21:04:00) [4]

loader:
перед загрузкой DLL: CreateEventA
перед завершением: SetEvent
DLL:
OpenEventA
WatForSingleObject
Там где надо подождать

Valentin   (2005-08-08 19:32:00) [5]

Нет более простого способа я не нашёл.
Может всётаки подскажете как сделать чтобы активность работы 3х клавишь восстанавливазась по завершении работы программы, а не по истечении sleep?!

3DxFantastika   (2005-08-08 19:27:00) [6]

и с какой целью ты перехватываешь Ctrl+Alt+Del?
может есть более простое и естественное решение?

3DxFantastika   (2005-08-08 19:20:00) [7]

Valentin   (08.08.05 19:05) [7]
учитывай что DLL работает в контексте процесса Winlogonи оттуда простой FindWindow()заголовка формы не поможет ..

мой совет - поучи способы межпрограммной синхронизации, извини, но с твоим уровнем программирования писать подобные программы рановато ..

Valentin   (2005-08-08 19:05:00) [8]

[6]
Если бы я знал как седлать это, то наверное уже сделал бы.
Именно по этому и прошу вашей помощи.

3DxFantastika   (2005-08-08 17:59:00) [9]

Valentin

> она лежит на исходниках.ру

неправда!
ссылка на эту программу:
http://kladovka.net.ru/index.cgi?pid=list&rid=84

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

Poirot   (2005-08-08 17:36:00) [10]

Valentin   (08.08.05 16:33) [4]
Имеется ввиду когда она работет кто её вызывает.. это эе не ехе который может запужен быть и поработав выгружен быть!!!
Где-то дб прога, которая это всё запускает.. дык вот -где эта прога!!! Или сформулируй вопрос корректнее!

Valentin   (2005-08-08 16:33:00) [11]

Я не знаю писал то её не я она лежит на исходниках.ру

Digitman   (2005-08-08 16:26:00) [12]


> Чтобы она блокировали


я спрашиваю - ЧТО ЕСТЬ работа DLL ?!

п/программа ее инициализации ?
п/программы, выполняемые при вызове тех или иных эксп.ф-ций этой DLL ?

?!

Valentin   (2005-08-08 16:10:00) [13]

Чтобы она блокировали Ctrl+Alt+Del и Ctrl+Shift+Esc только на время работы программы, а не на столько на сколько хватает sleep

Digitman   (2005-08-08 15:59:00) [14]


> чтобы она работала


что значит "работала" ?

ЧТО под "работой" подразумевается ?

Наверх

Титульная страница Поиск, карта сайта Написать письмо