Delphi - pokretanje cd-a preko button

Odgovori Nova tema

4 odgovora
3.839 pregleda

Delphi - pokretanje cd-a preko button 28.04.2004. u 23:04 · pre 273 meseci #1

U pitanju je Delphi 6.
Da najpre kazem sta hocu, hocu da kad kliknem na jedno dugme pokrenem jedan .exe fajl sa cd-a. Na primer: skupim nekoliko programa koje hocu da narezem ali bih pre toga odradi nesto poput autorun koji bi kasnije funkcionisao tako da kad kliknem u taj autorun.exe odnosno button u njemu pokrenem neku instalaciju ili nesto drugo (.exe).
E sad ineresuje me kako bi tu trebao da izgleda kod posto je oznaka za CD-Rom svuda drugacija zbog razlicitosti u broju particija.
Unapred hvala.

Re: Delphi - pokretanje cd-a preko button 29.04.2004. u 09:39 · pre 273 meseci #2

Ako ce ti se program preko koga pokreces ostale nalazi na CD-u, kod ide ovako :

Code:

uses
ShellApi, Windows;

{
Recimo da ti se autorun.exe nalazi u D:\, a program koji zelis da pokrenes je D:\Software\Audio\Acid\Acid.exe
}
ShellExecute(handle, 'open', 'Software\Audio\Acid\Acid.exe', '', '', SW_SHOWNORMAL);

Re: Delphi - pokretanje cd-a preko button 29.04.2004. u 10:31 · pre 273 meseci #3

ako hoces da odredis koji drajv je cd probaj ovako:

Code:

for Drive := 'd' to 'z' do
if GetDriveType(PChar(DrivePath + ':\')) = DRIVE_CDROM then
  begin
    //akcija
    //Break, ako imas samo jedan cd, ako ne nastavi jos
  end;

Potpis

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com

Re: Delphi - pokretanje cd-a preko button 29.04.2004. u 12:11 · pre 273 meseci #4

Koristi relativne putanje umesto apsolutnih, kao shto ti tece cova u prvom odgovoru.
Ako ipak hoces da znash za kog se drajva startovao tvoj program, pokupi string koji vraca f-ja

put:=ParamStr(0);

i dobices celu putanju tvog izvrshnog fajla (npr. d:\autorun\auto.exe)
prvo slovo ovog stringa je ocigledno drajv sa kog se strartovao program.

Potpis

10 BEGIN
20 HOME_SWEET_HOME
30 GOTO 20

Re: Delphi - pokretanje cd-a preko button 29.04.2004. u 22:50 · pre 273 meseci #5

Zahvaljujem na odgovorima. Probacu da vidim kako to funkcionise.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Srodne teme