DVD'ye Gözat - DVD'yi çalıştır kodları

[nuso]

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 ?

[casira]

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.

[nuso]

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 ?

[KintaRo]

Shell.Execute(_SourceFolder, "open", _SourceFolder, "", SW_SHOWNORMAL, false)[/CODE]

Bu komutla istediğini yapabilirsin.

[nuso]

Shell.Execute(_SourceFolder, "open", _SourceFolder, "", SW_SHOWNORMAL, false)[/CODE]

Bu komutla istediğini yapabilirsin.

Çok Teşekkür Ederim Arkadaşım Oldu.

[casira]

Properties yanındaki browse kısmından CD-Root olarak ayarla o boş kısma _SourceFolder yazısı gelecektir.

[zamaneberduşu]

[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]

[KintaRo]

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ı.

[zamaneberduşu]

[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]