gdh.~cp

数据采集

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("gdh.res");
USEFORM("main.cpp", form_main);
USEFORM("draw.cpp", form_draw);
USEFORM("bd.cpp", form_bd);
USEFORM("test_com.cpp", form_test_com);
USEFORM("query.cpp", form_query);
USEFORM("password.cpp", form_password);
USEFORM("del_db.cpp", form_del_db);
USEFORM("jin.cpp", form_jin);
USEFORM("print.cpp", form_print);
USERC("rcicon.rc");
USEUNIT("thread.cpp");
USELIB("Wininet.lib");
USEUNIT("dial_up.cpp");
USEFORM("cpzsetup.cpp", form_cpzsetup);
USEFORM("debug.cpp", form_debug);
USEUNIT("global.cpp");
USEFORM("memocpz.cpp", form_memocpz);
//---------------------------------------------------------------------------
#include <stdio.h>
#include "global.h"

HANDLE hMapFile;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE , HINSTANCE , LPSTR, int)
{
         if(read_bd()==FALSE){ // !!!!!!! 必须放这里
           Application->MessageBox("     没 有 设 置 数 据    ", NULL, MB_OK);
         }
         read_bd2();

         hMapFile=CreateFileMapping((HANDLE)(0xffffffff),NULL,PAGE_READWRITE,0,100,"winscs_mapfile");
         if(hMapFile!=NULL && GetLastError()==ERROR_ALREADY_EXISTS){
           char title[100];
           strcpy(title,bd.name);
           sprintf(title,"%s轨道衡（武汉利德公司制造）",bd.name);

           HWND hwnd;
           if((hwnd=FindWindow(NULL,title))==NULL)
             Application->MessageBox("    请从任务栏打开称重程序窗口   ", "程序已启动", MB_OK);
           else if(SetForegroundWindow(hwnd)==NULL)
             Application->MessageBox("    请从任务栏打开称重程序窗口   ", "程序已启动", MB_OK);
           else
             ShowWindow(hwnd,SW_SHOWMAXIMIZED);

           return 0;
         }

         try
         {
                 Application->Initialize();
                 Application->Title = "电子轨道衡";
                 Application->CreateForm(__classid(Tform_main), &form_main);
                 Application->CreateForm(__classid(Tform_draw), &form_draw);
                 Application->CreateForm(__classid(Tform_bd), &form_bd);
                 Application->CreateForm(__classid(Tform_test_com), &form_test_com);
                 Application->CreateForm(__classid(Tform_query), &form_query);
                 Application->CreateForm(__classid(Tform_password), &form_password);
                 Application->CreateForm(__classid(Tform_del_db), &form_del_db);
                 Application->CreateForm(__classid(Tform_jin), &form_jin);
                 Application->CreateForm(__classid(Tform_print), &form_print);
                 Application->CreateForm(__classid(Tform_cpzsetup), &form_cpzsetup);
                 Application->CreateForm(__classid(Tform_debug), &form_debug);
                 Application->Run();
         }
         catch (Exception &exception)
         {
                 Application->ShowException(&exception);
         }
         return 0;
}
//---------------------------------------------------------------------------
/*
    HWND hwnd;
    DWORD tid,ret_cnt;

    hwnd=FindWindow(NULL,"form_main");
    if(hwnd){
      Application->MessageBox("    form_main   ", NULL, MB_OK);
      ReadProcessMemory(GetCurrentProcess(),
                     MapViewOfFile(hMapFile,FILE_MAP_ALL_ACCESS,0,0,0),
                     &tid,sizeof(tid),&ret_cnt);
      SendMessage(hwnd,WM_ACTIVATEAPP,TRUE,tid);
    }
    else
      Application->MessageBox("    no form_main    ", NULL, MB_OK);
  tid=GetCurrentThreadId();

  WriteProcessMemory(GetCurrentProcess(),
                     MapViewOfFile(hMapFile,FILE_MAP_ALL_ACCESS,0,0,0),
                     &tid,sizeof(tid),&ret_cnt);

*/