小弟最近想自己弄個光碟
裡面有軟體選單 是用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.

編輯記錄

比較懷疑是 燒錄機 or 光碟片 關係

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！