golb.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

unit golb;
interface

uses Forms, SysUtils,ShellAPI,Windows, regware4,inifiles,ExtCtrls,ComObj;
const
screenW=800;
screenH=600;//所规定的系统分辩率




  var
  hrcid:string;
  hrxxid:string;
  change:string;
  account:Integer;
  screenwidth,screenheight:integer;//记录原系统分辩率率
  rege:Integer;


   procedure  setdisplay();
   function Resolution(X,Y:word):boolean ;
   procedure redisplay();
   procedure ShowStatus  ;
  implementation

{创建Normal窗口}

 procedure ShowStatus  ;
var reg: TRegware4;
inifile1:TIniFile;
s:string;
 begin
   reg:=TRegware4.Create(nil);
   reg.BanList.Add('BB1C84BB793B5EEBDC7B') ;
   reg.Seed1:=780114;
   reg.Seed2:=800629;
   reg.Seed3:=7829123;
    try
      IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'set.ini');    //创建一个INI文件
      s:=inifile1.ReadString('ProgGuid','value',s);
      IniFile1.free;
    if Trim(s)='' then
          begin
            s:=CreateClassID;
            IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'set.ini');    //创建一个INI文件
            inifile1.WriteString('ProgGUID','value',s);
            IniFile1.free;
          end
    except
    end;
reg.ProgGUID:=s;
if Trim(s)<>'' then
    reg.ProgGUID:=Trim(s);
    reg.Reload;
    if reg.Registered then
    rege:=0;
    if not reg.Registered then
    rege:=1;
    if reg.Expired then
    rege:=3;
     reg.Free;
     
 end;
function Resolution(X,Y:word):boolean;
var
  DevMode:TDeviceMode;
  begin
    Result:=EnumDisplaySettings(nil,0,DevMode);
    if Result then
    begin
      DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT;
      DevMode.dmPelsWidth:=X;
      DevMode.dmPelsHeight:=Y;
      Result:=ChangeDisplaySettings(DevMode,0)=DISP_CHANGE_SUCCESSFUL;
    end;
  end;


procedure setdisplay() ;
begin
screenwidth:= GetSystemMetrics(SM_CXSCREEN);
screenheight:= GetSystemMetrics(SM_CYSCREEN);
if (screenwidth<>800) or(screenheight<>600) then
   Resolution(screenW,screenH);
end;

procedure redisplay();
   var height,width:integer;
   begin
     height:= GetSystemMetrics(SM_CYSCREEN);
     width:=GetSystemMetrics(SM_CXSCREEN);
     if  (screenwidth<>width)or(screenheight<>height)   then
        Resolution(screenwidth,screenheight);
   end;
end.