CD Laufwerk öffen - Wo ist das Problem?

Hallo,
ich versuche mittels DeviceIOControl ein CD Laufwerk zu öfnnen und habe daher folgendes recherchiert und zusammengebastelt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button2Click(Sender: TObject);

var

handle: THandle;

test: PSecurityAttributes;

back: Boolean;

return: Cardinal;

tt: POverlapped;

begin

handle := CreateFile('\\\\.\\PhysicalDrive0',GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE,NIL,OPEN_EXISTING,0,0);

back := DeviceIOControl(handle,IOCTL_STORAGE_EJECT_MEDIA,NIL,0,NIL,0,return,tt);

end;

So ausführen ist ja kein Problem nur bekomm ich eine Zugriffsverletzung in der kernel32.dll und nichts passiert, also das LW öffnet sich nicht.

Der Fehler liegt bei DeviceIOControl, den nach dem debugging weiß ich das CreateFile keinen Fehler aufruft.

Doch wo liegt der Fehler ?

Danke schonmal im Voraus.

**vlees91**

Ich weiß nciht, wo der Fehler liegt, aber verscuh doch mal das: (außer es MUSS mit dem DeviceIOControl gemacht werden)

http://dsdt.info/tipps/?id=138

**Hawkeye219**

Muß die Variable tt nicht vom Typ TOverlapped sein?

Gruß Hawkeye

//Edit: die Übergabe ist dann "@tt"

Is' PhysicalDrive0 nicht eigentlich immer die HDD? Ich mein, die lässt sich ja nicht auswerfen, oder?

@vlees: Bei deinem Link ist es aber nicht möglich das Laufwerk auszuwählen. Es ist definitiv über ASPI/SPTI machbar.

**vlees91**

bei mir zeigt der Compiler bei IOCTL_STORAGE_EJECT_MEDIA "Undefinierter Bezeichner" an (delphi-ver. steht links (D6 prof))

Jupp, gibt's ja auch erst seit NT 4.0

Zitat:

Included in Windows XP, Windows 2000 Professional, and Windows NT Workstation 4.0.

IOCTL_STORAGE_EJECT_MEDIA = $002D4808;

**vlees91**

aber nt gibts länger als delphi 6....

@vlees91
ne es muss schon ohne MCI Commands gehen.
IOCTL_STORAGE_EJECT_MEDIA ist eine Konstante, auf der JEDI Page kannst du dir die winapi Headers ziehen und die JwaWinIoctl einbinden.

Ich habe jetzt anstatt POverlapped mal TOverlapped probiert bzw. beides und beim Command bei tt zu @tt geändert.

Jetzt kommt keine Zugrifssverletzung mehr, garnichts. Nur das Laufwerk öffnet sich immernoch nicht.

Ich hab schon \\\\.\\PhysicalDrive0-3 probiert und \\\\.\\D: probiert oder nur D: nichts funzt.

Zitat von vlees91:

aber nt gibts länger als delphi 6....

Hmm.. Dann hat Borland zu diesem Zeitpunkt die Konstanten für NT wohl nicht eingebaut... Interessant... D2005 kennt die Konstante jedenfalls..

//Edit: Äh... D2005 kennt die doch nicht... Dann hat Borland wohl nicht alle Konstanten aus'm PSDK übernommen..

Soo...

handle := CreateFile('\\.\I:',GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE,NIL,OPEN_EXISTING,0,0); Das gibt schonmal ein gültiges Handle. Dein Code hat nämlich nichtmal ein gültiges Handle geliefert.

CD Laufwerk öffen - Wo ist das Problem?

CD Laufwerk öffen - Wo ist das Problem?

Re: CD Laufwerk öffen - Wo ist das Problem?

Re: CD Laufwerk öffen - Wo ist das Problem?

Re: CD Laufwerk öffen - Wo ist das Problem?

Re: CD Laufwerk öffen - Wo ist das Problem?

Re: CD Laufwerk öffen - Wo ist das Problem?

Re: CD Laufwerk öffen - Wo ist das Problem?

Re: CD Laufwerk öffen - Wo ist das Problem?

Re: CD Laufwerk öffen - Wo ist das Problem?

Re: CD Laufwerk öffen - Wo ist das Problem?

Forumregeln

vlees91 Registriert seit: 19. Apr 2004 843 Beiträge Turbo Delphi für Win32	#2 Re: CD Laufwerk öffen - Wo ist das Problem? 4. Jun 2006, 16:44 Ich weiß nciht, wo der Fehler liegt, aber verscuh doch mal das: (außer es MUSS mit dem DeviceIOControl gemacht werden) http://dsdt.info/tipps/?id=138 vlees91
	Zitat

Hawkeye219 Registriert seit: 18. Feb 2006 Ort: Stolberg 2.227 Beiträge Delphi 2010 Professional	#3 Re: CD Laufwerk öffen - Wo ist das Problem? 4. Jun 2006, 16:48 Muß die Variable tt nicht vom Typ TOverlapped sein? Gruß Hawkeye //Edit: die Übergabe ist dann "@tt"
	Zitat

Daniel G (Gast) n/a Beiträge	#4 Re: CD Laufwerk öffen - Wo ist das Problem? 4. Jun 2006, 16:49 Is' PhysicalDrive0 nicht eigentlich immer die HDD? Ich mein, die lässt sich ja nicht auswerfen, oder? @vlees: Bei deinem Link ist es aber nicht möglich das Laufwerk auszuwählen. Es ist definitiv über ASPI/SPTI machbar.
	Zitat

vlees91 Registriert seit: 19. Apr 2004 843 Beiträge Turbo Delphi für Win32	#5 Re: CD Laufwerk öffen - Wo ist das Problem? 4. Jun 2006, 16:51 bei mir zeigt der Compiler bei IOCTL_STORAGE_EJECT_MEDIA "Undefinierter Bezeichner" an (delphi-ver. steht links (D6 prof)) vlees91
	Zitat

Daniel G (Gast) n/a Beiträge	#6 Re: CD Laufwerk öffen - Wo ist das Problem? 4. Jun 2006, 16:55 Jupp, gibt's ja auch erst seit NT 4.0 Zitat: Included in Windows XP, Windows 2000 Professional, and Windows NT Workstation 4.0. IOCTL_STORAGE_EJECT_MEDIA = $002D4808;
	Zitat

vlees91 Registriert seit: 19. Apr 2004 843 Beiträge Turbo Delphi für Win32	#7 Re: CD Laufwerk öffen - Wo ist das Problem? 4. Jun 2006, 16:57 aber nt gibts länger als delphi 6.... vlees91
	Zitat

Daniel G (Gast) n/a Beiträge	#9 Re: CD Laufwerk öffen - Wo ist das Problem? 4. Jun 2006, 17:03 Zitat von vlees91: aber nt gibts länger als delphi 6.... Hmm.. Dann hat Borland zu diesem Zeitpunkt die Konstanten für NT wohl nicht eingebaut... Interessant... D2005 kennt die Konstante jedenfalls.. //Edit: Äh... D2005 kennt die doch nicht... Dann hat Borland wohl nicht alle Konstanten aus'm PSDK übernommen..
	Zitat

Daniel G (Gast) n/a Beiträge	#10 Re: CD Laufwerk öffen - Wo ist das Problem? 4. Jun 2006, 17:11 Soo... handle := CreateFile('\\.\I:',GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE,NIL,OPEN_EXISTING,0,0); Das gibt schonmal ein gültiges Handle. Dein Code hat nämlich nichtmal ein gültiges Handle geliefert.
	Zitat