>968
失礼しました。

エラー場所の場所
if (WNetGetUniversalName(PChar(PathStr), UNIVERSAL_NAME_INFO_LEVEL,
buf, bufSize) > 0) then
エラー内容
[エラー] Unit1.pas(33): '_UNIVERSAL_NAME_INFOA' と 'Pointer' には互換性がありません