F:\
G:\
H:\
.... gibi
timer nesnesine checklistbox döngüsü ekleyerek checklistboxtaki sürücü harfini kullanarak hangi flashda .....\Data.ini .... yerinne döngü ile F,G,H sürücüleri taranacak örneğin
F:\Data.ini
G:\Data.ini
H:\Data.ini sürücüler değişken
Kod: Tümünü seç
procedure TForm2.Timer5Timer(Sender: TObject);
const
GB: Int64 = 1024*1024*1024;
Var
Sifreoku: String;
kapanmaoku:string;
okuladı,sınıfadı ,il,ogretmen,brans:string;
INIDosya : TIniFile;
I: Integer;
FreeSpace: Int64;
Available: Int64;
Volume: string;
FS: string;
begin
GetUsbDrives(CheckListBox1.Items);
for I := 0 to Pred(CheckListBox1.Items.Count) do
begin
CheckListBox1.Items[I] := CheckListBox1.Items[I].ToUpper() + ':\';
INIDosya :=TIniFile.Create('F:\UsbAnahtar\Data\Database.ini');
il:= INIDosya.ReadString('USB','İl İlçe','');
okuladı := INIDosya.ReadString('USB','okul adı','');
sınıfadı := INIDosya.ReadString('USB','sınıf','');
Sifreoku := INIDosya.ReadString('USB','Şifre','');
kapanmaoku := INIDosya.ReadString('USB','Kapanma Süresi','');
ogretmen := INIDosya.ReadString('USB','ogretmenadı','');
brans := INIDosya.ReadString('USB','brans','');
INIDosya.Free;
edit4.Text:=il;
edit5.Text:=okuladı;
edit6.Text:=sınıfadı;
edit11.Text:=Sifreoku;
edit12.Text:=kapanmaoku;
edit13.Text:=ogretmen;
edit14.Text:=brans;
end;
end;
1.sorum TIniFile.Create('F:\UsbAnahtar\Data\Database.ini'); de F:\ değişkeni döngüde sürekli değişmeli
Kod: Tümünü seç
INIDosya :=TIniFile.Create CheckListBox1.Items[I]+(\UsbAnahtar\Data\Database.ini');
2.sorum döngüde zaman kontrollü olduğu için CheckListBox1 temizlenip tekrar döngüye girmesi gerekir bende ise sürekli CheckListBox1 doluyor cler denedim ama beceremedim.
3.Sorum Döngü sağlılı çalıştığında flasdan okuduğu ini dosyasındaki şifre başka bir editteki ile uygun ise try ikona geçsin.
örneğin if edit10.text=edit11.text then ise button3.click; // button içide try kodları var böyle çalıştırdım ama döngünün içine yazamadım
else durumunda ise şifre uyumlu değil desin gösterilen yolu kontrol edip.
4.sorum diyelim döngü tmm ama flash çıkartıldığında şifresi uyumlu olan flash tabi tryicon durummundaki proje tekrar aktif hale gelsin.yani flash anahtar gibi olacak
5.sorum flashı taktığında doğruysa tryicon olarak çalış flas çıktığında devreye gir durumu timer la kontrol ettirmek doğrumu.Kodların bir çok bölümünü yaptım ama hepsi bir arada istediğim sonucu vermiyor.
amacım Döngü le usb flashı sorgulatmak ve sorgu sonucu işlem yaptırmak istiyorum.şifre uyum kontrolü,uyumlu flashı çıkardınız kontrolü,şifre uyumsuz kontrolü