?? 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(" 沒 有 設(shè) 置 數(shù) 據(jù) ", 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(" 請從任務(wù)欄打開稱重程序窗口 ", "程序已啟動", MB_OK);
else if(SetForegroundWindow(hwnd)==NULL)
Application->MessageBox(" 請從任務(wù)欄打開稱重程序窗口 ", "程序已啟動", 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);
*/
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -