atom table monitorダウンロード - atom table monitorソースコードのダウンロード

atom table monitor

Delphi のソースコード

ATOM table monitor 1.8

ダウンロード

グローバルアトムテーブルおよびRegisterWindowMessage識別子の監視ツール。

「原子テーブルは、文字列と対応する識別子を保存するシステム定義のテーブルです。アプリケーションは原子テーブルに文字列を配置し、原子と呼ばれる16ビット整数を受け取ります。これは、文字列にアクセスするために使用できます。原子テーブルに配置された文字列は、原子名と呼ばれます」

出典：Microsoft -Atom Tablesについて

Atom Table Monitorを使用すると、RegisterClass、RegisterClassex、GlobalAddatom、addatom、またはRegisterWindowMessage関数の識別子を使用して作成されたすべての原子を監視し、アプリケーションが漏れている原子 /識別子でないことを確認してください。

関連記事：

グローバルアトムテーブルパートIの監視
グローバルアトムテーブルパートIIの監視
グローバルアトムテーブルパートIIIの監視

特徴：

GlobalGetAtomNameを使用して、0xc000から0xffffのグローバルアトムエントリを監視します。
getclipboardformatnameを使用して、0xc000から0xfffまでのRegisterWindowMessage Atomエントリ（識別子）を監視します。
メモリグリッドを使用して良い方法で表示されるメモリ。
正規表現を使用してパターンを一致させます。
現在の値を表示するグラフ。
GlobalAddatomおよびRegisterWindowMessage関数を使用したテーブルエントリ。
ユーザーセッションの原子とサービスセッション原子の監視。
Windows 10サポート。

注：

* c： *ハードコードされているため、内部使用のためにドライブを使用します。（システムにそのドライブがあることを確認してください）

バージョン1.6：

グローバルアトムテーブル： RegisterWindowMessageテーブル：エントリの表示リスト：一致する文字列パターン：カウンター：テスト画面：セッション画面の選択：監視サービスセッション原子：

スキャン原子法：

 procedure ScanAtoms ;
var
  i: word;
  cstrAtomName: array [ 0 .. 1024 ] of char;
  cstrRWMName: array [ 0 .. 1024 ] of char;
  AtomName, RWMName: string;
  len, lenRWM: integer;
  Value : string;
  countAtom, countRWM: integer;
begin
  countAtom := 0 ;
  countRWM := 0 ;
  for i := $C000 to $FFFF do
  begin
    Value := ' ' ;
    len := GlobalGetAtomName(i, cstrAtomName, 1024 );
    lenRWM := GetClipboardFormatName(i, cstrRWMName, 1024 );
    if len > 0 then
    begin
      AtomName := StrPas(cstrAtomName);
      SetLength(AtomName, len);
      Value := AtomName;
      Inc(countAtom);
      FATomTable[i - $C000].atom[ 0 ] := Value + '  --GlobalAtom ' ;
    end ;
    if lenRWM > 0 then
    begin
      RWMName := StrPas(cstrRWMName);
      SetLength(RWMName, lenRWM);
      Value := RWMName;
      Inc(countRWM);
      FATomTable[i - $C000].atom[ 1 ] := Value + '  --RWM ' ;
    end ;
  end ;
end ;

正規表現の使用：

 function GetColor (Text: string): TColor;
  var
    i: integer;
    perl: TPerlRegEx;
    res: TColor;
  begin
    res := clGray;
    for i := 0 to FListPatterns.count - 1 do
    begin
      perl := TPerlRegEx.Create;
      try
        perl.RegEx := UTF8String(FListPatterns[i].RegularEx);
        perl.Subject := UTF8String(Text);
        if perl.Match then
        begin
          res := FListPatterns[i].color;
          Break;
        end ;
      finally
        perl.Free;
      end ;
    end ;
    result := res;
  end ;

テスト：

 procedure AddatomClick (Sender: TObject);
var
  i: integer;
begin
  try
    GlobalAddAtom(PChar(getRandomString(Edit4.Text)));
    if GetLastError <> 0 then
    begin
      ShowMessage(IntToStr(GetLastError) + ' ' + SysErrorMessage(GetLastError));
      Break;
    end ;
  Except
    on e: exception do
      ShowMessage(e.message + ' ' + IntToStr(GetLastError));
  end ;
end ;

procedure RWMAddAtom (Sender: TObject);
var
  i: integer;
  myString: string;
begin
  myString := getRandomString(Edit8.Text);
  try
    RegisterWindowMessage(PWideChar(myString));
    if GetLastError <> 0 then
    begin
      ShowMessage(IntToStr(GetLastError) + ' ' + SysErrorMessage(GetLastError));
      Break;
    end ;
  Except
    on e: exception do
      ShowMessage(e.message + ' ' + IntToStr(GetLastError));
  end ;
end ;

function getRandomString (header: string): string;
const
  Chars = ' 1234567890ABCDEFGHJKLMNPQRSTUVWXYZ!?/*+- ' ;
var
  S: string;
  i, N: integer;
begin
  Randomize;
  S := ' ' ;
  for i := 1 to 6 do
  begin
    N := Random(Length(Chars)) + 1 ;
    S := S + Chars[N];
  end ;
  result := header + S;
end ;

RegisterClassexを使用したテスト

 procedure btnCreateClick (Sender: TObject);
var
  WC: TWndclassEx;
  atom: word;
begin
  WC.lpszclassName := PWideChar(Edit10.Text);
  WC.cbSize := SizeOf(TWndclassEx);
  WC.style := CS_VREDRAW or CS_HREDRAW;
  WC.lpfnWndProc := @DefWindowProc;
  WC.cbClsExtra := 0 ;
  WC.cbWndExtra := 0 ;
  WC.hinstance := hinstance;
  WC.hIcon := Application.Icon.Handle;
  WC.hIconSm := Application.Icon.Handle;
  WC.hCursor := LoadCursor( 0 , IDC_ARROW);
  WC.lpszMenuName := nil ;
  WC.hbrBackground := (COLOR_BACKGROUND + 1 );

  atom := RegisterClassEx(WC);
  if atom <> 0 then
    ShowMessage( ' Atom Created at ' + IntToHex(atom, 4 ));
end ;