MyCity » Pascal -> Delphi » Autorun

Autorun

Napisano na dan: 14.11.2003
2

Autorun
Pagination Prethodna strana

Idi na vrh

Poslao: 19 Nov 2003 22:38
Idi na vrh
offline
  • Max  Male
  • Super građanin
  • Marko Milic
  • MWEB - Project manager & Front-end developer /Saobracajni inzenjer
  • Pridružio: 02 Nov 2003
  • Poruke: 1363
  • Gde živiš: Beograd - Jagodina

.Pokrenes novi projekat
2.U kodu posle implementation kucas uses FMXUtils;
3.Ubacis jedno dugme
4.Dvaput kliknes na njega
Sada bi trebalo da dodas kod
procedura treba da izgleda ovako:
procedure TForm1.Button1Click(Sender: TObject);
var
H:THandle;
begin
H:= ExecuteFile('index.htm', '','',SW_NORMAL);
close;
end;
5. Na kraju kompajlujes program(F9), i dobijeni exe kopiras u neki folder
sa index.htm. Klikom na Button1 pokreces fajlu.
Uf koristi malo F1!
Kreni sa nekim prostijim programima!
I slobodno koristi F1, sto vise.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 19 Nov 2003 23:48
Idi na vrh
offline
  • Bojan  Male
  • Prijatelj foruma
  • Pridružio: 13 Nov 2003
  • Poruke: 11059
  • Gde živiš: Novi Sad

Max, zahvaljujem. Cini mi se na prvi pogled da bi sad trebalo da jesnije.



Poslao: 04 Feb 2004 14:07
Idi na vrh
offline
  • Yonder 
  • Novi MyCity građanin
  • Pridružio: 15 Avg 2003
  • Poruke: 12
  • Gde živiš: Belgrade, Yugoslavia

Naravno da moze da se uradi... Smile

Pritom bi bilo lepo (i korisno) da se proverava sta je shellexec uradio, Smile
a i gde je trazio ono sto mu treba...

procedure TForm1.button1Click(Sender: TObject); var x:string; begin x:=ExtractFilePath(Application.ExeName)+'readme.txt'; case ShellExecute (0, 'open', pchar(x), nil, nil, SW_SHOWNORMAL) of 0:showmessage('Nedovoljno sistemskih resursa za startovanje'); ERROR_FILE_NOT_FOUND:showmessage('Datoteka nije pronadjena'); ERROR_PATH_NOT_FOUND:showmessage('Lokacija datoteke nije pronadjena'); ERROR_BAD_FORMAT:showmessage('Program se ne moze startovati pod ovim operativnim sistemom'); SE_ERR_ACCESSDENIED: showmessage('Zabranjen pristup datoteci'); SE_ERR_ASSOCINCOMPLETE: showmessage('Program koji otvara ovu datoteku je neispravan! (instalirajte Adobe Acrobat)'); SE_ERR_NOASSOC: showmessage('Ne postoji program koji otvara ovu datoteku! (instalirajte Adobe Acrobat)'); SE_ERR_OOM: showmessage('Nedovoljno memorije za ovu operaciju'); SE_ERR_SHARE: showmessage('Mrezno deljena lokacija nije dostupna'); end; end;

Elem, znaci ovaj kod radi na pritisak tastera sa default nazivom button1 i startuje readme.txt iz direktorijum gde je aplikacija...

Nadam se da ovo pomaze Smile

Poslao: 04 Feb 2004 14:59
Idi na vrh
offline
  • Max  Male
  • Super građanin
  • Marko Milic
  • MWEB - Project manager & Front-end developer /Saobracajni inzenjer
  • Pridružio: 02 Nov 2003
  • Poruke: 1363
  • Gde živiš: Beograd - Jagodina

To je previse komplikovano za pocetnika. A i autorun je jednostavan ne treba komplikovati.

Poslao: 14 Maj 2005 22:35
Idi na vrh
offline
  • medium 
  • Novi MyCity građanin
  • Pridružio: 28 Feb 2005
  • Poruke: 12
  • Gde živiš: iza coska pa severno :) o24 Subotica

