view/CopalPro/Dummy.cpp

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Dummy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFCopalProMain *FCopalProMain;
//---------------------------------------------------------------------------
__fastcall TFCopalProMain::TFCopalProMain(TComponent* Owner)
    : TForm(Owner) {}
//---------------------------------------------------------------------------
/**
 * 二重常駐禁止処理により、投げられたメッセージからファイル名を取得
 */
void __fastcall TFCopalProMain::OnFilePost(TMessage &msg) {
  char ch[256];
  ATOM atom = (ATOM)msg.WParam;

  if(GlobalGetAtomName(atom,ch,sizeof(ch))) {
    GlobalDeleteAtom(atom);
    AnsiString FileName = ch;
    FMain->FilePost(FileName);
  }
}
//---------------------------------------------------------------------------