Jump to content

Katılımsız Kuruluma Program Ekleme


HalilYanar
 Share

Recommended Posts

Öncelikle İyi Günler Arkadaşlar,

Ben bir katılımsız yapıyorum fakat beceremediğim bir yer oldu. Gözat butonundan seçtiğimiz .exe yi Autoplay/Docs klasörüne exe yi kopyalamasını istiyorum fakat beceremedim. Yardımlarını bekliyorum...

.Apz :
http://www.mediafire.com/?motwvv1zox1151t Edited by HalilYanar
Link to comment
Share on other sites

result = Dialog.FileBrowse([color="#0000FF"]true[/color], [color="#DDA0DD"]"Locate File"[/color], _DesktopFolder, [color="#DDA0DD"]"All Files (*.*)|*.*|"[/color][color="#FF0000"],[/color] [color="#DDA0DD"]""[/color][color="#FF0000"],[/color] [color="#DDA0DD"]"exe"[/color][color="#FF0000"],[/color] [color="#0000FF"]false[/color][color="#FF0000"],[/color] [color="#0000FF"]false[/color]);
File.Copy(result, [color="#DDA0DD"]"AutoPlay\\Docs"[/color], [color="#0000FF"]true[/color], [color="#0000FF"]true[/color], [color="#0000FF"]false[/color], [color="#0000FF"]true[/color], [color="#0000FF"]nil[/color])[color="#FF0000"];[/color]


Bu şekilde olabilirmi?

Link to comment
Share on other sites

o şekilde olmaz, Dialog.FileBrowse() un dönüşü string değil, table dir. Yani çoklu seçim yapacağınızı varsayarak seçilen dosya ya da dosyaları tablo içine alıp size verir. O yüzden ya tablo_adi[1] şeklinde ilk gelen dosyayı alırsınız ya da for döngüsü ile seçilen tüm dosyaları döngüye sokup işlem yaptirirsiniz.

[quote]tDosya = Dialog.FileBrowse(true, "Dosya Seçin", _DesktopFolder, "EXE dosyaları (*.exe)|*.exe|", "", "", false, true)
if tDosya[1] ~= "CANCEL" then
sDosya = String.SplitPath(tDosya[1]).Filename .. String.SplitPath(tDosya[1]).Extension;
File.Copy(tDosya[1], _SourceFolder .. "\\Autoplay\\Docs\\" .. sDosya, false, true, false, true, nil)
Dialog.Message("OK", "İşlem baaşrılı")
end[/quote]

Link to comment
Share on other sites

KintaRo abi teşekkürler oldu :) Abi bir de birşey sorucam bu program ekleniyorda fakat listeye eklenmesi için listeyi yenile butonu yapabilirmiyiz mesela sayfa sanki yeniden açılmış gibi listeye gelmesi için yeniden kapatıp açıyorumda..

Link to comment
Share on other sites

Page.Jump("sayfa_ismi")

yazarsan sayfayı yeniler

[quote name='nightmare3519' date='13 March 2012 - 15:51 ' timestamp='1331646688' post='1168890']
Ben denedim sorun çıkmadı.
[/quote]

evet çok güzel çalışıyor gerçekten, bari iddia etmeyin ya.

[img]http://i.imgur.com/G16Ag.png[/img]

Link to comment
Share on other sites

[quote name='KintaRo' date='13 March 2012 - 16:02 ' timestamp='1331647366' post='1168894']
Page.Jump("sayfa_ismi")

yazarsan sayfayı yeniler



evet çok güzel çalışıyor gerçekten, bari iddia etmeyin ya.[/quote]

Yok abi yanlış anladın ben seninkini denedim çalıştı demek istedim oluyormu dedim zaten

Ben şu hatayı aldım derken senin kodda aldğını zannettim yoksa neden oluyor deyim?

Link to comment
Share on other sites

KintaRo Abi yaptım ama gözat diyip dosyayı seçip yükledikten sonra yenile diyorum fakat listeyi siliyor fakat geri getirmiyor liste boş kalıyor ama hiç bi dosya yüklemeden kurulum programını açıp hiç bişi yapmadan yenile dersem öyle yenileniyor yenile butonundaki kodlar :
[quote]ListBox.DeleteItem("ListBox1", -1)
Application.Sleep(1000)
Page.Jump("Page1")[/quote]


EDİT : Sorunu Çözdüm. Emeği Geçenlere Teşekkürler...

[quote]Page 1 ve Page 2 açtım Yenile butonuna
ListBox.DeleteItem("ListBox1", -1)
Application.Sleep(1000)
Page.Jump("Page2")
Sonra Page 2 nin on show evresine Page.Jump("Page1") Yaptım benim içinde pratik oldu sağolun arkadaşlar..[/quote]

Edited by HalilYanar
Link to comment
Share on other sites

[quote name='murathassoy' date='13 March 2012 - 16:57 ' timestamp='1331650656' post='1168934']
[b]halil başlığa ßaksana katılınsız değil :) KATILIMSIZ yaz ;)[/b]
[/quote]

Murat abi sende konu içeriğinden alakasız şeyi yazıyorsun :D :D

Edited by nightmare3519
Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...