Otvaranje direktorijuma

2

Otvaranje direktorijuma

offline
  • MPenza 
  • Novi MyCity građanin
  • Pridružio: 04 Feb 2004
  • Poruke: 29
  • Gde živiš: Europe, Montenegro, Cetinje

Hmm... Ja sam već nekoliko puta koristio tu API funkciju i nikada nijesam imao problema sa njom. Deklarisao sam je u Modulu koji dostupan svima. Takođe je sve normalno deklarisano... Pojma nemam zašto ne radi... Uostalom, zašto ne probaš za pozivanjem shell ("explorer.exe c:\my documents") u form loadu ....... Mnogo je lakše...



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 18 Jul 2003
  • Poruke: 4196
  • Gde živiš: U zlatnom kavezu

Ja sam to resio ovako:

Private Sub Form_Load()     SendKeys "%{TAB}", True     optStandard.TabStop = False     imgopen_f.Visible = False End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)     imgopen_f.Visible = False End Sub Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)     imgopen_f.Visible = False End Sub Private Sub imgClose_f_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)     imgopen_f.Visible = True End Sub Private Sub imgopen_f_Click()     '****************************************************     'Ovde je postavljen uslov koji programu govori koje je     'opciono dugme odabrano     '*****************************************************         'Ako je odabrano opciono dugme standard onda     If optStandard.Value Then     'Pokreni fajl c:\program files\....\mydoc_2     Shell "c:\program files\t-media\mydoc_2.bat", vbMaximizedFocus     Else 'U suprotnom     'Pokreni fajl c:\program files\....\mydoc     Shell "c:\program files\t-media\mydoc.bat", vbMaximizedFocus     End If ' Kraj uslova     'imgopen_f.ToolTipText "Kliknite mišem" - greska u kucanju     Unload Me 'Po obavlenom zadatku isljuci program '************************************************************ 'Fajlovi mydoc i mydoc_2 sadrze komande za otvaranje foldera '************************************************************ End Sub Private Sub lblInfo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)     imgopen_f.Visible = False End Sub Private Sub lblIzbor_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)     imgopen_f.Visible = False End Sub Private Sub optData_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)     imgopen_f.Visible = False End Sub Private Sub optStandard_Click()     imgopen_f.Visible = False End Sub



offline
  • MPenza 
  • Novi MyCity građanin
  • Pridružio: 04 Feb 2004
  • Poruke: 29
  • Gde živiš: Europe, Montenegro, Cetinje

Hmm... Pomalo dugačko zar ne?:-) Ma čovječe, lako je napraviti program koji radi. Ali koji radi dobro, koji nije veliki i koji je brz je teško. Moja verzija Autorunnera 1.0 je teška svega 56KB i svi mmi se čude kako sam tako stabilan i dobar program uspio da smjestim u 56 KB kada neki Auto Run programi zauzimaju po 500 KB. Da se prekrstiš. Uostalom, Ako uradiš kako sam ti ja rekao dobijaš sljedeće: Brzinu (explorer.exe je stalno učitana programoteka u memoriji). Ne koristiš API funkcije niti time usporavaš izvršavanje i sistem i što je možda najbitnije: manja je mogućnost greške:-) (da li je uopšte i moguća). Možeš koristiti i parametre kao što su . TAČKA , ZAREZ .. DVIJETAČKE itd... A oni su baš korisni. Tako sa .. otvaraš trenutnu radnu omotnicu pozvanog programa; sa . otvaraš trenutnu radnu omotnicu tvog programa itd... isprobaj sve komandne parametre. Pokreni okvir za izvršavanje Run i kucaj te znakove interpukcije i šta ja znam šta već.

offline
  • Pridružio: 18 Jul 2003
  • Poruke: 4196
  • Gde živiš: U zlatnom kavezu

Hvala na savetu

Ko je trenutno na forumu
 

Ukupno su 613 korisnika na forumu :: 30 registrovanih, 4 sakrivenih i 579 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, A.R.Chafee.Jr., Aleksandar Tomić, aleksmajstor, aramis s, comi_pfc, darios, Drug pukovnik, Georgius2, goxin, ikan, indja, Insan2, JOntra2, kaptain2, kovinacc, kybonacci, leptirleptir, Levi, madza2, MarKhan, Marko Marković, Mihajlo2, Njemac, Pakito93, Vlada1389, Vlada78, vlvl, zlaya011, Zori2