---

var
  h,hp: THandle;
  p: PROCESSENTRY32;
  pid: integer;
begin
h:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if h=-1 then exit;
if Process32First(h,p) then  // либо здесь false
 repeat
  if p.szExeFile='notepad.exe' then break;
 until not process32next(h,p)
else exit;
if p.th32ProcessID = 0 then exit;
pid:= p.th32ProcessID;  // при трасеровке F7 даную строку прчемуто пропускает а если и не пропускает то вирубает на TerminateProcess
hp:= OpenProcess(PROCESS_TERMINATE, true, pid);         
TerminateProcess(hp,0);  //  либо здесь вирубает как будь то снимает сама себя       
closehandle(h);
closehandle(hp);
end;

---

Вложения

ATON-K Monitor Demo.rar (453.5 Кб)

---

#include <windows.h>
#include <windowsx.h>
#include <stdlib.h>
#include <stdio.h>

HWND      g_hWnd                = NULL;
HWND      wowWND                = NULL;
bool      actFlag              = false;
bool      key                  = false;

HRESULT InitWindow(HINSTANCE hInstance, int nCmdShow);
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam);

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
                  LPSTR lpCmdLine, int nCmdShow)
{

  if (FAILED(InitWindow(hInstance, nCmdShow)))
    return 0;

  SetTimer(g_hWnd, 1, 3000, NULL);
  MSG msg = {0};
  while (GetMessage(&msg, NULL, 0, 0))
  {
    TranslateMessage(&msg);
    DispatchMessage(&msg);
  }
 
  KillTimer(g_hWnd, 1);

  return (int) msg.wParam;
}

HRESULT InitWindow(HINSTANCE hInstance, int nCmdShow)
{
  // register window class
  WNDCLASSEX wc;
  wc.cbSize        = sizeof(WNDCLASSEX);
  wc.style          = CS_HREDRAW|CS_VREDRAW;
  wc.lpfnWndProc    = WndProc;
  wc.cbClsExtra    = 0;
  wc.cbWndExtra    = 0;
  wc.hInstance      = hInstance;
  wc.hIcon          = LoadIcon(NULL, IDI_APPLICATION);
  wc.hCursor        = LoadCursor(NULL, IDC_ARROW);
  wc.hbrBackground  = (HBRUSH)(COLOR_WINDOW + 1);
  wc.lpszMenuName  = NULL;
  wc.lpszClassName  = L"SimpleWindowClass";
  wc.hIconSm        = LoadIcon(NULL, IDI_APPLICATION);

  if (!RegisterClassEx(&wc))
    return E_FAIL;

  // create window
  g_hWnd = CreateWindow(
    L"SimpleWindowClass",
    L"Поиск путей Bug2",
    WS_OVERLAPPEDWINDOW,
    CW_USEDEFAULT,
    CW_USEDEFAULT,
    640,
    480,
    NULL,
    NULL,
    hInstance,
    NULL);

  if (!g_hWnd)
    return E_FAIL;

  //ShowWindow(g_hWnd, nCmdShow);

  //UpdateWindow(g_hWnd);

  return S_OK;
}

LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
  switch (message)
  {

  case WM_DESTROY:
    PostQuitMessage(0);
    break;

  case WM_TIMER:
   
    if (!wowWND)
    {
      wowWND = FindWindow(NULL, L"World of Warcraft");
      if (wowWND)
        actFlag = true;
      else
        wowWND = FindWindow(NULL, L"Wow");

      if (wowWND)
        actFlag = true;
    }
    if (actFlag)
      if (key)
      {
        SendMessage(wowWND, WM_CHAR, '1', 0);
        key = false;
      }
      else
      {
        SendMessage(wowWND, WM_CHAR, '2', 0);
        key = true;
      }
    break;

  default:
    return DefWindowProc(hWnd, message, wParam, lParam);
  }
  return 0;
}

---

---

library HookDriveCore;

uses
  Windows;

{$mode delphi}

type
  CreateFileWHookRecord = packed record
    PushOperation: byte;
    Argument: Pointer;
    ReturnOperation: byte;
  end;

  PObjectAttributes = ^TObjectAttributes;
  TObjectAttributes = packed record
    Length: DWORD;
    RootDirectory: THandle;
    ObjectName: PChar;
    Attributes: DWORD;
    SecurityDescriptor: Pointer;
    SecurityQualityOfService: Pointer;
  end;

var
  hGlobalHook: cardinal;
  CreateFileWBackup, CreateFileWHook: CreateFileWHookRecord;
  CreateFileW: function(lpFileName:LPCWSTR;
 dwDesiredAccess:DWORD;
 dwShareMode:DWORD;
 lpSecurityAttributes:LPSECURITY_ATTRIBUTES;
 dwCreationDisposition:DWORD;
 dwFlagsAndAttributes:DWORD;
 hTemplateFile:HANDLE):HANDLE; stdcall;

