u_datetimer.pas

这是一个60吨地磅称量系统

unit u_datetimer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  Tf_datetimer = class(TForm)
    PanelName: TPanel;
    Paneltitle: TPanel;
    Panel1: TPanel;
    Labeldate: TLabel;
    Labeltime: TLabel;
    procedure FormShow(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
    port:integer;
  end;

var
  f_datetimer: Tf_datetimer;
 
implementation
uses u_cap,u_util,mmsystem,pcomm, U_comtest;

{$R *.DFM}


procedure Tf_datetimer.FormShow(Sender: TObject);
 {
  var 
  wndHandle : THandle;
   wndClass : array[0..50] of Char;
   }
begin
   {
  /////////////////////////隐藏任务栏
  StrPCopy(@wndClass[0], 'Shell_TrayWnd'); 
  wndHandle := FindWindow(@wndClass[0], nil);
   ShowWindow(wndHandle, SW_HIDE);
  /////////////////
      }
   ShowWindow(Application.handle,SW_HIDE);//隐藏图标
  PanelName.Width:=F_datetimer.Width-F_Datetimer.panel1.width;
 PanelTitle.Width:=F_datetimer.Width-F_Datetimer.panel1.width;
 FileSetAttr('C:\WINDOWS\SYSTEM\'+'PASSWORD.DBF',0);
 if not U_DirExist('DATA',False) then MkDir('DATA');
 F_CAP.Table1.Tablename:='CaptionName.dbf';
 with F_CAP.table1 do
 begin
 open;
 first;
 read;
 panelName.Caption:=F_CAP.Table1['COMPANY'];//COMPANY;
 panelTitle.Caption:=F_CAP.Table1['PERSON'];//PERSON;
 Close;
  end;
   SndPlaySound('Music',SND_ASYNC);    //声音播放
   f_ComTest.show;
 end;

end.