Autorun

2

Autorun

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.
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.



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

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.

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!

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.

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • 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.

offline
  • Pridružio: 19 Avg 2005
  • Poruke: 8

Koristi MultimediaBuilder za pravljenje autorunova za cd-ove!

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

Ko je trenutno na forumu
 

Ukupno su 610 korisnika na forumu :: 34 registrovanih, 2 sakrivenih i 574 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: aleksmajstor, aljosa7, AMCXXL, Apok, Bane san, Cufo, Danijel Glavas, Denaya, Dicus, Dr.Strangelove, Drug pukovnik, Dusko Nikolin, Filodendron, goran.vvv, goranvas, Hektor, indja, Kristian_KG, ljuba, Lox, MB120mm, milan.tatanac1, MiroslavD, mocnijogurt, proka89, robertino, sakota79, Shomy2, shone34, StefanNBG90, suzukigsxrstreetfighter, TITAN DUDIN JARAN, Wisdomseeker, zillbg