ďťż

Ładny brzuch

Jak sprawdzić, czy w napędzie jest płyta lub dyskietka, nie powodując pojawienia się okienka "Napęd nie jest gotowy" (czy coś podobnego)?

----
m@il: ali88[at]tlen[dot]pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712


cytat:Ali240 napisał:

Moze miedzy try a except sprobowac uzyskac dostep do napedu?

//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl

co do fdd to spróbuj utworzyć na niej plik, a co do cd hm... a może po prostu wyszukaj pliki na cd hm... ale co gdy cd jest pusta hm... a może spróbuj odczytać nr seryjny cd

//----------------------
Darmowe oprogramowanie Tuning XPNeostradaXPtweaksoft

function Jest_gotowy_dysk : boolean;
var plik : file;
begin
AssignFile(plik, 'A:plik.xxx');
try
Rewrite(plik);
CloseFile(plik);
Erase(plik);
jest_gotowy_dysk:=true;
except
on EInOutError do
begin
MessageDlg('Brak dysku w stacji lub dysk zabezpieczony przed zapisem!', mtError, [mbOk], 0);
jest_gotowy_dysk:=false;
end;
end;
end;

to jest na dyskietkę

Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)


cytat:migajek napisał:
Moze miedzy try a except sprobowac uzyskac dostep do napedu?

No wlasnie nie bardzo, bo to mi nie wywoluje wyjatku, tylko jak robie directoryExists('A:'); i nie ma dyskietki, to windows sobie wywala jakies okienko :( (w WME)

----
m@il: ali88[at]tlen[dot]pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712

Na dyskietkę zadziała :Dprocedure TForm1.Button1Click(Sender: TObject); var f, b, r, n:cardinal; begin f:=createfile('.A:',GENERIC_READ,0,nil,OPEN_EXISTING,0,0); readfile(f,b,256,r,nil); asm mov n,edx end; if n=6 then MessageBox(0,'Brak dyskietki w stacji','',MB_OK+MB_IConerror); closehandle(f); end;

--------------------
-=[ Delphi rUlzZz ]=-

Mały błąd (backslashe)procedure TForm1.Button1Click(Sender: TObject); var f, b, r, n:cardinal; begin f:=createfile('.A:',GENERIC_READ,0,nil,OPEN_EXISTING,0,0); readfile(f,b,256,r,nil); asm mov n,edx end; if n=6 then MessageBox(0,'Brak dyskietki w stacji','',MB_OK+MB_IConerror); closehandle(f); end;

--------------------
-=[ Delphi rUlzZz ]=-

Już mi działa DirectoryExists("a:"); Tylko nie wiem czemu wcześniej się wywalało :) ale zawsze wiedziałem, że na windzie nie można polega 8)

----
m@il: ali88[at]tlen[dot]pl | GG: 2083160 | www: www.ali-home.prv.pl | ICQ: 199320712

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •