MyCity » Pascal -> Delphi » da li je cd u drive-u?

da li je cd u drive-u?

Napisano na dan: 6.6.2006

da li je cd u drive-u?
Sledeća strana Pagination

Idi na vrh

Poslao: 06 Jun 2006 21:17
Idi na vrh
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.
Poslao: 06 Jun 2006 21:38
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

[Link mogu videti samo ulogovani korisnici]



Poslao: 07 Jun 2006 22:18
Idi na vrh
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?

Poslao: 07 Jun 2006 22:52
Idi na vrh
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

  1. uses
  2.   MMSystem;
  3.  
  4. function IsMediaPresent(Drive: Char): Boolean;
  5. var
  6.   strCommand: String;
  7.   strResult: array[0..1] of Char;
  8. begin
  9.   Result := False;
  10.   strCommand := 'open ' + Drive + ': type cdaudio alias MediaTest';
  11.   mciSendString(PChar(strCommand), nil, 0, 0);
  12.   if mciSendString('status MediaTest media present', @strResult, 2, 0) = 0 then
  13.     Result := Upcase(strResult[0]) = 'T';
  14.   mciSendString('close MediaTest', nil, 0, 0);
  15. end;


Vraca True ako je disk unutra ili fajlse ako nije.

Poslao: 07 Jun 2006 23:12
Idi na vrh
offline
  • Pridružio: 13 Okt 2005
  • Poruke: 26

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

MyCity » Pascal -> Delphi » da li je cd u drive-u?

Ko je trenutno na forumu
 

Ukupno su 842 korisnika na forumu :: 11 registrovanih, 3 sakrivenih i 828 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: comi, davididu, Mićko, Mskok, PrincipL, Prometeus, sap, sekretar, Shilok, Tas011, yiyi