Глобальная статистика

program Project4;
 
uses
  Windows,
  Messages,
  SysUtils;
 
var
  WndClass: TWndClass;
  szAppName, buf: PChar;
  WinHandle,a1: HWnd;
  Msg: TMsg;
  hFile,hFileMapping: THandle;
  number: cardinal;
  ch: char;
  nice: boolean;
  p:Pointer;
 
function MyWndProc(hwnd: hwnd; msg: UINT; wparam: wparam; lparam: lparam): LRESULT;stdcall;
begin
  case Msg of
     WM_KEYDOWN:
    begin
      writefile(hFile, ' WM_KEYDOWN ',13, number, nil);
    end;
 
   WM_KEYUP:
    begin
      writefile(hFile, ' WM_KEYUP ',10, number, nil);
    end;
 
  WM_SYSKEYDOWN:
    begin
      write(p, ' WM_SYSKEYDOWN ',16, number, nil);
    end;
 
  WM_SYSKEYUP:
    begin
      writefile(hFile, ' WM_SYSKEYUP ',14, number, nil);
    end;
 
  WM_CHAR:
    begin
       writefile(hFile, ' WM_CHAR ',9, number, nil);
    end;
 
  WM_DEADCHAR:
   begin
      writefile(hFile, ' WM_DEADCHAR ',13, number, nil);
   end;
 
 WM_SYSCHAR:
    begin
      writefile(hFile, ' WM_SYSCHAR ',15, number, nil);
    end;
 
 WM_SYSDEADCHAR:
    begin
       writefile(hFile, ' WM_SYSDEADCHAR ',20, number, nil);
    end;
 
    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Result := 0;
      end;
 
    else Result := DefWindowProc(hwnd, msg, wparam, lparam);
  end;
end;
 
begin
  szAppName := 'winAPI';
  WndClass.style := CS_HREDRAW or CS_VREDRAW;
  WndClass.lpfnWndProc := @MyWndProc;
  WndClass.cbClsExtra := 0;
  WndClass.cbWndExtra := 0;
  WndClass.hInstance := hInstance;
  WndClass.hIcon := LoadIcon(hInstance, IDI_APPLICATION);
  WndClass.hCursor := LoadCursor(hInstance, IDC_ARROW);
  WndClass.hbrBackground :=GetStockObject(WHITE_BRUSH);
  WndClass.lpszMenuName := nil;
  WndClass.lpszClassName := szAppName;
  RegisterClass(WndClass);
  WinHandle := CreateWindow(WndClass.lpszClassName,
                             'Окно',
                              WS_OVERLAPPEDWINDOW,
                              400,
                              400,
                              550,
                              250,
                              0,
                              0,
                              hInstance,
                              nil);
  ShowWindow(WinHandle, SW_SHOW);
  UpdateWindow(WinHandle);
 
  a1:=OpenFIleMapping(FILE_MAP_WRITE,true, PChar('myfilemapping'));
  if a1=0 then
  begin
  hFile := CreateFile('myfile.txt', GENERIC_READ or GENERIC_WRITE,
                  0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  a1:=CreateFileMapping(hFile,nil,PAGE_READWRITE,0,10000,PChar('myfilemapping'));
  end;
 
  p:=MapViewOfFile(a1,FILE_MAP_WRITE,0,0,10000);
 
  while GetMessage(Msg, 0, 0, 0) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
end.

program Project4;
 
uses
  Windows,
  Messages,
  SysUtils;
 
var
   WndClass: TWndClass;
   szAppName : PChar;
   WinHandle : HWnd;
   Msg: TMsg;
 
const
   FileName = 'F:\myfile.txt';
   INVALID_SET_FILE_POINTER = DWORD(-1);
 
var
   hFile : THandle;
 
procedure Log_Append(s : string);
var
   OverLap: OVERLAPPED;
   FSize : DWORD;
   Written : DWORD;
begin
   ZeroMemory(@OverLap, SizeOf(OverLap));
   s := s + sLineBreak;
 
   FSize := GetFileSize(hFile, nil);
   with OverLap do
   begin
      OffsetHigh := 0;
      hEvent := 0;
      Offset := FSize;
   end;
   WriteFile(hFile, s[1], Length(s) * SizeOf(Char), Written, @OverLap);
   // Ошибки не обрабатываются
end;
 
function MyWndProc(hwnd: hwnd; msg: UINT; wparam: wparam; lparam: lparam): LRESULT; stdcall;
begin
   case Msg of
      WM_KEYDOWN:
      begin
         Log_Append('WM_KEYDOWN');
         // writefile(hFile, ' WM_KEYDOWN ',13, number, nil);
      end;
      WM_KEYUP:
      begin
         Log_Append('WM_KEYUP');
         // writefile(hFile, ' WM_KEYUP ',10, number, nil);
      end;
      WM_SYSKEYDOWN:
      begin
         Log_Append('WM_SYSKEYDOWN');
         // writefile(hFile, ' WM_SYSKEYDOWN ',16, number, nil);
      end;
      WM_SYSKEYUP:
      begin
         Log_Append('WM_SYSKEYUP');
         // writefile(hFile, ' WM_SYSKEYUP ',14, number, nil);
      end;
      WM_CHAR:
      begin
         Log_Append('WM_CHAR');
         // writefile(hFile, ' WM_CHAR ',9, number, nil);
      end;
      WM_DEADCHAR:
      begin
         Log_Append('WM_DEADCHAR');
         // writefile(hFile, ' WM_DEADCHAR ',13, number, nil);
      end;
      WM_SYSCHAR:
      begin
         Log_Append('WM_SYSCHAR');
         // writefile(hFile, ' WM_SYSCHAR ',15, number, nil);
      end;
      WM_SYSDEADCHAR:
      begin
         Log_Append('WM_SYSDEADCHAR');
         // writefile(hFile, ' WM_SYSDEADCHAR ',20, number, nil);
      end;
      WM_DESTROY:
      begin
         PostQuitMessage(0);
         Result := 0;
      end;
      else
         Result := DefWindowProc(hwnd, msg, wparam, lparam);
   end;
end;
 
begin
   szAppName := 'winAPI';
   WndClass.style := CS_HREDRAW or CS_VREDRAW;
   WndClass.lpfnWndProc := @MyWndProc;
   WndClass.cbClsExtra := 0;
   WndClass.cbWndExtra := 0;
   WndClass.hInstance := hInstance;
   WndClass.hIcon := LoadIcon(hInstance, IDI_APPLICATION);
   WndClass.hCursor := LoadCursor(hInstance, IDC_ARROW);
   WndClass.hbrBackground :=GetStockObject(WHITE_BRUSH);
   WndClass.lpszMenuName := nil;
   WndClass.lpszClassName := szAppName;
   RegisterClass(WndClass);
   WinHandle := CreateWindow(WndClass.lpszClassName, 'Окно',
      WS_OVERLAPPEDWINDOW, 400, 400, 550, 250, 0, 0, hInstance, nil);
   ShowWindow(WinHandle, SW_SHOW);
   UpdateWindow(WinHandle);
 
   hFile := CreateFile(FileName, GENERIC_WRITE, FILE_SHARE_WRITE,
      nil, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
   // Проверки ошибок нет
 
   while GetMessage(Msg, 0, 0, 0) do
   begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
   end;
 
   CloseHandle(hFile);
   Halt(Msg.wParam);
end.