Alles Rund um den "Compact-Disk-Read-Only-Memory"

[Frank ter Duis]

Hi Leute,<br><br>
hat jemand eine Idee wie ich an folgende Infos komme:<br><br>
- Welche Laufwerke sind CD-ROM Laufwerke<br>
- In welchen Laufwerken befindet sich eine CD<br>
- Und wie bekomme ich eine Meldung wenn eine CD in ein CD-ROM Laufwerk eingeleft und/oder gewechselt wird<br><br>
Danke schonmal im Vorraus....<br><br>
Da fällt mir ein... 30 Grad, Sonne.... das Schreit förmlich nach feierabend, also schönen Abend noch... Bis morgen

[Frank ter Duis]

... kann mir keiner Helfen??? <br><br>
Wäre wohl nett ;-

[Robert Marquardt]

Die Meldung wann eine CD-Tuer auf und zu geht gehoert zu WM_DEVICECHANGE. Unter http://delphi-jedi.org/APILIBRARY ist die DBT Konversion erhaeltlich. Das ist alles rund um WM_DEVICECHANGE. Beispiele sind auch dabei

[Christian Seehase]

Moin Frank,<br>
<br>
mal ein kleines Beispiel zu 1. und 2.<br>
<br>
<pre>
function GetCDDrivesAndContent : string;

var
pDriveList : PChar;
dwDriveType : DWORD;
dwSaveErrorMode : DWORD;
dwDummy : DWORD;
pWork : PChar;

begin
Result := '';
pDriveList := StrAlloc(105);
try
pWork := pDriveList;
dwSaveErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
GetLogicalDriveStrings(105,pWork);
while pWork^ <> #00 do
begin
if GetDriveType(pWork) = DRIVE_CDROM then
begin
Result := Result + pWork + ' : ';
if GetVolumeInformation(pWork,nil,0,nil,dwDummy,dwDum my,nil,0) then
begin
Result := Result + 'CD eingelegt'#13#10;
end
else
begin
Result := Result + 'LEER'#13#10;
end;
end;
inc(pWork,4);
end;
finally
SetErrorMode(dwSaveErrorMode);
end;
finally
StrDispose(pDriveList);
end;
end;
</pre>
<br>
Ciao<br>
Chri

[Frank ter Duis]

Danke Jungs, ich würd sagen genau sowas hab ich gesucht.... ich werds mal testen. DANKE!!!!