TOP > カテゴリ > C/C++ >

自プロセスのモジュールを列挙する(C/C++版)

自プロセスのモジュールを列挙するサンプルです。

サンプルの実行画面

ソースコード

[Sample55.c]

//--------------------------------------------------------------------------------------
//  ■自プロセスのモジュールを列挙する■ Sample NO.55
//
//--------------------------------------------------------------------------------------

//リンクの設定
//Th32.libを追加

#include <windows.h>
#include <tlhelp32.h>

#define ID_LIST              100
HWND hList;

//コールバックプロシージャ&メッセージハンドラ
LRESULT CALLBACK  WindowProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM lParam);

//------------------------------------------------------
//■関数 ScreenCenterX(ローカル)
//■用途 ウインドウを中央にする為にX座標(LEFT)を算出する
//■引数
//  Width ...ウインドウの横幅
//------------------------------------------------------
int ScreenCenterX(int Width)
{ 
 int X;
  X = (GetSystemMetrics(SM_CXSCREEN)- Width) / 2;
 if (X<0) X=0;
 return(X);
}

//------------------------------------------------------
//■関数 ScreenCenterY(ローカル)
//■用途 ウインドウを中央にする為にY座標(TOP)を算出する
//■引数
//  Height ...ウインドウの縦幅
//------------------------------------------------------
int ScreenCenterY(int Height)
{ 
 int Y;
 Y= (GetSystemMetrics(SM_CYSCREEN)- Height) / 2;
 if (Y<0) Y=0;
 return(Y);
}

//------------------------------------------------------
//■関数 CreateMainWindow(ローカル)
//■用途 メインウインドウを作成する
//■引数
//  Width       ...ウインドウの横幅
//  Height      ...ウインドウの縦幅
//  Caption     ...タイトル名
//  hInstance   ...インスタンスハンドル
//  nCmdShow    ...ウインドウの表示形態
//  lpfnWndProc ...コールバックプロシージャ
//  dwstyle     ...ウインドウスタイル
//  dwExstyle   ...拡張ウインドウスタイル
//  MenuID      ...メニューのID
//  hIcon       ...アイコン
//■戻り値
//  ウインドウのハンドル
//------------------------------------------------------
HWND CreateMainWindow(int Width,int Height,LPCTSTR Caption,HINSTANCE hInstance,int nCmdShow,WNDPROC lpfnWndProc, DWORD dwstyle,DWORD dwExstyle,LPCTSTR MenuID,HICON hIcon)
{
    HWND hWnd; //メインウインドウのハンドル
    WNDCLASS myClass;  //WNDCLASS構造体
    
   //WNDCLASS構造体を0で初期化
    ZeroMemory(&myClass,sizeof(WNDCLASS));
 
//--->WNDCLASS構造体の設定&ウインドウクラスの登録

    //ウインドウスタイルを設定 
    myClass.style =CS_HREDRAW | CS_VREDRAW; 
    //コールバックプロシージャへのポインタ
    myClass.lpfnWndProc   = lpfnWndProc;
    //インスタンスハンドルを設定
    myClass.hInstance=hInstance;
    //カーソルの設定(Windows標準リソースを使用)  
    myClass.hCursor=LoadCursor(NULL, IDC_ARROW); 
    //ウインドウの背景を設定(デフォルトカラー)
    myClass.hbrBackground=(HBRUSH)COLOR_WINDOW;
    //クラス名の設定(Borland Delphi風)  
    myClass.lpszClassName="TForm";
    //アイコンの指定
    myClass.hIcon =hIcon;
    //メニューの設定
    myClass.lpszMenuName=MenuID;
        
     //ウィンドウ クラスを登録
    RegisterClass(&myClass); 
    
//--->ウインドウの作成&表示
   
    //メインウインドウの生成
    hWnd = CreateWindowEx(
                         //拡張ウインドウスタイル
                        dwExstyle,
                        //登録されたクラス名のアドレス 
                        "TForm",
                        //ウインドウ名
                        Caption,
                        //ウインドウスタイルを設定
                        dwstyle,  
                        //X座標の位置設定
                        ScreenCenterX(Width),
                        //Y座標の位置設定
                        ScreenCenterY(Height),   
                        //横幅を設定
                        Width,   
                        //縦幅を設定
                        Height,  
                        //親ウインドウを設定
                        NULL,
                        //メニューを設定
                        NULL,
                        //インスタンスを識別
                        hInstance, 
                        //作成したウインドウに渡すデータへのポインタ
                        NULL); 
 
    //ウインドウの表示(表示方法はnCmdShowに従う)
    ShowWindow(hWnd, nCmdShow);
    return(hWnd);
}


