meminfo.c

DOS下读取内存信息,TuborC 3.0

#include <stdio.h>
#include <bios.h>
#include "global.h"
#include "graph.h"

typedef unsigned char BYTE ;

BOOL GetStrValue(char *,char *,char* );

void puthz(char *,int ,int ,int );
BOOL GetYes(void);
#define ROW 1 //纵坐标放大倍数
#define COL 1 //横坐标放大倍数

WORD GetMemInfo();
BOOL GetFun(int , char* );
#define WRITE 6 
#define CMP   8 


int main(int argc, char* argv[])
{
	FILE	*stream;
	WORD    memsize=0;
	int		fun=0;
	char	val[60];
	char	tmp[60]={0,};

	fun = GetFun(argc, argv[1]);
	if(!fun)
		return FALSE;
	if(fun == WRITE)
	{
		if((stream = fopen(argv[2],"a")) == NULL)
			return FALSE;
		memset(val,0,sizeof(char)*60);
		memsize = GetMemInfo();
		fprintf(stream,"[Memory Information]\n");
		fprintf(stream,"SystemMemory=%dMBytes\n",memsize);
		fclose(stream);
		return TRUE;
	}
	
	memset(val,0,sizeof(char)*60);
	if(!GetStrValue(argv[2],"SystemMemory\0",val))
		return FALSE;

	memsize = GetMemInfo();
	if(abs(atoi(val)-memsize)>32)
	{
		_setvideomode(_VRES16COLOR);
		puthz("内存容量检测失败！",200,30,12);
		puthz("实测容量：",5,110,14);
		_settextposition(8,20);
		itoa( memsize,tmp,10);
		_outtext( tmp );
		puthz("标配容量：",5,170,14);
		_settextposition(12,20);
		_outtext( val);
		puthz("按“Ｙ”键允许通过，否则按电源键关机。",60,360,14);
		GetYes();
		_setvideomode(_DEFAULTMODE);
		return 2;
	}
	//	printf("SystemMemory=%d MBytes\n\n",memsize);
	return TRUE;
}

WORD GetMemInfo()
{
	WORD    memsize=0;
	int     down16=0,up16=0,down161=0,up161=0;
	_asm{
		mov ax,0xe801;
		int 15h;
		mov down16,ax;
		mov up16,bx;
		mov down161,cx;
		mov up161,dx;
	}
	if(down16 == 0)
	{
        down16=down161;
        up16=up161;
	}
	memsize = down16/1024+1+up16/16;
	memsize = 32-memsize%32+memsize;
	return memsize;
}

BOOL GetStrValue(char *filename,char *str,char* value)
{
	int			i,k,isok=0;
	FILE		*stream;
	char		*lpBuffer;
	LONG		len=0;

	stream = fopen(filename,"rb");
	if(stream == NULL)
	{
		printf("Can't open %s\n",filename);
		return FALSE;
	}
	len =  _filelength(stream->_file );
	lpBuffer = (BYTE *)malloc((size_t )len);
	fread(lpBuffer,sizeof(char), (size_t)len,stream);

	for(i=0;i<(len-strlen(str));i++)
	{
		int o=strlen(str);
		if((memcmp((char *)lpBuffer+i,str,strlen(str))==0 )&&
			(
			(*((char *)lpBuffer+i-1) == 20)||
			(*((char *)lpBuffer+i-1) == 0xa)||
			(i == 0)
			)&&
			(
			(*((char *)lpBuffer+i+strlen(str)) == 20)||
			(*((char *)lpBuffer+i+strlen(str)) == 0x3d)
			)
			)
		{
			int m=0;
			for(k=0;k<(len-strlen(str)-i);k++)
			{
				int j=lpBuffer+i+strlen(str)+1+k;
				char x1=*((char *)j);
				char x2=*((char *)j+1);
				if(
					(*((char *)j) == 0x0d)&&
					(*((char *)j+1) == 0x0a)
					)
				{
					isok = 1;
					free(lpBuffer);
					fclose(stream);
					return	TRUE;
				}else{
					value[m]=*((char *)j);
					m++;
				}
			}
		}
	}
	if(isok)
	{
		free(lpBuffer);
		fclose(stream);
		return	TRUE;
	}else{
		free(lpBuffer);
		fclose(stream);
		return	FALSE;
	}
}


void puthz(char *s,int x,int y,int color)
{
	FILE	*hzk;
	char buffer[32]; //buffer用来存储一个汉字
	register m,n,i,j,k;
	unsigned char qh,wh;
	unsigned long offset;
	
	if ((hzk=fopen("hzk16","rb"))==NULL)
		return;

	while(*s)
	{ qh=*(s)-0xa0; //汉字区位码
	wh=*(s+1)-0xa0;
	offset=(94*(qh-1)+(wh-1))*32L;//计算该汉字在字库中偏移量
	fseek(hzk,offset,SEEK_SET);
	fread(buffer,32,1,hzk); //取出汉字32字节的点阵字模存入buffer中（一个汉字）
	_setcolor( color );
	for (i=0;i<16;i++)//将32位字节的点阵按位在屏幕上打印出来(1:打印,0:不打印),显示汉字
		for(n=0;n<ROW;n++)
			for(j=0;j<2;j++)
				for(k=0;k<8;k++)
					for(m=0;m<COL;m++)
						if (((buffer[i*2+j]>>(7-k))&0x1)!=NULL)
							_setpixel(x+8*j*COL+k*COL+m,y+i*ROW+n);
						s+=2; //因为一个汉字内码占用两个字节,所以s必须加2
						x+=30;
	}
	fclose(hzk);
	//getch();
	//closegraph();
}

/////////////////////////////////////////////////////////////////////////////////
// Function GetYesOrNo
// This function get user selection:Y/N
// GetYesOrNo returns TRUE if user press 'y'or'Y', or FALSE if user press 'n'or'N'
//////////////////////////////////////////////////////////////////////////////////
BOOL GetYes(void)
{
//	printf("%s",Message); 
	for(;;){
		fflush(stdin);
		switch(getch()){
		case 'y':
		case 'Y':
			return TRUE;
//		case 'n':
//		case 'N':
//			return FALSE;
		default:
//			printf("Invalid input,please input again.\n");
//			printf("%s",Message); 
			break;
		}
	}
}
	
BOOL GetFun(int argc, char* argv)
{
	if((argc!=3)||(strlen(argv)>2))
	{
verinfo:
	printf("赏屯屯屯屯屯屯屯屯屯屯屯屯屯屯屯屯籠n");
	printf("