[delphizip] Re: handling Drive types
- From: James Turner <james.d.h.turner@xxxxxxxxxxxx>
- To: delphizip@xxxxxxxxxxxxx
- Date: Mon, 6 Jan 2003 14:30:45 +0000
My previous suggestion went something like this.
function GetDriveTypeEx(const drv:string):DWORD;
const test = '###### TEST'; { MUST BE UPPER CASE }
var tmp : string;
begin
result := GetDriveType(drv);
if result = DRIVE_CDROM then begin
tmp := GetVolumeName(drv);
if SetVolumeName(drv,test) then begin
if GetVolumName(drv) = test then result := DRIVE_REMOVABLE;
SetVolumeName(drv,tmp);
end;
end;
end;
Other related posts:
