kimtakar Posted September 26, 2013 Share Posted September 26, 2013 (edited) ustalar projede açıkca anlatmaya çalıştım takıldığım yeri, projede bir resim var ve bu resime sağ tıkladığımda 1.simge seç 2.oyun seç şeklinde bir menü açılıyor simge olayını halletim kendi çapımca ancak oyun seçme olayını başaramadım, durum şu: projenin kök dizininde oyunlar adında bir klasörüm var ve bu klasör içinde portable olan herangi bir oyun var ben resime sağ tıklayıp "oyun seç" dediğimde, oyunlar klasöründeki oyunu seçicem ve resime sol tıklama yaptığımda oyun açılıcak, bunu yapamadım çok kolay olabilir ama kafam durdu. oyunun dosya yolu örn=oyunlar/nfs/msw.exe bunu iniye kaydetmem gerek ama yapamadım örn çalışma: http://yadi.sk/d/pGkoXqsP9xGTx yeni konu: http://www.tnctr.com/topic/233270-ebed-amiralv11-gelithtirme/ Edited September 27, 2013 by kimtakar Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted September 27, 2013 Share Posted September 27, 2013 Oyun butonunun ilk satırlarına ini verisini kontrol ettirirsin eğer varsa oyunu açar yoksa dialog.message dan küçük bir uyarı verdirirsin. Quote Link to comment Share on other sites More sharing options...
kimtakar Posted September 27, 2013 Author Share Posted September 27, 2013 hocam sıkıntım oyunun dosya yolunu ini ye yazdıramamak dialog sonraki derdim malesef Quote Link to comment Share on other sites More sharing options...
korasoglu Posted September 27, 2013 Share Posted September 27, 2013 Sag clike ------------------ Mouse = System.GetMousePosition(true, nil); tblMenu = {}; tblMenu[1] ={}; tblMenu[1].Text = "İcon Sec"; tblMenu[1].ID = 01; tblMenu[1].Checked = false; tblMenu[1].Enabled = true; tblMenu[1].IconID = 1; tblMenu[2] ={}; tblMenu[2].Text = "Program Sec"; tblMenu[2].ID = 02; tblMenu[2].Checked = false; tblMenu[2].Enabled = true; tblMenu[2].IconID = 2; aaa = Application.ShowPopupMenu(Mouse.X+5, Mouse.Y+30, tblMenu, TPM_LEFTALIGN, TPM_VCENTERALIGN, true, true); if(aaa == 1)then tDosya = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false); if tDosya[1] ~= "CANCEL" then dosya = String.SplitPath(tDosya[1]); StatusDlg.Show() File.Copy(tDosya[1], _SourceFolder .. "\\img\\icon\\oyunlar\\" .. dosya.Filename .. dosya.Extension, false, true, false, true, nil) StatusDlg.Hide() INIFile.SetValue(_SourceFolder .. "\\img\\icon\\oyunlar\\oyun.ini", "resim", "yol1", dosya.Filename .. dosya.Extension) end elseif aaa == 2 then kimtakar = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false); if kimtakar[1] ~= "CANCEL" and kimtakar ~= "" then INIFile.SetValue(_SourceFolder .. "\\AutoPlay\\Docs\\kimtakar.ini", "kimtakar", "1", kimtakar[1]) end end On Clike ----- kimtakar = INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\kimtakar.ini", "kimtakar", "1"); File.Open(kimtakar, "", SW_SHOWNORMAL); Yeterli Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted September 27, 2013 Share Posted September 27, 2013 Amacın böyle bir şey yapmak mı? http://www.tnctr.com/topic/231092-oyun-arthiv-sql-projesi/ Quote Link to comment Share on other sites More sharing options...
kimtakar Posted September 27, 2013 Author Share Posted September 27, 2013 (edited) Sag clike ------------------ Mouse = System.GetMousePosition(true, nil); tblMenu = {}; tblMenu[1] ={}; tblMenu[1].Text = "İcon Sec"; tblMenu[1].ID = 01; tblMenu[1].Checked = false; tblMenu[1].Enabled = true; tblMenu[1].IconID = 1; tblMenu[2] ={}; tblMenu[2].Text = "Program Sec"; tblMenu[2].ID = 02; tblMenu[2].Checked = false; tblMenu[2].Enabled = true; tblMenu[2].IconID = 2; aaa = Application.ShowPopupMenu(Mouse.X+5, Mouse.Y+30, tblMenu, TPM_LEFTALIGN, TPM_VCENTERALIGN, true, true); if(aaa == 1)then tDosya = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false); if tDosya[1] ~= "CANCEL" then dosya = String.SplitPath(tDosya[1]); StatusDlg.Show() File.Copy(tDosya[1], _SourceFolder .. "\\img\\icon\\oyunlar\\" .. dosya.Filename .. dosya.Extension, false, true, false, true, nil) StatusDlg.Hide() INIFile.SetValue(_SourceFolder .. "\\img\\icon\\oyunlar\\oyun.ini", "resim", "yol1", dosya.Filename .. dosya.Extension) end elseif aaa == 2 then kimtakar = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false); if kimtakar[1] ~= "CANCEL" and kimtakar ~= "" then INIFile.SetValue(_SourceFolder .. "\\AutoPlay\\Docs\\kimtakar.ini", "kimtakar", "1", kimtakar[1]) end end On Clike ----- kimtakar = INIFile.GetValue(_SourceFolder.."\\AutoPlay\\Docs\\kimtakar.ini", "kimtakar", "1"); File.Open(kimtakar, "", SW_SHOWNORMAL); Yeterli işte budur edit: hocam kök dizin olarak "\\oyunlar\\" klasörünü yazdırmayızmı? yani c:\falan\filan... değilde \oyunlar\gta\başla.exe olarak yani Amacın böyle bir şey yapmak mı? http://www.tnctr.com/topic/231092-oyun-arthiv-sql-projesi/ öyle bişey değil hocam paylaşıcam bikaç güne kadar projeyide Edited September 27, 2013 by kimtakar Quote Link to comment Share on other sites More sharing options...
korasoglu Posted September 27, 2013 Share Posted September 27, 2013 "\\oyunlar\\" klasörünü yazdırmayızmı? yani c:\falan\filan... değilde \oyunlar\gta\başla.exe olarak yani Burada INIFile.SetValue(_SourceFolder .. "\\AutoPlay\\Docs\\kimtakar.ini", "kimtakar", "1", kimtakar[1]) istediğin klasörü belirt Mesela INIFile.SetValue(_SourceFolder .. "\\AutoPlay\\Oyun\\kimtakar.ini", "kimtakar", "1", kimtakar[1]) Docs Klasörüne değil AutoPlay klasörünün içerisindeki Oyun klasörüne kaydedecek Şöyle yapabilirsin INIFile.SetValue(_SourceFolder .. "\\Oyun\\kimtakar.ini", "kimtakar", "1", kimtakar[1]) Veriyi alırkende kimtakar = INIFile.GetValue(_SourceFolder.."\\Oyun\\kimtakar.ini", "kimtakar", "1"); olursa işini görür. Hala anlamadım diyorsan yine yardımcı olalım. 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.