un_utl.pas

来自「Pos Componet Some Pos Utility」· PAS 代码 · 共 26 行

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;
//浪琩璣ゅら戳