Boki,odgovor na tvoje pitanje si dobio 13.05.2005. ! POZDRAV ! Cujemo se!

Poslao: 17 Jun 2005 23:45
Idi na vrh
offline
  • Bojan  Male
  • Prijatelj foruma
  • Pridružio: 13 Nov 2003
  • Poruke: 11059
  • Gde živiš: Novi Sad

Bojan ::...kako bih u Delphi-ju mogao napraviti autorun sa menijima koji bi vodili ka instalaciji programa koji se nalaze na CD-u.

Samo da kazem da je ono sto sam hteo u stvari ovo:

winexec('program.exe' ,SW_SHOWNORMAL);

Znaci kad kliknem na odredjeno dugme pocne instalacija nekog programa.

Mozda nekom zatreba.

Poslao: 12 Jul 2005 20:37
Idi na vrh
offline
  • Srđan Tot
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Da ne bi morao svaki put da pravis nov autorun dialog preporucujem ti da napravis jednostavan script driven autorun dialog. Imas dialog koji na osnovu skript fajla izabira sliku koju ce ucitati i dugmice koje ce prikazivati kao i njihove nazive i ono sto ce raditi. Prilicno je lako... TStringList ti moze odraditi sav posao oko ucitavanja skript fajla... skript bi mogao izgledati ovako

Slika=Film.jpg
Dugme1=Pusti film, player.exe film.avi
Dugme2=Instaliraj kodek, codecinstall.exe
Dugme3=Izlaz, [exit]

Prilicno je jednostavno napraviti oveko nesto... ako ne budes umeo da se snadjes pitaj.

Poslao: 20 Avg 2005 15:08
Idi na vrh
offline
  • Pridružio: 19 Avg 2005
  • Poruke: 8

Koristi MultimediaBuilder za pravljenje autorunova za cd-ove!

Poslao: 20 Avg 2005 15:38
Idi na vrh
offline
  • Bojan  Male
  • Prijatelj foruma
  • Pridružio: 13 Nov 2003
  • Poruke: 11059
  • Gde živiš: Novi Sad

Koristio sam i AutoPlay Media Studio koji je lepo radio posao ali sam hteo uraditi nesto svoje. Skontao sam jos davno kako to sve da uradim Wink

MyCity » Pascal -> Delphi » Autorun

Ko je trenutno na forumu
 

Ukupno su 938 korisnika na forumu :: 121 registrovanih, 9 sakrivenih i 808 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 100jan, A.R.Chafee.Jr., Agape, Andrija357, asdfjklc, Aska, Asteker, atmel, Atomski čoban, Avalon015, avijacija, Badja, Bane san, Beanara, blatruc82, bokicacar, Boris BM, Boris.A, brandža84, branko87, comi, Crazzer, cyprus, Despot1, Doc, draganl, DragoslavS, drimer, dukajov, Dukelander, dusan.l, dushkomkd, Dzumanga, Folkstar, galerija, Igrutinovic, ikan, immicro, In_hero, IvanM1984, Ivanmateja, Jablan, Kajzer Soze, Kalem, Khalid ibn al-Walid, kihot, KimiMR, kirucar, KizJ, kondenzator, koneks, kori, kovacicbozo, kozhedub, Kudun, Laluvr, Leonov, Lieutenant, lord sir giga, Mali Rambo, Mcdado, mikrimaus, milenko crazy north, Millennium, Milos82, milos97, Mitch22, mocnijogurt, moldway, Muki 123, nebidrag, Nemanja.M, neutrino, Nikolajevic, nisamBot, nobutado, novator, opt1, Pantelejmon, Papadubi, Pero Petković, perunnurep, Pilence, pisac12, RD84, rodoljub, royst33, Sharpshooter, sijecanj, singa, Singidunumac, sluga, Sone0883, SpaDej, Srpska zauvjek, ssekir75, sspp, stankolich, tamno.nebo, taomaster, tehnika, The Boss, Toper, Tribal, troki1971, tuf, Uros Cuore Sportivo, v82, varda, vazduh, Veless, vensla, VJ, vlahale, voja64, vzd1389, zil10, zixmix, zlatkoa987, zokilivac, 1107