Brennerlaufwerk finden und auswerfen

[geisi]

Mein OPEN-Knopf vom Brenner ist kaputt.
Wie bekomme ich den laufwerksbuchstaben des Brennerlaufwerks heraus? und wie kann ich es dann auswerfen?

[geisi]

kann mir keiner helfen?

[Lefko]

also ein CD-Laufwerk öffnen kannste mit folgendem Code:

Delphi-Quellcode:

uses MMSystem;

// Lade öffnen
procedure TForm1.Button1Click(Sender: TObject);
begin
  mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

// Lade schließen
procedure TForm1.Button2Click(Sender: TObject);
begin
  mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

Einen Laufwerkstypen kannst du folgendermaßen ermitteln:

Delphi-Quellcode:

function DriveType(laufwerk: PChar): String;
begin
  case GetDriveType(laufwerk) of
    DRIVE_CDROM: result := 'CD-ROM Laufwerk';
    DRIVE_FIXED: result := 'Festplatte';
    DRIVE_RAMDISK: result := 'Ramdisk';
    DRIVE_REMOTE: result := 'Netzlaufwerk';
    DRIVE_REMOVABLE: result := 'Wechsellaufwerk';
    0: result := 'unbekanntes Laufwerk';
    1: result := 'Laufwerk existiert nicht';
  end;
end;


//Aufruf so:
procedure TForm1.Button3Click(Sender: TObject);
begin
  Label1.caption:=DriveType('C:\');
end;

Alles klar? ;)

MfG Lefko.

[geisi]

Danke!

Aber 2 Probleme gibts noch:

1. Wie kann ich dem System sagen, dass er Laufwerk H öffnen soll?
2. Mit deinem Quellcode finde ich nur heraus, ob es sich um ein CD-Rom Laufwerk handelt oder nicht, ich möchte aber wissen welches das Brennerlaufwerk ist

[MathiasSimmack]

Zitat:

Zitat von geisi

1. Wie kann ich dem System sagen, dass er Laufwerk H öffnen soll?

Ich bin schon mal froh, dass du das präzisiert hast. "Wie kann ich das Brennerlaufwerk auswerfen?" erinnert irgendwie an Schleudersitz. Aber was ich eigentlich sagen wollte: die Zauberworte heißen Laufwerk und öffnen. Und wo gibst du die ein? Richtig, in der Suchfunktion dieses Forums.

Na, woll´n wa doch ma´ gucken: [dp]Laufwerk öffnen[/dp].
Und? Was dabei, was passen könnte? :roll:

[Matze]

Ich denke, dieses mit dem Öffnen Problem ist gelöst, das hat Lefko doch schon wunderschön beschrieben.



Ich mach hier mal zu

************ CLOSED ************* :mrgreen: :mrgreen:


Nur, ob es so einfach ist, den Brenner zu finden, weiß ich nicht.

[Matze]

@geisi: Ich wollte nur sagen, dass dieser Thraed noch offen ist, nicht durch mich irritieren lassen.
Deine eine Frage wurde ja noch nicht beantwortet. ;)