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: 4201
  • 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: 4201
  • Gde živiš: U zlatnom kavezu

Hvala na savetu

Ko je trenutno na forumu
 

Ukupno su 692 korisnika na forumu :: 13 registrovanih, 3 sakrivenih i 676 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Altay, dane007, DARKMEN22, FrankyRC, GreenMan, Hoegaarden, ILGromovnik, Imperator41, mane123, Mixelotti, Nebo_M, sabros, Srki94