Mam sobie tak funkcje
void refreshDir(String path, TList * list)
{
TSearchRec sr; // sr jest obiektem klasy TSearchRec
TFileRecord *tempFileRec; // tempFileRec jest wskaznikiem pokazujacym na klase TFileRecord
tempFileRec=new TFileRecord(); // w sposob dynamiczny za pomoca operatora new jest
// tworzony nowy obiekt przy uzyciu konstruktora TFileRecord();
clearList(list); // nastepuje wyczyszczenie listy
path+="*.*"; // do zmiennej doklejam napis by uzyskac pozadany efekt c:\\*.*, badz d:\\*.*
if(FindFirst(path,faAnyFile,sr)!=NULL) // FindFirst znajduje pierwszy plik w katalogu podanym jako parametr
{ // tym parametrem jest zmienna path, dane dotyczace pliku pojawiaja sie
// jezeli warunek jest spelniony !=NULL nastepuje wyjscie
MessageDlg("dysk "+path+": nie jest gotowy do pracy",mtError,TMsgDlgButtons()<<mbOK,0); // w strukturze sr
return;
}
tempFileRec=getFileRecord(sr); //pod wskaznik to klasy TFileRecord zostaja przypisane dane
//ze strukrury sr przy pomocy funkcji getFileRecord
if(tempFileRec!=NULL) //w warunku nastepuje sprawdzenie czy dane tam sa, czyli !=NULL
list->Add(tempFileRec);
while(FindNext(sr)==0) //do pobierania kolejnych plików z danego katalogu
// wykorzystujemy funkcje FindNext z odpowiednim warunkiem
// jezeli warunek jest spelniony ==0
{
tempFileRec=getFileRecord(sr); //pod wskaznik to klasy TFileRecord zostaja przypisane dane
//ze strukrury sr przy pomocy funkcji getFileRecord
if(tempFileRec!=NULL) //w warunku nastepuje sprawdzenie czy dane tam sa, czyli !=NULL
list->Add(tempFileRec); //gdy warunek spełniony to nastepuje dodanie ich do listy
}
}
//---------------------------------------------------------------------------
Problem jest tego typu, Jak uzywam programu na koncje zwyklego uzytkownka ktory nie ma prawa dostepu do pewnych plkokow i folderow to proba odwolanie sie do tego generuje blad, no to mi pieknie wyswietla komunikat
MessageDlg("dysk "+path+": nie jest gotowy do pracy",mtError,TMsgDlgButtons()<<mbOK,0);
no ale ja chce zrobic warunek po splenieniu ktorego wyswietli mi komunikat
MessageDlg("brak prawa dostepu",mtError,TMsgDlgButtons()<<mbOK,0);
jaki warunek postawic, badz jak sprawdzic czy mam prawo odczytac dany folder lub plik. (win 2000, xp , 98 )