Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi GetFreeDriveLetter??? (https://www.delphipraxis.net/139016-getfreedriveletter.html)

CrashBack 21. Aug 2009 21:11


GetFreeDriveLetter???
 
Hi

Wie kann man ein noch nicht vergebenen Laufwerks Buchstaben finden?
irgend wie finde ich nichts wenn ich in Google nach GetFreeDriveLetter suche.

Bitte Helft mir :wall: :wall:

toms 21. Aug 2009 21:19

Re: GetFreeDriveLetter???
 
Hallo

Ermittle alle vergebenen mit GetLogicalDriveStrings. Dann weißt du, welche noch nicht vergeben sind.

CrashBack 21. Aug 2009 21:34

Re: GetFreeDriveLetter???
 
Danke

Habe es jetzt so gemacht.

Delphi-Quellcode:
Procedure CreateVirtualDrive(VHDD_Size : integer);
var DriveX: Char;
    i, i1 : integer;
    str : string;
begin
  //GetFreeDriveLetter
  for I := 0 to 25 do
  if (not DriveExists(I)) then
  begin
   ListBox2.Items.Add(Chr(I + Ord('A')));
  end;
  for I1 := 0 to 1 do
  begin
   str := listbox2.items[i1];
   DriveX:=str[i1];
  end;
  //SetDriveLetter
  if GetDiskIn(DriveX)= false then
  begin
  DriveHandle := CreateVirtualDriveEx(DriveX,VHDD_Size,@OnRead, @OnWrite,false,0);
Es geht so richtig gut

DANKE noch mal


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:18 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz