un_utl.pas

Pos Componet Some Pos Utility

unit un_utl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Dialogs,
  StdCtrls, WinTypes, WinProcs, FORMS, Menus, inifiles;


// CPU ID 盡ノ跑计==================================
const
	ID_BIT	=	$200000;			// EFLAGS ID bit
type
	TCPUID	= array[1..4] of Longint;
	TVendor	= array [0..11] of char;
//===================================================

// UN_UTL  盡ノ跑计==================================
//===================================================



// ら戳---------------------------------------------
//璣ら戳锣いら戳
FUNCTION EDATETOCDATE(EDATE:STRING):STRING;
//浪琩璣ゅら戳