Wie kann ich alle CD-ROM-Laufwerke herausfinden und...

[Andreas L.]

Hi,
wie kann ich alle CD-ROM-Laufwerke herausfinden und diese dann in eine ListBox eintragen ohne auf die Funktion GetDriveType zuzugreifen? Folgenden Code hab ich aber den kann ich in der Lazarus IDE (benutzt den Freepascal compiler) nicht verwenden, grund: GetDriveTyp ist dort in keiner Unit verfügbar...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I,Typ: Integer;
  s: String;
begin
  For i := 0 To 25 do
    begin
      s := Chr(i + 65) + ':\';
      typ := GetDriveType(PChar(s));
      If Typ <> 0 Then
        Case Typ of
          DRIVE_CDROM :
            Listbox1.Items.Add(Chr(i + 65) + ': CDROM');
        end;
    end;
end;

Was kann ich da tun?

Greetz und thx

[Christian Seehase]

Moin Andreas,

GetDriveType ist eine API Funktion.
Ich kenne jetzt den Freepascal Compiler nicht, aber man müsste doch Funktionen importieren können... :gruebel:

[Nothine]

Zitat:

Zitat von onlinehome

Folgenden Code hab ich aber den kann ich in der Lazarus IDE (benutzt den Freepascal compiler) nicht verwenden, grund: GetDriveTyp ist dort in keiner Unit verfügbar...

ich kenn free-pascal nicht, aber ich glaube kaum dass du da keine externen funktionen einbinden kannst, oder?

Delphi-Quellcode:

function GetDriveType; external kernel32 name 'GetDriveTypeA';

so is die funktion in delphi deklariert :roll:

//Edit: mist, zu spät :mrgreen:

[Andreas L.]

Schaut mal meinen Screenshot im Anhang an. Wo ist da der Fehler?

[Nothine]

Zitat:

Zitat von onlinehome

Schaut mal meinen Screenshot im Anhang an. Wo ist da der Fehler?

darin dass er erwartet das du die funktion vollständig deklarierst. probier mal

Delphi-Quellcode:

interface

  function GetDriveType(lpRootPathName: PChar): UINT; stdcall;
  {$EXTERNALSYM GetDriveType}

implementation

  function GetDriveType; external kernel32 name 'GetDriveTypeA';

[Edit3] jetz aba [/Edit3]

[Andreas L.]

Geht trotzdem nicht.

Code:

Undefinied: UINT

[Nothine]

Delphi-Quellcode:

type
  UINT = LongWord;
  {$EXTERNALSYM UINT}

oder nimm gleich integer :roll:

[Andreas L.]

Jetzt hab ich Integer genommen:

Code:

Undefinied: external

[Nothine]

da bleibt nur noch zu erkennen das free pascal wohl keine externe prozedur-verlinkung unterstützt... was uns in deinem fall wieder an die anfangsfrage zurückführt, wie ermittelt man den DriveType ohne die windows funktion :?:

[Bernhard Geyer]

Zitat:

Zitat von Nothine

da bleibt nur noch zu erkennen das free pascal wohl keine externe prozedur-verlinkung unterstützt... was uns in deinem fall wieder an die anfangsfrage zurückführt, wie ermittelt man den DriveType ohne die windows funktion :?:

Ich würde sagen: Gar nicht. Der Compiler muss doch die externe Prozedur-Verlinkung unterstützten. Andersweitig könnte er doch keine unter Windows lauffähigen Programme erstellen werden (wenn irgendwas über DOS-Funktionalität hinauslaufen sollte.

Lass im Beispielcode einfach {$EXTERNALSYM ...} weg: Sollt auch ohne gehen. $EXTERNALSYM ist evtl. nur für den C++-Builder relevant.

[Luckie]

Sollte das nicht möglich sein, dann könnte man ja auch keine eigenen DLL's schreiben. Was mich wieder zum dem Schluss führen würde das dieser Kompiler keine 32-Bit Programme erzeugen kann, da unter 16-Bit DOS DLL's unbekannt waren - oder?

Edit: Ein Integer für ein LongWord zu nehmen ist keine gute Idee, da ein Integer ein vorzeichenbehafteter 32-Bit Ganzzahl Datentyp im Bereich von –2147483648..2147483647 ist und ein LongWord ein vorzeichenloser Ganzzahl Datentyp im Bereich von 0..429496729. Der entsprechende Delphi Datentyp wäre Cardinal, welches auch eun vorzeichenloser Ganzzahl Datentyp im, Bereich von 0..4294967295 ist. ;)