全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2986
推到 Plurk!
推到 Facebook!

遊戲菜單程式

尚未結案
skc
一般會員


發表:13
回覆:9
積分:4
註冊:2005-05-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-05-18 01:26:56 IP:202.175.xxx.xxx 未訂閱
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-05-19 08:03:44 IP:210.69.xxx.xxx 未訂閱
這個上次回答過了, 只是這次的一些條件要求更明確而已    
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 UploadButtFalse;
end;    procedure TForm1.UploadButt0 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.RunButt0 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.
發表人 - pcboy2 於 2005/05/19 13:37:32
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
skc
一般會員


發表:13
回覆:9
積分:4
註冊:2005-05-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-05-23 19:31:15 IP:202.175.xxx.xxx 未訂閱
謝謝
系統時間:2017-12-13 15:29:05
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!