da li je cd u drive-u?

da li je cd u drive-u?

offline
  • Pridružio: 13 Okt 2005
  • Poruke: 26

Da li znate koja funkcija mi moze pomoci da proverim da li je cd drive prazan ili jock? Poznata mi je GetVolumeInformation, ali kad nema cd-a ta fja samo izlupeta neke gluposti za volume name i ostalo... Bebee Dol



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

http://www.latiumsoftware.com/en/delphi/00028.php



offline
  • Pridružio: 13 Okt 2005
  • Poruke: 26

iskopirala sam celu proceduru, i nesto nije telo, stalno mi prikazuje kao da nema diska, no uradila sam gotovo istu stvar samo sa DiskSize, ali sad me muci sledece, posto kad nema diska ova fja izbaci prozor sa obavestenjem there is no disk in drive e,bla bla..da li je moguce da izbegnem taj prozor?

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Necemo da izneverimo beshtiju Smile

uses   MMSystem; function IsMediaPresent(Drive: Char): Boolean; var   strCommand: String;   strResult: array[0..1] of Char; begin   Result := False;   strCommand := 'open ' + Drive + ': type cdaudio alias MediaTest';   mciSendString(PChar(strCommand), nil, 0, 0);   if mciSendString('status MediaTest media present', @strResult, 2, 0) = 0 then     Result := Upcase(strResult[0]) = 'T';   mciSendString('close MediaTest', nil, 0, 0); end;

Vraca True ako je disk unutra ili fajlse ako nije.

offline
  • Pridružio: 13 Okt 2005
  • Poruke: 26

Hehe bolje bi vam bilo Twisted Evil
e ovo resava sve probleme, hvala srle

Ko je trenutno na forumu
 

Ukupno su 1062 korisnika na forumu :: 39 registrovanih, 10 sakrivenih i 1013 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: 357magnum, A.R.Chafee.Jr., cifra, DonRumataEstorski, Duh sa sekirom, Fabius, Frunze, Georgius, goxin, ivan1973, kolle.the.kid, Kubovac, kybonacci, Luka Blažević, madza, menges, milenko crazy north, Milos ZA, milos.cbr, misa1xx, mkukoleca, nemkea71, novator, Pakito93, Parker, pavlo, procesor, robert1979, S2M, sevenino, skankhunt42, slonic_tonic, Srle993, stankolich, styg, suton, vlada035, zillbg, Zoca