//------------------------------------------------------
//■関数名  ControlCreate
//■用途    ウインドウ(コントロール)を作成
//■引数
//       hwndParent ...親ウインドウのハンドル
//       Left       ...作成するウインドウの左隅のX座標
//       Top        ...作成するウインドウの左隅のY座標
//       Width      ...作成するウインドウの横幅
//       Height     ...作成するウインドウの縦幅
//       dwExStyle  ...ウインドウの拡張フラグ
//       dwFlag     ...ウインドウの作成フラグ
//       Caption    ...作成するウインドウのキャプション
//       ClassName  ...作成するウインドウクラス名
//       ChildID    ...子ウインドウの識別子
//       hInstance  ...インスタンスハンドル 
//■戻り値
//子ウインドウのハンドル
//------------------------------------------------------
 HWND CreateControlWindow(HWND hwndParent, int Left, int Top,int Width, int Height,int dwExStyle ,int dwFlag ,LPCTSTR Caption, LPCTSTR ClassName,HMENU ChildID,HINSTANCE hInstance)
 { 
 return CreateWindowEx(dwExStyle,ClassName,Caption,WS_CHILD | WS_VISIBLE | dwFlag    ,
                         Left, Top, Width, Height, hwndParent, ChildID, hInstance, NULL);
 }

//--------------------------------------------------------
//■関数 WinMain
//■用途 メインの関数 
//■引数
// hInstance    ...現在のインスタンスのハンドル
// hPrevInstance...以前のインスタンスのハンドル
// pszCmdLine   ...コマンド ラインのアドレス
// nCmdShow     ...ウィンドウの表示状態
//--------------------------------------------------------
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCmdShow)
{
   MSG msg;

  //メインウインドウを作成
  CreateMainWindow(400,400,"自プロセスのモジュールを列挙する",hInstance,nCmdShow,(WNDPROC)WindowProc,
       WS_OVERLAPPEDWINDOW,WS_EX_CONTROLPARENT | WS_EX_WINDOWEDGE,NULL,LoadIcon(NULL,MAKEINTRESOURCE(IDI_APPLICATION)));

  //送られてくるメッセージを翻訳してプロシージャに渡す  
  while (GetMessage(&msg, NULL, 0, 0)) 
   {
  TranslateMessage(&msg); 
  DispatchMessage(&msg);   
  } 
 return (msg.wParam);
}
//------------------------------------------------------
// ■関数 WindowProc
// ■用途 メインウインドウに送られるメッセージを処理
// ■引数
//   hwnd    ...ウインドウのハンドル
//   uMsg    ...メッセージID
//   wParam  ...第1メッセージ パラメータ    
//   lParam  ...第2メッセージ パラメータ
//------------------------------------------------------
LRESULT CALLBACK  WindowProc(HWND hwnd,UINT uMsg,WPARAM wParam,LPARAM lParam)
{  
  switch (uMsg)
    {
  case WM_CREATE:
        {

    HANDLE         hProcesss;
    MODULEENTRY32  M32;
 
      //コントロール作成 
      hList=  CreateControlWindow(hwnd,10,10,370,355,WS_EX_CLIENTEDGE,
                                                LBS_HASSTRINGS| LBS_NOINTEGRALHEIGHT |LBS_USETABSTOPS|WS_VSCROLL,"","LISTBOX",(HMENU)ID_LIST,(HINSTANCE)GetWindowLong(hwnd, GWL_HINSTANCE));    
      //スナップショットのハンドル取得
      hProcesss = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE    , 0);
      ZeroMemory(&M32,sizeof(MODULEENTRY32));
      M32.dwSize = sizeof(MODULEENTRY32);
      //モジュール列挙
      if(Module32First(hProcesss,&M32)!= 0)
      {
        do
        {
           SendMessage(hList,LB_ADDSTRING,0,(LPARAM)(LPCTSTR)M32.szExePath);
        }
        while(Module32Next(hProcesss, &M32) != 0);
     }
     CloseHandle(hProcesss) ;

    break;
            }
 case WM_DESTROY:
   PostQuitMessage(0);
   break;
 default:return(DefWindowProc(hwnd, uMsg, wParam, lParam)); 
    }
   return (0);
}

ソースコード一式のダウンロード

capi_sample55.zip 2,728 バイト

動作環境

このサンプルは 「Windows98」及び「Microsoft Visual C++5.0」「Borland C++ Compiler 5.5」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。

Visual C++5.0でのコンパイル

VC5.0でサンプルをコンパイルする場合は新規プロジェクト(Win32Application)を作成後、各ファイルを追加してビルドしてください。

Borland C++ Compiler 5.5でのコンパイル

BCC5.5でサンプルをコンパイルする場合は「bcc32.exe」で*.c又は*.cppファイルをコンパイルします。リソースがある場合は「brc32.exe」で*resファイルを付与してください。

サンプルについて

このWindows APIサンプル集(C/C++版)は2000年頃にC/C++言語の学習の為に作成したものです。コードはエレガントではなく「初心者レベルのコーディング」です。仕事などの業務で利用する際にはエラー処理やメモリ解放などの再確認を必ずして下さい。





関連記事



公開日:2015年03月19日
記事NO:00511