[ネットワークプリンタに接続する]

ネットワーク上のプリンタに接続（追加）します。

program tips0154;
{$APPTYPE CONSOLE}
uses   SysUtils,ComObj,ComCtrls;
var
  APP : Variant;
  str : String;
begin
  str:= '\\prtsvr01\DocuCentre-II C4300 2F □（カラー）';
  APP := CreateOleObject('WScript.Network');
  try
    APP.AddWindowsPrinterConnection(str);
    Writeln(str,'に接続しました。');
  except
    Writeln(str,'の接続に失敗しました。');
  end;
end.

dcc32 tips0154.pas 
tips0154.exe >tips0154.txt
pause

\\prtsvr01\DocuCentre-II C4300 2F □（カラー）に接続しました。