Meghajtóellenőrzés

Meghajtóellenőrzés
2006-07-20T10:33:49+02:00
2006-07-20T19:25:59+02:00
2022-10-31T16:40:43+01:00
vtcorp
Helló mindenkinek.
Nézzétek meg ezt a kódot és keressünk benne hibákat.
A lényege az lenne hogy egy listboxhoz hozzáadom a cd/dvd meghajtók betűjelét
utána EGYESÉVEL leellenőrzöm hogy az exe cdről lett-e indítva.

var
untiler:string;
Drive:char;
itemnumber:integer;

procedure TForm1.programrun();
begin
itemnumber:=0;
for Drive := 'A' to 'Z' do
begin
rv := GetDriveType(pchar(Drive+':\'));
if rv = DRIVE_CDROM then begin ListBox1.Items.Add(Drive); end;// hozzáadom a CD/DVD meghajtókat a ListBox1.-hez
end;

repeat
if StrPos(PChar(ListBox1.Items.Strings[itemnumber]), PChar(ExtractFilePath(Application.ExeName))) <> nil then
begin
Label4.Caption:='Kérem várjon...'; // ha az ListBox-ban benne van az ExtractFilePath
untiler:='ok';
Timer1.Enabled:=true;
end
else
begin
itemnumber:=itemnumber+1;// hozzáadok a ListBox1.Itemshez 1-et
Label3.Caption:='Betöltés sikertelen.';
Label4.Caption:='Kilépés 4-5 mp. múlva.';
Timer2.Enabled:=true;
end;
until (itemnumber=ListBox1.Items.Count-1) or (untiler='ok');
end;
Mutasd a teljes hozzászólást!
1. Minek a listbox?
2. Miért StrPos, ha a Listbox-nak van Items-e, aminek van IndexOf-ja. S így nem kell neked ciklus se.
3. Miért nem ExtractFileDrive?
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd