Einzelnen Beitrag anzeigen

sugaFRAG

Registriert seit: 22. Apr 2004
Ort: Mönchengladbach
34 Beiträge
 
#1

Delphi Code - kann den jemand für ne DLL umschreiben

  Alt 24. Apr 2004, 14:38
hi Jungs,

also ich hab folgenden Code in meinem Projekt um die Laufwerke (CD LWs. E:\ F:\ u.s.w.) zu erkenennen:

Delphi-Quellcode:
function RefreshDriveList(): string;
var
  i,typ: Integer;
  s: string;
begin
  for i:=0 to 25 do
  begin
    s := Chr(i + 65) + ':\';
    typ := GetDriveType(PChar(s));
    if typ = DRIVE_CDROM then
    form1.ComboBox1.Items.Add(s);
  end;
end;
soo kann mir diesen code jetzt jemand umschreiben für eine dll ?
also das ich das vielleicht so aufrufen kann:

combobox1.items.add(RefreshDriveList());

geht das ? Also ich will eigentlich nur das ich dass praktisch in ne function hab die ich mit einem befehl aufrufen kann ohne das in der function die laufwerke gesetzt werden, denn in ner dll erkennt der ja die combobox nicht !!!

danke im voraus.
  Mit Zitat antworten Zitat