rockinking Posted November 15, 2011 Share Posted November 15, 2011 (edited) Merhaba Ben By_Facia Arkadaşın Yazdığı Masaüstü Programından yararlanıp ve etkilenip onun gibi ama biraz farklı program yapmaya çalışıyorum fakat bir şeyi bir türlü beceremedim daha doğrusu olabilirmi olmazmı diye size de danışmak istedim. Takıldığım Olay Şu ; 2. Resimdeki Numaralı kutulara ben her yeni ekleyeceğim programı,Oyun vs.. yi her seferinde programı ams ile tekrar editlemekle uğraşmak yerine şöyle bir şey aklıma geldi. ustalar burada size ihtiyacım var mesela ben autorun klasörünün içine "oyunlar" diye bir klasör Açayım ve bu klasörün içine örn: "Half-life.lnk" Ve "Half-life.jpg" link ve resmini atayım sonra programda (2. resimde gösterdiğim) kutu resim olarak "Half-Life.jpg" resmini alsın Link Olarak "Half-Life.lnk" linki alsın ve ben programa oyun dahil etmek istediğimde hiç Ams ile editmelek zorunda Kalmadan link ve jpeg leri oyun klasörüne atarak Programı AMS ile editlememe gerek kalmasın mesela "nero.lnk" "nero.jpg" "ultraiso.lnk" "ultraiso.jpg" "Photoshop.lnk" "Photoshop.jpg" "Ams.lnk" "Ams.jpg" "Firefox.lnk" "Firefox.jpg" "Clonecd.lnk" "Clonecd.jpg" ben bu klasöre Bunları Attım 6 adet link ve resim programdaki 6 adet kutuya bu linkler ve resimler sırayla yerleşse Böyle Birşey mümkünmüdür acaba Proje Dosyasıda Bu : http://hotfile.com/dl/135106143/48ad769/My_Project1.rar.html Şimdiden teşekkürler yardımınızı Bekliyorum program "1280*1024" Çözünürlükte Çalışıyor Edited November 25, 2011 by rockinking Quote Link to comment Share on other sites More sharing options...
pilgetir Posted November 15, 2011 Share Posted November 15, 2011 Sanırım bu mümkün olmasa gerek tam emin değilim. Quote Link to comment Share on other sites More sharing options...
prototype Posted November 15, 2011 Share Posted November 15, 2011 Tam olarak istediğiniz bumuydu; [code]http://www.indirmatik.net/downloads/ams/prototype/klasor.rar[/code] Oyun kısayollarını "AutoPlay\Oyunlar" klasörünün içine atmanız yeterli. Quote Link to comment Share on other sites More sharing options...
prototype Posted November 15, 2011 Share Posted November 15, 2011 Tam olarak istediğiniz bumuydu; [code]http://www.indirmatik.net/downloads/ams/prototype/klasor.rar[/code] Oyun kısayollarını "AutoPlay\Oyunlar" klasörünün içine atmanız yeterli. Quote Link to comment Share on other sites More sharing options...
rockinking Posted November 15, 2011 Author Share Posted November 15, 2011 [quote name='prototype' date='15 November 2011 - 17:40 ' timestamp='1321378823' post='1112229'] Tam olarak istediğiniz bumuydu; [code]http://www.indirmatik.net/downloads/ams/prototype/klasor.rar[/code] Oyun kısayollarını "AutoPlay\Oyunlar" klasörünün içine atmanız yeterli. [/quote] Yok Bu Tarza Değil Tam olarak Anlatamadım Herhalde ŞöylE Anlatayım Ben her Yeni Oyun Aldığımda Bu Yaptığım Programı Editleyip Yeniden buton ekleyip buna yol göstermek yerine o klasörün içine attığım aynı isimlerdeki oyunun kısayolunu ve resmini programda belirlediğim yerde görünmesi istiyorum yani ben hiç programı editlemeyeceğim sadece mesela bir image kutusu koydum programıma oyunlar klasörüne "half life.jpg" isimli bir resim attığımda bu kutuya bu resim gelecek "half life.lnk" kısayoluda bu kutuya tıkladığımda açılacak Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted November 15, 2011 Share Posted November 15, 2011 [center][b]Biraz Uğraştım Fakat [color="#FF0000"]Yapamadım[/color] Tam Olarak. Aslında İstediğin Şey Mümkün Gibi Görünüyor. Bir Örnek Hazırladım. Şimdilik Beynimizde Birşeyler Oluşturmamıza Yönelik Bir Örnek. Fakat Kısayolu [color="#FF0000"]Çalıştırmıyor.[/color] Kısayolu Çalıştıracak Kombinasyonu Sağlarsak İşlem Tamamdır. AutoPlay\Docs Klasörü İçine photoshop.png ve photoshop Kısayolunu Koydum. Kodlar Tamam. Fakat File.Run İle Çalıştıramadım Kısayolu. Yardım Eden Olursa Projeyi Tamamlayabiliriz.[/b][/center] [center][img]http://i.imgur.com/XSCRZ.png[/img][/center] [center][b]Proje[/b][/center] [center][code]http://hotfile.com/dl/135132808/a59ad8d/Ksayol.rar.html[/code][/center] Quote Link to comment Share on other sites More sharing options...
prototype Posted November 15, 2011 Share Posted November 15, 2011 @Baba_ file.run yerine file.open komutu olabilir mi acaba ?.. Şuan cafedeyim deneyemiyorum. Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted November 15, 2011 Share Posted November 15, 2011 [b]Denedim. Olmuyor.[/b] Quote Link to comment Share on other sites More sharing options...
NotToday Posted November 15, 2011 Share Posted November 15, 2011 (edited) Peki kısayol yerine iniden yolunu alsa.Daha sonra bu yolu değiştirmek mümkün olur.Böyle bir alternati işe yarar mı ? Edited November 15, 2011 by ReaLyMaN Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted November 15, 2011 Share Posted November 15, 2011 [center][b]Evet. Yapılabilir.[/b][/center] Quote Link to comment Share on other sites More sharing options...
KintaRo Posted November 16, 2011 Share Posted November 16, 2011 [code]Shell.Execute("AutoPlay\\Docs\\Nero Express.lnk", "open", "", "AutoPlay\\Docs", SW_SHOWNORMAL, false)[/code] kısayol çalıştırma bu kadar unutmayın Shell.Execute executable olmayan dosyaları (Örn: jpg gibi) hangi programla ilişkilendirilmişse onla açmaya çalışır. Yani psd dosyasını shell.execute() ile çalıştırdığınızda photoshop kurulu ise onla açar başka bir grafik programınız varsa onla açar vesaire. Quote Link to comment Share on other sites More sharing options...
rockinking Posted November 16, 2011 Author Share Posted November 16, 2011 [quote name='Baba_' date='15 November 2011 - 21:25 ' timestamp='1321392320' post='1112389'] [center][b]Biraz Uğraştım Fakat [color="#FF0000"]Yapamadım[/color] Tam Olarak. Aslında İstediğin Şey Mümkün Gibi Görünüyor. Bir Örnek Hazırladım. Şimdilik Beynimizde Birşeyler Oluşturmamıza Yönelik Bir Örnek. Fakat Kısayolu [color="#FF0000"]Çalıştırmıyor.[/color] Kısayolu Çalıştıracak Kombinasyonu Sağlarsak İşlem Tamamdır. AutoPlay\Docs Klasörü İçine photoshop.png ve photoshop Kısayolunu Koydum. Kodlar Tamam. Fakat File.Run İle Çalıştıramadım Kısayolu. Yardım Eden Olursa Projeyi Tamamlayabiliriz.[/b][/center] [center][img]http://i.imgur.com/XSCRZ.png[/img][/center] [center][b]Proje[/b][/center] [center][code]http://hotfile.com/dl/135132808/a59ad8d/Ksayol.rar.html[/code][/center] [/quote] Evet @Baba_ anlatmak istediğim olay buna benziyor ama tam olarak değil Şöyle İzah Edeyim; listbox da seçtiğimiz linki , çalıştır butonuna basınca çalıtırıyorya şöyle birşey mümkün olmazmı mesela image kutusu direk olarak resmi bünyesine alsın linkide bünyesine alsın ve resme tıklayıncada açsın Yani ListBox dan seçip de çalıştır tuşuna basmak yerine , direk resme basıpta programı açabilmek [center][img]http://c1111.hizliresim.com/r/j/kq1t.png[/img][/center] Bu resimi Şöyle İzah Edeyim Ben Docs Klasörüne "Photoshop.lnk","Photoshop.jpg" Ve "Nero.lnk","Nero.jpg" Link Ve Resimleri Attım Ve Projede Resimdeki Gibi görünsün ve Resimlere Tıklayınca Açılsın "Bu arada İlla .lnk uzantı olası mühim değil bir bat dosyası oluşturup onun içinden de kısayol komutu verilebilir" Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted November 16, 2011 Share Posted November 16, 2011 [b]Ben Örnek Amaçlı Yaptım Zaten. KintaRo'nun Verdiği Kod Yardımı İle Projeyi Düzenleyebilirsin. İstediğin Şekilde Yaparsın. Takıldığın Yer Olursa Yine Burdan Sorarsın. Projenin Tamamını Biz Yapmayalım Yani.[/b] Quote Link to comment Share on other sites More sharing options...
Mehmet Posted November 16, 2011 Share Posted November 16, 2011 [quote name='KintaRo' date='16 November 2011 - 06:33 ' timestamp='1321425220' post='1112512'] [code]Shell.Execute("AutoPlay\\Docs\\Nero Express.lnk", "open", "", "AutoPlay\\Docs", SW_SHOWNORMAL, false)[/code] kısayol çalıştırma bu kadar unutmayın Shell.Execute executable olmayan dosyaları (Örn: jpg gibi) hangi programla ilişkilendirilmişse onla açmaya çalışır. Yani psd dosyasını shell.execute() ile çalıştırdığınızda photoshop kurulu ise onla açar başka bir grafik programınız varsa onla açar vesaire. [/quote] evet autoitde aynı yöntem kullanılıyor yani benzer ShellExecute ShellExecuteWait exe uzantılı olmayan kısayollar msi uzantıları falan gerçekten bu kodlar basit ama işimize yaradığı zamanda bulamadığımız yöntemler unutmamak gerekir Quote Link to comment Share on other sites More sharing options...
rockinking Posted November 17, 2011 Author Share Posted November 17, 2011 Kısayol Açmak İçin Şöyle Yaptım; [codebox]Secilen = ListBox.GetSelected("ListBox1"); sAd = ListBox.GetItemText("ListBox1", Secilen[1]); Shell.Execute("AutoPlay\\Docs\\Program\\"..sAd..".lnk", "open","", "AutoPlay\\Docs\\Program", SW_SHOWNORMAL, false); [/codebox] Proje de 1. Aşaması TamamDır Çok Teşekkür Ediyorum sizlere Proje Dosyası http://hotfile.com/dl/135280247/1765957/TGMK.rar.html Geliştiren Olursa Paylaşırsa Sevinirim Fakat Ufak Bir sorun daha var bunu Çözemedim? [code]tblFiles = File.Find(sYol, "*.png", true, false, nil, nil);[/code] bu Kodda Sadece png uzantılılıraı açıyor Ben Hem Png Hemde Jpg Nasıl Yapabilirim çok uğraştım ama bir türlü olmuyor? Quote Link to comment Share on other sites More sharing options...
NotToday Posted November 17, 2011 Share Posted November 17, 2011 (edited) Bunu bir dene [quote]tblFiles = File.Find(sYol, "*.jpg", true, false, nil, nil); tblFiles = File.Find(sYol, "*.png", true, false, nil, nil);[/quote] Edited November 17, 2011 by ReaLyMaN Quote Link to comment Share on other sites More sharing options...
Mehmet Posted November 17, 2011 Share Posted November 17, 2011 (edited) sanırım jpg veya png ilgili resme tıkladığında açmak istediğin klasör açılsın demek istemişssin aslında bunu ufak bir autoit koduylada yapmanda mümkün o nesne herne ise jpg png gif tıkladığında RunWait("explorer.exe " & "klasöryolu\altklasör") veya Run("explorer.exe " & "klasöryolu\altklasör") Edited November 17, 2011 by MeHMeTBeN Quote Link to comment Share on other sites More sharing options...
KintaRo Posted November 17, 2011 Share Posted November 17, 2011 mehmet, forumları karıştırdın galiba [quote]Fakat Ufak Bir sorun daha var bunu Çözemedim? [code]tblFiles = File.Find(sYol, "*.png", true, false, nil, nil);[/code] bu Kodda Sadece png uzantılılıraı açıyor Ben Hem Png Hemde Jpg Nasıl Yapabilirim çok uğraştım ama bir türlü olmuyor? [/quote] burda tam olarak ne yapmak istiyorsun, o kısmın tüm kodlarını ver düzenleyeyim. Quote Link to comment Share on other sites More sharing options...
rockinking Posted November 17, 2011 Author Share Posted November 17, 2011 [quote]burda tam olarak ne yapmak istiyorsun, o kısmın tüm kodlarını ver düzenleyeyim. [/quote] Yapmak İstediğim Şu Klasörün içinde png ve jpg dosyaları var ama ben bu kodu *.png yaparsam sadece pngleri gösteriyo *.jpg yaparsam sadece jpg uzantılıları gösteriyo ben 2 sinide nasıl gösterttirebilirim onu sordum [codebox]sYol = _SourceFolder.."\\AutoPlay\\Docs\\Oyun\\" tblFiles = File.Find(sYol, "*.png", true, false, nil, nil); if tblFiles then for i,v in pairs (tblFiles) do local tblSplit = String.SplitPath(v) ListBox.AddItem("ListBox1", tblSplit.Filename, v); end end [/codebox] Quote Link to comment Share on other sites More sharing options...
KintaRo Posted November 17, 2011 Share Posted November 17, 2011 [codebox]sYol = _SourceFolder.."\\AutoPlay\\Docs\\Oyun\\" tPng = File.Find(sYol, "*.png", true, false, nil, nil); tJpg = File.Find(sYol, "*.jpg", true, false, nil, nil); if tPng then for i,v in pairs (tPng) do local tblSplit = String.SplitPath(v) ListBox.AddItem("ListBox1", tblSplit.Filename, v); end end if tJpg then for i,v in pairs (tJpg) do local tblSplit = String.SplitPath(v) ListBox.AddItem("ListBox1", tblSplit.Filename, v); end end[/codebox] 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.