DELPHI 7 寫出來的軟體選單無法開始 導致當機@@? {以附上程式碼} |
答題得分者是:pcboy
|
kyo7458
一般會員 ![]() ![]() 發表:3 回覆:0 積分:0 註冊:2005-09-28 發送簡訊給我 |
小弟最近想自己弄個光碟
裡面有軟體選單 是用DELPHI 7 寫出來的 製成ISO檔之後 用酒精掛載執行都沒問題 不知道為何燒成光碟時 讀取光碟機讀到當機 多次重新開機測試結果一樣 是不是有哪些地方有可能有問題 煩請有經驗或知道怎樣解決的大大幫忙@@! 謝謝 PS.小弟有寫AUTORUN.INI 背景音樂用mediaplay 放mp3音樂檔 以下是內容 [autorun] OPEN = software.exe icon = AUTORUN.ICO ===========編輯分隔線============== 小弟換了空白光碟燒錄之後 的確可以執行了!!@@ 但是問題又出現了 程式執行很慢..附上程式碼...請各位大大幫忙QQ" unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons , ShellAPI, MPlayer, ExtCtrls, Mask, Clipbrd, jpeg, OleCtrls, SHDocVw; type TForm1 = class(TForm) BitBtn1: TBitBtn; Image1: TImage; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtn10: TBitBtn; BitBtn11: TBitBtn; BitBtn12: TBitBtn; BitBtn13: TBitBtn; BitBtn14: TBitBtn; BitBtn15: TBitBtn; BitBtn16: TBitBtn; BitBtn17: TBitBtn; BitBtn18: TBitBtn; BitBtn19: TBitBtn; BitBtn20: TBitBtn; BitBtn21: TBitBtn; BitBtn22: TBitBtn; BitBtn23: TBitBtn; BitBtn24: TBitBtn; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; BitBtn25: TBitBtn; BitBtn26: TBitBtn; BitBtn27: TBitBtn; Label1: TLabel; MediaPlayer1: TMediaPlayer; Image2: TImage; BitBtn28: TBitBtn; BitBtn29: TBitBtn; procedure FormCreate(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn20Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn13Click(Sender: TObject); procedure BitBtn12Click(Sender: TObject); procedure BitBtn22Click(Sender: TObject); procedure BitBtn21Click(Sender: TObject); procedure BitBtn18Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn10Click(Sender: TObject); procedure BitBtn16Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure BitBtn17Click(Sender: TObject); procedure BitBtn11Click(Sender: TObject); procedure BitBtn15Click(Sender: TObject); procedure BitBtn14Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn19Click(Sender: TObject); procedure BitBtn23Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure BitBtn24Click(Sender: TObject); procedure BitBtn25Click(Sender: TObject); procedure BitBtn26Click(Sender: TObject); procedure BitBtn27Click(Sender: TObject); procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); procedure BitBtn28Click(Sender: TObject); procedure BitBtn29Click(Sender: TObject); procedure Image1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin { MediaPlayer1.FileName := getCurrentDir '\software\b.wav' ; MediaPlayer1.Open ; MediaPlayer1.play ; } caption := '裝機軟體選單 ' ; end; procedure TForm1.BitBtn5Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\system\Serial.vbs'), nil, nil, SW_Show); end; procedure TForm1.BitBtn3Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\system\Kaspersky Internet Security 6.0.1.411.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn20Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\system\nod32nt.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn4Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\system\magic785.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn6Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\system\everesthome201.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn13Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\txt\Office.XP.SP3\SETUP.EXE'), nil, nil, SW_Show); end; procedure TForm1.BitBtn12Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\txt\Adobe Acrobat Reader 6.0\setup.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn22Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\txt\Dr Eye 6.0.sp3\AutoRun.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn21Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\media\objectdock_freeware.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn18Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\system\wrar36b2tc.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\down\FlashGet_1.71.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn10Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\media\FOOBAR2000.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn16Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\write\Alcohol 120% 1.9.2.1705\setup.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn9Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\media\PowerDVD.v6.0\Setup.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn17Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\write\Nero-6.6.0.8\Nero-6.6.0.8.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn11Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\txt\photoimpact 11\AutoRun.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn15Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\media\Install_Messenger.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn14Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\media\ymsgr8tw.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn8Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\media\ACDSee 9 Photo Manager Build 55.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn19Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\media\音樂轉檔精靈 V1.7\MediaEncoder2005.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn23Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\media\RealPlayer10-5GOLD_tw.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn7Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar(getCurrentDir '\software\media\BaoFeng_60.exe'), nil, nil, SW_Show); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin CLOSE; ; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('您 確 定 離 開 軟 體 選 單?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then CanClose := true else canclose := false ; end; procedure TForm1.BitBtn24Click(Sender: TObject); begin Clipboard.AsText := Edit1.Text ; end; procedure TForm1.BitBtn25Click(Sender: TObject); begin Clipboard.AsText := Edit2.Text ; end; procedure TForm1.BitBtn26Click(Sender: TObject); begin Clipboard.AsText := Edit3.Text ; end; procedure TForm1.BitBtn27Click(Sender: TObject); begin Clipboard.AsText := Edit4.Text ; end; procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin Resize := false; end; procedure TForm1.BitBtn29Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar('C:\WINDOWS\explorer.exe'), 'http://www.wretch.cc/blog/kyo7458', nil, SW_Show); end; procedure TForm1.Image1Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar('C:\WINDOWS\explorer.exe'), 'http://www.wretch.cc/blog/kyo7458', nil, SW_Show); end; end. |
pcboy
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |