Finde CD-Rom Drev

Prøv dette:

Du skal tilføje en knap og en TMemo.

procedure TForm1.Button1Click(Sender: TObject);
var
  ld : DWORD;
  i : integer;
begin
  ld := GetLogicalDrives;
  for i := 0 to 25 do begin
    if (ld and (1 shl i)) <> 0 then begin
      Memo1.Lines.Add(Char(Ord('A') + i) + ':\');
      case GetDriveType(PCHar(Char(Ord('A') + i) + ':\')) of
        0              : Memo1.Lines.Add('The drive type cannot be determined');
        1              : Memo1.Lines.Add('The root directory does not exist');
        DRIVE_REMOVABLE: Memo1.Lines.Add('The disk can be removed');
        DRIVE_FIXED    : Memo1.Lines.Add('The disk cannot be removed');
        DRIVE_REMOTE  : Memo1.Lines.Add('The drive is remote (network) drive');
        DRIVE_CDROM    : Memo1.Lines.Add('The drive is a CD-ROM drive');
        DRIVE_RAMDISK  : Memo1.Lines.Add('The drive is a RAM disk');
      end;
    end;
  end;

end;



Du kan så selv tilpasse proceduren til dit brug...
Mvh
Retep

Tusinde Tak Retep
Det virker fint.

Da jeg skal bruge programmet til autorun fra cd, er det vigtigt at det er det rigtigt CD-rom drev jeg finder, i tilfælde af at der er flere. Ved programmet evt. selv hvilken sti det er startet fra ??

MVH
Ckrame

Jeg ved ikke helt hvad det er du søger... Hvis du vil lave autorun fra en CD, behøver du ikke bruge ovenstående. Du skal bare lave et tekstdokument, hvor du skriver noget i stil med:

[autorun]
open = MinExefil.exe

Og derefter omdøbe tekstfilen til 'autorun.inf'

Så vil programmet MinExeFil.exe blive startet hvergang du sætter cd'en i hvilket som helst CDROM-drev...

Prøv at sætte en CD i, der har autorun, og åben 'autorun.inf' i en teksteditor (notepad), så kan du se hvordan det gøres. Man kan også vælge ikoner og vist nok også lyde...

Venlig hilsen
Retep

>>Ved programmet evt. selv hvilken sti det er startet fra ??

Ja! Et program ved godt hvilken sti det befinder sig i. Hvis du f.eks laver dll-filer vil programmet f.eks. altid starte med at søge efter den pågældende fil i egen mappe, for derefter at søge videre i windows/system hvis den ikke finder den...

Du kan også kalde funktionen:
'application.ExeName' som returnerer en string, der indeholder stien til programmet's *.exe-fil...

Endnu engang mange tak

Application.ExeName - Det virker

MVH
Ckrame