unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ExtDlgs,  ShellAPI;    type
  TForm1 = class(TForm)
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    UploadButton: TButton;
    ListBox1: TListBox;
    Memo1: TMemo;
    RunButton: TButton;
    procedure FormCreate(Sender: TObject);
    procedure UploadButtonClick(Sender: TObject);
    procedure RunButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Visible:=False;
end;    procedure TForm1.UploadButtonClick(Sender: TObject);
var
  i:Integer;
begin      // 讀取 ini 檔案
  Memo1.Clear;
  Memo1.Lines.LoadFromFile('gamelist.ini');      // 抽出程式名稱顯示出來
  for i:=0 to (Memo1.Lines.Count div 3)-1 do
  begin
    ListBox1.AddItem(Memo1.Lines[i*3 1], nil);
  end;      // 拷貝新版程式, /Y /D 只會拷貝有更新的
  ShellExecute(form1.Handle, 'open', 'xcopy', '\\server\gamelist\*.*   c:\gamelist\*  /Y /D', Nil, SW_SHOWNORMAL);
end;    procedure TForm1.RunButtonClick(Sender: TObject);
var
  Parmeter1: String;
  i, j: Integer;
begin      // 找出選擇哪一項
  for i:=0 to ListBox1.Count-1 do
    if ListBox1.Selected[i]=True then
      j:=i;
  Image1.Picture.Bitmap.LoadFromFile(Memo1.Lines[j*3 1]   '.bmp');
  ShellExecute(form1.Handle, 'open', PAnsiChar(Memo1.Lines[j*3 1]), Nil, Nil, SW_SHOWNORMAL);
end;    end.