[ネットワークドライブを割り当てる]

H ドライブにリモートドライブ（\\LANDISK\Temp）を永続的に接続します。

program tips0151;
{$APPTYPE CONSOLE}
uses Windows,SysUtils;
var
    NetResource : TNetResource;
begin
    with  NetResource do  begin
      dwScope       :=    RESOURCE_GLOBALNET;
      dwType        :=    RESOURCETYPE_DISK;
      dwDisplayType :=    RESOURCEDISPLAYTYPE_GENERIC;
      dwUsage       :=    RESOURCEUSAGE_CONNECTABLE;
      lpLocalName   :=    'H:';
      lpRemoteName  :=    '\\landisk\temp';
      lpComment     :=    '';
      lpProvider    :=    '';
    end;
    IF  WNetAddConnection2(NetResource,'1111','user',0) = NO_ERROR  then
      WriteLn(NetResource.lpLocalName,'ドライブに', NetResource.lpRemoteName,'を割り当てました。')
    else
      WriteLn('エラーです。');
end.

dcc32 tips0151.pas 
tips0151.exe >tips0151.txt
pause

H:ドライブに\\landisk\tempを割り当てました。