Get Drive Letter

[sdean]

function GetDriveLetter(DriveIndex: Byte): PAnsiChar; stdcall; external 'GetDiskSerial.dll';

Hi , is there a way to get the Drive Letter from Drive Index ,
For example , when i enter 0 it will give me the current drive which is 'C:' and 'D:' .... etc

A pseudo function :

Delphi-Quellcode:

Function GetDriveLetter(DriveIdx:Byte):String;
begin
Result:=....DriveIdx ;
// Result will be 'C: D: ' if DriveIdx value is 0
end;

thank you .

[omata]

Delphi-Quellcode:

function GetDriveLetter(DriveIdx:byte):string;
var
  vDrivesSize: Cardinal;
  vDrives    : array[0..128] of Char;
  vDrive     : PChar;
  Drive:string;
  Index:byte;
begin
  if DriveIdx = 0 then
    GetDir(DriveIdx, Drive)
  else begin
    vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);
    if vDrivesSize <> 0 then begin
      Index:=0;
      vDrive := vDrives;
      while (vDrive^ <> #0) and (Index < DriveIdx) do begin
        Drive:=StrPas(vDrive);
        Inc(vDrive, SizeOf(vDrive));
        inc(Index);
      end;
    end;
  end;
  Result:=copy(Drive, 1, 1);
end;

[himitsu]

oder
http://www.devlib.net/getdiskserial.htm
http://msdn.microsoft.com/en-us/libr.../aa381689.aspx

[sdean]

Zitat:

Zitat von omata (Beitrag 1132092)

Delphi-Quellcode:

function GetDriveLetter(DriveIdx:byte):string;
var
  vDrivesSize: Cardinal;
  vDrives    : array[0..128] of Char;
  vDrive     : PChar;
  Drive:string;
  Index:byte;
begin
  if DriveIdx = 0 then
    GetDir(DriveIdx, Drive)
  else begin
    vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);
    if vDrivesSize <> 0 then begin
      Index:=0;
      vDrive := vDrives;
      while (vDrive^ <> #0) and (Index < DriveIdx) do begin
        Drive:=StrPas(vDrive);
        Inc(vDrive, SizeOf(vDrive));
        inc(Index);
      end;
    end;
  end;
  Result:=copy(Drive, 1, 1);
end;

thank you omata for your help , but there's an issue :
if i enter 0 as DriveIdx value , it will give drive 'D' which normally gives 'C' .
and 1 will give drive 'C' which normally gives drive 'D'

[omata]

Ok, a new Version...

Delphi-Quellcode:

function GetDriveLetter(DriveIdx:byte):string;
var
  vDrivesSize: Cardinal;
  vDrives    : array[0..128] of Char;
  vDrive     : PChar;
  Drive:string;
  Index:byte;
begin
  if DriveIdx = 0 then
    Drive:=GetCurrentDir
  else begin
    vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);
    if vDrivesSize <> 0 then begin
      Index:=0;
      vDrive := vDrives;
      while (vDrive^ <> #0) and (Index < DriveIdx) do begin
        Drive:=StrPas(vDrive);
        Inc(vDrive, SizeOf(vDrive));
        inc(Index);
      end;
    end;
  end;
  Result:=copy(Drive, 1, 1);
end;

Zitat:

Zitat von sdean (Beitrag 1132095)

... and 1 will give drive 'C' which normally gives drive 'D'

This, I can't unterstand. I think if index = 0 gives you the CurrentDir, why should index = 1 gives you D. Than, it is an other work like this:

Delphi-Quellcode:

function GetDriveLetter(DriveIdx:byte):string;
var
  vDrivesSize: Cardinal;
  vDrives    : array[0..128] of Char;
  vDrive     : PChar;
  Drive:string;
  Index:byte;
begin
  Drive:='';
  vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);
  if vDrivesSize <> 0 then begin
    Index:=0;
    vDrive := vDrives;
    while (vDrive^ <> #0) and (Index <= DriveIdx) do begin
      Drive:=StrPas(vDrive);
      Inc(vDrive, SizeOf(vDrive));
      inc(Index);
    end;
  end;
  Result:=copy(Drive, 1, 1);
end;

But this Code gives you no CurrentDir, it is an esay Drivelist.

[ATS3788]

himitzu
hat da einen link gesetzt

Frage
http://msdn.microsoft.com/en-us/libr...rot.10%29.aspx

Kann man das für Delphi brauchbar machen.:|

[omata]

Zitat:

Zitat von ATS3788 (Beitrag 1173026)

Kann man das für Delphi brauchbar machen.:|

Für IVdsAdvancedDisk direkt habe ich jetzt nichts. Aber folgendes (über WMI) fand ich ganz interessant klick.

[ATS3788]

Danke:thumb: