День добрый!
Столкнулся с проблемой - необходимо определить тип диска по его имени: локальный или сетевой. Использую функцию GetDriveType, в Win'2000 все нормально, а в Win'98 сетевой диск определяет как локальный. В чем глюк?

// Возвращает список только локальных дисков
function GeOnlyLocalDriveList: TStringList;
var
i: integer;
begin
Result:=TStringList.Create;
Result:=GetLocalDriveList;
i:=Result.Count-1;
while i >= 0 do
begin
if GetDriveType(PChar(Result[i])) = DRIVE_REMOTE then Result.Delete(i);
dec(i);
end;
end;

Это что-то похожее, но попытка не пытка

Код

procedure TForm1.Button1Click(Sender: TObject); begin case GetDriveType('C:\') of 0 : ShowMessage('The drive type cannot be determined'); 1 : ShowMessage('The root directory does not exist'); DRIVE_REMOVABLE:ShowMessage('The disk can be removed'); DRIVE_FIXED : ShowMessage('The disk cannot be removed'); DRIVE_REMOTE : ShowMessage('The drive is remote (network) drive'); DRIVE_CDROM : ShowMessage('The drive is a CD-ROM drive'); DRIVE_RAMDISK : ShowMessage('The drive is a RAM disk'); end; end;

Как узнать все сетевые ресурсы:

Код

type PNetResourceArray = ^TNetResourceArray; TNetResourceArray = array[0..MaxInt div SizeOf(TNetResource) - 1] of TNetResource; Procedure EnumResources(LpNR:PNetResource); Var NetHandle: DWORD; BufSize: DWORD; Size:DWORD; NetResources: PNetResourceArray; Count: DWORD; NetResult:Integer; I: Integer; NewItem:TListItem; Begin If WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,0,LpNR,NetHandle) <> NO_ERROR then Exit; Try BufSize := 50 * SizeOf(TNetResource); GetMem(NetResources, BufSize); Try while True do begin Count := 1; Size := BufSize; NetResult := WNetEnumResource(NetHandle, Count, NetResources, Size); If NetResult = ERROR_MORE_DATA then begin BufSize := Size; ReallocMem(NetResources, BufSize); Continue; end; if NetResult <> NO_ERROR then Exit; For I := 0 to Count-1 do Begin With NetResources^[I] do Begin If RESOURCEUSAGE_CONTAINER =(DwUsage and RESOURCEUSAGE_CONTAINER) then EnumResources(@NetResources^[I]); If dwDisplayType = RESOURCEDISPLAYTYPE_SHARE Then // ^^^^^^^^^^^^^^^^^^^^^^^^^ - ресурс // RESOURCEDISPLAYTYPE_SERVER - компьютер // RESOURCEDISPLAYTYPE_DOMAIN - рабочая группа // RESOURCEDISPLAYTYPE_GENERIC - сеть Begin NewItem:= Form1.ListView1.Items.Add; NewItem.Caption:=LpRemoteName; End; End; End; End; finally FreeMem(NetResources, BufSize); end; finally WNetCloseEnum(NetHandle); end; End; procedure TForm1.Button1Click(Sender: TObject); Var OldCursor: TCursor; begin OldCursor:= Screen.Cursor; Screen.Cursor:= crHourGlass; With ListView1.Items do Begin BeginUpdate; Clear; EnumResources(nil); EndUpdate; End; Screen.Cursor:= OldCursor; end; end.

Вот сбацал функцию, не знаю, правда, как будет под 98-ой:

Код

function IsNetDrive (Drive : char) : string; var  buf : PChar;  bufSize : cardinal;  Drv : array [0..2] of char; begin  Drv[0] := Drive;  Drv[1] := ':';  Drv[2] := #0;  bufSize := 0;  WNetGetConnection (@Drv, nil, bufSize);  GetMem(buf, bufSize);  WNetGetConnection (@Drv, buf, bufSize);  Result := buf;  FreeMem (buf); end;

В параметре указывается буква диска (можно и маленькой буквой, можно и заглавной), а возвращает функция сетевой путь. Если путь пустой (=''), то значит диск локальный...