Autorun

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Naravno da moze da se uradi...

Pritom bi bilo lepo (i korisno) da se proverava sta je shellexec uradio,
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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Koristi MultimediaBuilder za pravljenje autorunova za cd-ove!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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