myset.pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit MySet;

interface

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

type
  TFrm_MySet = class(TForm)
    FileListBox1: TFileListBox;
    Image1: TImage;
    Label1: TLabel;
    Btn_ok: TButton;
    Button2: TButton;
    procedure FileListBox1Click(Sender: TObject);
    procedure Btn_okClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_MySet: TFrm_MySet;

implementation

{$R *.DFM}

var
  pfname: string ;
  mydir: string ;

procedure TFrm_MySet.FormActivate(Sender: TObject);
begin
  mydir := ExtractFilePath(application.ExeName);
  FileListBox1.Directory := mydir+'\picture' ;
end;

procedure TFrm_MySet.FileListBox1Click(Sender: TObject);
begin
  pfname := FileListBox1.FileName ;
  image1.Picture.LoadFromFile(pfname);
end;

procedure TFrm_MySet.Btn_okClick(Sender: TObject);
var
  str: string ;
begin
  pfname := trim(pfname);
  str := ExtractFilePath(application.ExeName);
  str := str + 'guest.jpeg' ;
  copyfile(pchar(pfname), pchar(str), false) ;
  close;
end;

procedure TFrm_MySet.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_escape then
       close ;
end;

end.