call.cpp

网络极速寻呼源码

//---------------------------------------------------------------------------

#include <vcl.h>
#include <winsock.h>
#pragma hdrstop
USERES("Call.res");
USEFORM("Unit1.cpp", ForLover);
USEUNIT("GSocket.cpp");
USERC("resource.rc");
USEFORM("Unit2.cpp", Form2);
USELIB("E:\Program Files\Borland\CBuilder5\Lib\wininet.lib");
//---------------------------------------------------------------------------
#define 	HSLIDESHOW      AW_HOR_POSITIVE|AW_SLIDE
#define 	VSLIDESHOW		AW_VER_POSITIVE|AW_SLIDE
#define		CSLIDESHOW		AW_CENTER|AW_SLIDE
#define 	HSLIDESHOWU     AW_HOR_NEGATIVE|AW_SLIDE
#define 	VSLIDESHOWU		AW_VER_NEGATIVE|AW_SLIDE
DWORD	GFormShowMode[5]={
							HSLIDESHOW,
							VSLIDESHOW,
							CSLIDESHOW,
							HSLIDESHOWU,
							VSLIDESHOWU,
						 };
DWORD	dwSlideTime=500;
typedef BOOL WINAPI (*GGAnimateWindow)(HWND hWnd,DWORD dwTime,DWORD dwFlags);
GGAnimateWindow AnimateWindowG;
extern void GAnimateForm(TForm*afForm)
{
//randomize();
//int iFormShow=random(6);
afForm->Left=(Screen->Width -afForm->Width)/2;
afForm->Top=(Screen->Height -afForm->Height)/2;
if(AnimateWindowG)AnimateWindowG(afForm->Handle,dwSlideTime,GFormShowMode[2]);
afForm->Invalidate();
}
/**/
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
WSADATA wsa;
if(WSAStartup(0x101,&wsa))ShowMessage("没有可用的Winsock库.");
	try
	{
		HINSTANCE hInst=LoadLibrary("user32.dll");
		AnimateWindowG=(GGAnimateWindow)GetProcAddress(hInst,"AnimateWindow");
		FreeLibrary(hInst);
		Application->Initialize();
		Application->HelpFile = "";
		Application->Title = "网络时代V1.0正式版";
		Application->CreateForm(__classid(TForLover), &ForLover);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Application->ShowException(&exception);
	}
	WSACleanup();
	return 0;
}
//---------------------------------------------------------------------------