const MutexName: LPSTR = 'Elysium_HookDrive_Mutex';

function HookCreateFileW(lpFileName:LPCWSTR;
 dwDesiredAccess:DWORD;
 dwShareMode:DWORD;
 lpSecurityAttributes:LPSECURITY_ATTRIBUTES;
 dwCreationDisposition:DWORD;
 dwFlagsAndAttributes:DWORD;
 hTemplateFile:HANDLE):HANDLE; stdcall;
var
  WrittedBytes: dWord;
begin
  MessageBox(0, 'A', '', 0); // Проверка хука
  WriteProcessMemory(INVALID_HANDLE_VALUE,
  @CreateFileW,
  @CreateFileWBackup,
  sizeof(CreateFileWHookRecord),
  WrittedBytes);
  Result := CreateFileW(lpFileName,
  dwDesiredAccess,
  dwShareMode,
  lpSecurityAttributes,
  dwCreationDisposition,
  dwFlagsAndAttributes,
  hTemplateFile);
  WriteProcessMemory(INVALID_HANDLE_VALUE,
  @CreateFileW,
  @CreateFileWHook,
  sizeof(CreateFileWHookRecord),
  WrittedBytes);
end;

procedure SetHook();
var
  hkernel32: dWord;
  WrittedBytes: dWord;
  OldProtect: dWord;
begin
  hkernel32 := GetModuleHandle('kernel32.dll');
  CreateFileW := GetProcAddress(hkernel32, 'CreateFileW');
  ReadProcessMemory(INVALID_HANDLE_VALUE,
  @CreateFileW,
  @CreateFileWBackup,
  sizeof(CreateFileWHookRecord),
  WrittedBytes);
  with CreateFileWHook do
  begin
    PushOperation := $68;
    Argument := @HookCreateFileW;
    ReturnOperation := $C3;
  end;
  VirtualProtectEx(INVALID_HANDLE_VALUE,
  @CreateFileW,
  sizeof(CreateFileWHookRecord),
  PAGE_EXECUTE_READWRITE,
  @OldProtect);
  WriteProcessMemory(INVALID_HANDLE_VALUE,
  @CreateFileW,
  @CreateFileWHook,
  sizeof(CreateFileWHookRecord),
  WrittedBytes);
end;

procedure UnHook();
var
  WrittedBytes: dWord;
begin
  WriteProcessMemory(INVALID_HANDLE_VALUE,
  @CreateFileW,
  @CreateFileWBackup,
  sizeof(CreateFileWHookRecord),
  WrittedBytes);
end;

function MessageProc(code: integer; wParam: word; lParam: longint): longint; stdcall;
begin
  Result := CallNextHookEx(0, code, wParam, lParam);
end;

procedure SetGlobalHookProc();
begin
  hGlobalHook := SetWindowsHookEx(WH_GETMESSAGE, @MessageProc, HInstance, 0);
  Sleep(Infinite);
end;

procedure SetGlobalHook();
var
  hMutex: dWord;
  ThreadId: dWord;
begin
  hMutex := CreateMutex(nil, false, MutexName);
  if GetLastError = 0 then
    CreateThread(nil, 0, @SetGlobalHookProc, nil, 0, ThreadId)
  else
    CloseHandle(hMutex);
end;

procedure GlobalUnHook();
begin
  if hGlobalHook <> 0 then
    UnHookWindowsHookEx(hGlobalHook);
end;

function DllProcessAttach(dwReason: longint): longbool;
begin
  SetGlobalHook();
  SetHook();
  Result := True;
end;

procedure DllProcessDetach(dwReason: longint);
begin
  GlobalUnHook();
  UnHook();
end;

{$IFDEF WINDOWS}{$R HookDriveCore.rc}{$ENDIF}

begin
  DllProcessAttach(DLL_PROCESS_ATTACH);
  DLL_Process_Detach_Hook := @DllProcessDetach;
end.

---

---

program HookDriveCoreTest;

uses Windows;

begin
  LoadLibrary('HookDriveCore.dll');
  Sleep(Infinite);
end.

---

---

