If c:\ exists then...

Du kan vel bruge en bat fil...

----- test.bat -----
@echo off
if exist c:\ goto found
goto end

:found
rem --- hvad der nu skal ske
rem --- f.eks kald af andre programmer/bat filer
goto end

:end

Glem det .. havde ikke set det var under delphi... sorry...

nej det skal bruges i et program... Det er et program med nogle statestiker over harddisken, og så skal det jo være sådan at hvis ikke man har d og e drevet så bliver de ikke vist.

Brug DirectoryExists

begin
  if DirectoryExists('c:') then
  begin
    showmessage('Du har et c-drev');
  end
  else
  begin
    showmessage('Du har IKKE et c-drev');
  end;
end;

/SpEeDy

Og hvis du vil finde en liste af alle de drev der er på computeren kan du bruge dette stykke kode:

http://www.swissdelphicenter.ch/torry/showcode.php?id=562

/SpEeDy

procedure TForm1.Button1Click(Sender: TObject);
function DiskInDrive(DriveNumber: integer): boolean;
var
  ErrorMode: word;
begin
  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
    { drive 1 = a, 2 = b, 3 = c, etc. }
    Result := DiskSize(DriveNumber) <> -1;
  finally
    SetErrorMode(ErrorMode);
  end;
end;
begin
if DiskInDrive(3) then showmessage('C drev er der') else showmessage('inden c drev!');

end;

Alt det her har du fået svar på !

Jens B