Hvordan opdager systemet, at der en lagt en CD i cd-drevet ?

Fandt selv ud af det: Brug funktionen: GetVolumeInformation(); Se eksempel nedenfor:


Unit .... (osv)




procedure TForm1.Button1Click(Sender: TObject);
var
  DrivePath : string;
  MaximumComponentLength : DWORD;
  FileSystemFlags : DWORD;
  VolumeName : string;
  Result    : Boolean;
  DrevLabel  : String;

begin
  Result := false;
  DrivePath := 'H:\';
  if GetDriveType(PChar(DrivePath)) <> DRIVE_CDROM then
      exit;
  SetLength(VolumeName, 64);
  GetVolumeInformation(PChar(DrivePath),
                        PChar(VolumeName),
                        Length(VolumeName),
                        nil,
                        MaximumComponentLength,
                        FileSystemFlags,
                        nil,
                        0);
  DrevLabel := Pchar(Volumename);
  IF DrevLabel = '' then
      BEGIN
        Edit1.Text := 'Ingen CD i '+ drivepath;
      END
  ELSE
      BEGIN
        Edit1.Text := 'CD'''+'en i drev '+ drivepath + ' hedder: ' +
            Pchar(Volumename);
      END;
  Edit1.Update;
end;

LUKKER TRÅDEN !

LUKKER TRÅDEN 2

For at lukke skal du markere dit navn i listen over de personer der har svaret også selvom du er den enste som har svare. Det er meningen man aktivt skal markere dem som skal havde point så man ikke får lukket et sprøgsmål og givet point ved det uheld :)

eagleeye / CoAdmin