void InitControl(HWND hWnd, HINSTANCE hInstance, int idpage)
{
        DWORD buffer;
        wchar_t lpBuffer[100]={0};

        hFile = CreateFile (L"rasxod.txt", GENERIC_READ, NULL, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
       
        if(idpage==0)
        {
                ListView = CreateWindow(WC_LISTVIEW, L"LISTVIEW",WS_VISIBLE|WS_CHILD|WS_BORDER|LVS_REPORT|LVS_EDITLABELS|
                WS_VSCROLL|WS_BORDER|WS_HSCROLL|WS_CLIPCHILDREN|WS_CLIPSIBLINGS,rect.left, rect.top, x,
                                                        y-y/4,hWnd1, (HMENU)ID_LISTVIEW, hInstance, 0);

                AddColumnToListView(ListView, L"№",1,40);
                AddColumnToListView(ListView, L"Наименование",2,300);
                AddColumnToListView(ListView, L"Кол-во",3,100);
                AddColumnToListView(ListView, L"Цена",4,100);       

                int size = GetFileSize( hFile, 0 );
               
                ReadFile(hFile, lpBuffer, size, &buffer, NULL);

                EditBuffer(lpBuffer);

                CloseHandle(hFile);       
        }

        if(idpage==1)
        {
                ListView1 = CreateWindow(WC_LISTVIEW, L"LISTVIEW",WS_VISIBLE|WS_CHILD|WS_BORDER|LVS_REPORT|LVS_EDITLABELS|
                WS_VSCROLL|WS_BORDER|WS_HSCROLL|WS_CLIPCHILDREN|WS_CLIPSIBLINGS,rect.left, rect.top, x,
                                                        y-y/4,hWnd2, (HMENU)ID_LISTVIEW1, hInstance, 0);
               
                AddColumnToListView(ListView1, L"№",1,40);
                AddColumnToListView(ListView1, L"Наименование",2,300);
                AddColumnToListView(ListView1, L"Кол-во",3,100);
                AddColumnToListView(ListView1, L"Цена",4,100);

                int size = GetFileSize( hFile, 0 );
               
                ReadFile(hFile, lpBuffer, size, &buffer, NULL);

                EditBuffer(lpBuffer);

                CloseHandle(hFile);
        }
}

---

---

void EditBuffer(wchar_t lpBuffer[100])
{
        int count = 0;
        int count1 = 0;
        int temp = 0;

        for(int i = 0; i < 100; i++)
        {
                lpBuffer[i] = lpBuffer[i+1];

                //if(lpBuffer[i] == TAB2)                        // #define TAB2 L'013'
                        //MessageBox(0, L"1", L"", MB_OK);

        }
        for(int i = 0; i < 100; i++)
        {
                if(count == 0 && lpBuffer[i]==TAB1)                // #define TAB1 L'\n'
                {
                        for(int n = 0; n < i-temp-1; n++)
                        {
                        //MessageBox(0, L"1", L"", MB_OK);
                                numberBuffer[n] = lpBuffer[n+temp];
                        }
                        temp = i+1;  //3
                        count++;
                        i = i+1;  //3
                }

                if(count == 1 && lpBuffer[i]==TAB1)
                {
                        for(int n = 0; n < i-temp-1; n++)
                        {
                                nameBuffer[n] = lpBuffer[n+temp];
                        }
                        temp = i+1;  //10
                        count++;
                        i = i+1;  //10
                }

                if(count == 2)
                {
                        AddItemToListView(ListView1, numberBuffer, count1, 0);
                        AddItemToListView(ListView1, nameBuffer, count1, 1);
                        AddItemToListView(ListView1, amountBuffer, count1, 2);
                        AddItemToListView(ListView1, priceBuffer, count1, 3);
                        count = 0;
                        count1++;
                        memset(&numberBuffer, NULL, 100);
                        memset(&nameBuffer, NULL, 100);
                        memset(&amountBuffer, NULL, 100);
                        memset(&priceBuffer, NULL, 100);
                }
        }
}

---

---

LRESULT __stdcall WndProc(HWND hWnd, UINT msg, WPARAM wparam, LPARAM lparam)
{
        HDC hDC;
        PAINTSTRUCT ps;

        switch(msg)
        {
        case WM_NOTIFY:
                {
                        NMHDR *ptab = (LPNMHDR) lparam;
                        LPTOOLTIPTEXT lpToolTipText;

                        switch(ptab->code)
                        {
                        case TTN_NEEDTEXT:
                                lpToolTipText = (LPTOOLTIPTEXT) lparam;
                                break;

                        case TCN_SELCHANGE:
                                {
                                        idpage = TabCtrl_GetCurSel(ptab->hwndFrom);
                                       
                                        ShowWindow(hWnd1, SW_HIDE);
                                        ShowWindow(hWnd2, SW_HIDE);

                                        switch(idpage)
                                        {
                                        case 0:
                                                //MessageBox(0,L"0",L"",MB_OK);
                                                InitControl(hWnd, hInstance, 0);
                                                ShowWindow(hWnd1, SW_SHOW);
                                                break;

                                        case 1:
                                                //MessageBox(0,L"1",L"",MB_OK);
                                                InitControl(hWnd, hInstance, 1);
                                                ShowWindow(hWnd2, SW_SHOW);
                                                break;
                                        }
                                }
                                break;
                        }
                }

        case WM_PAINT:
                hDC=BeginPaint(hWnd, &ps);
                InvalidateRect(tab, 0, true);
                EndPaint(hWnd, &ps);//освоб. контекст устройства
                break;
        case WM_DESTROY:
                PostQuitMessage(0);
                break;

        default:
                return DefWindowProc(hWnd, msg, wparam, lparam);
        }

        return 0;
}

---