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.