nuso Posted March 9, 2010 Share Posted March 9, 2010 Arkadaşlar AutoPlay Programında Çalışırken İki Tane Buton Ekledim 1 - DVD'ye Gözat 2 - DVD'yi Çıkar Fakat Bu Butonların Kodlarını Bilmiyorum Araştırdım Ama Bulamadım. Bilen Arkadaşımız varsa Söyleyebilir mi ? Quote Link to comment Share on other sites More sharing options...
casira Posted March 10, 2010 Share Posted March 10, 2010 DVDye Gözat için butonun Quick Action kısmından Explore Folderi seçin,altındaki Properties bölümüne ise _SourceFolder bunu yazın işlem tamam. DVDyi çıkar için butonun script kısmına DrivesTB = Drive.Enumerate(); for nIndex, DrvLetter in DrivesTB do if Drive.GetType(DrvLetter) == 5 then Drive.Eject(DrvLetter); Application.Exit(0); error = Application.GetLastError(); if (error ~= 0) then Dialog.Message("Hata", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); end end end[/CODE] bunları yazıp denermisiniz. Quote Link to comment Share on other sites More sharing options...
nuso Posted March 10, 2010 Author Share Posted March 10, 2010 DVDye Gözat için butonun Quick Action kısmından Explore Folderi seçin,altındaki Properties bölümüne ise _SourceFolder bunu yazın işlem tamam. DVDyi çıkar için butonun script kısmına DrivesTB = Drive.Enumerate(); for nIndex, DrvLetter in DrivesTB do if Drive.GetType(DrvLetter) == 5 then Drive.Eject(DrvLetter); Application.Exit(0); error = Application.GetLastError(); if (error ~= 0) then Dialog.Message("Hata", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); end end end[/CODE] bunları yazıp denermisiniz. DVD'yi Çıkar Tamamdır Kardeş O Çalışıyo.Fakat İkinci Söylediğin Explorer Folder Kısmına Girdim Fakat Yazı Yazamıyorum Klasör Soruyo.Resimle Gösterebilir misin Acaba ? Quote Link to comment Share on other sites More sharing options...
KintaRo Posted March 10, 2010 Share Posted March 10, 2010 Shell.Execute(_SourceFolder, "open", _SourceFolder, "", SW_SHOWNORMAL, false)[/CODE] Bu komutla istediğini yapabilirsin. Quote Link to comment Share on other sites More sharing options...
nuso Posted March 10, 2010 Author Share Posted March 10, 2010 Shell.Execute(_SourceFolder, "open", _SourceFolder, "", SW_SHOWNORMAL, false)[/CODE] Bu komutla istediğini yapabilirsin. Çok Teşekkür Ederim Arkadaşım Oldu. Quote Link to comment Share on other sites More sharing options...
casira Posted March 10, 2010 Share Posted March 10, 2010 Properties yanındaki browse kısmından CD-Root olarak ayarla o boş kısma _SourceFolder yazısı gelecektir. Quote Link to comment Share on other sites More sharing options...
zamaneberduşu Posted October 16, 2011 Share Posted October 16, 2011 [b]Dvd yi Çıkart kodunu yazınca bu hatayı alıyorum AutoPlay Media Studio 8.0.6.0 kullanıyorum DrivesTB = Drive.Enumerate(); for nIndex, DrvLetter in DrivesTB do if Drive.GetType(DrvLetter) == 5 then Drive.Eject(DrvLetter); Application.Exit(0); error = Application.GetLastError(); if (error ~= 0) then Dialog.Message("Hata", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); end end end[/b] [img]http://www.tnctr.com/uploads/imgs/pre_1318783785__adsz.jpg[/img] Quote Link to comment Share on other sites More sharing options...
KintaRo Posted October 16, 2011 Share Posted October 16, 2011 kodları aşağıdakilerle değiştirin: [quote]DrivesTB = Drive.Enumerate(); for nIndex, DrvLetter in pairs(DrivesTB) do if Drive.GetType(DrvLetter) == 5 then Drive.Eject(DrvLetter); Application.Exit(0); error = Application.GetLastError(); if (error ~= 0) then Dialog.Message("Hata", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION); end end end[/quote] sebebi ise for döngülerinde tablo kullanırken eskiden pairs argümanı gerekmezken v8'de for i,v in pairs(tablo) do şeklinde değişiklik yapılması. Quote Link to comment Share on other sites More sharing options...
zamaneberduşu Posted October 16, 2011 Share Posted October 16, 2011 [quote name='KintaRo' date='16 October 2011 - 18:02 ' timestamp='1318788160' post='1096171'] kodları aşağıdakilerle değiştirin: sebebi ise for döngülerinde tablo kullanırken eskiden pairs argümanı gerekmezken v8'de for i,v in pairs(tablo) do şeklinde değişiklik yapılması. [/quote] [b]Hızır gibi yetiştiniz hallettim bu kodla üstat [/b] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.