この発言に対し以下のコメントが寄せられています

#00035　らせん企画      さん　RE:プリンター名の取得






//Form1にPrinterSetupDialogコンポ(PrinterSetupDialog1)を追加しておく
//uses 節にPrintersを追加しておく
//Button1Clickでプリンター名をShowMessage

procedure TForm1.Button1Click(Sender: TObject);
var
   PrinterList:TStringList;
begin
   PrinterSetupDialog1.Execute ;//デフォルトプリンター名の場合、省略する
   PrinterList:=TStringList.Create;
   PrinterList.Assign(Printer.Printers);
   ShowMessage('プリンター名： '+ PrinterList[Printer.PrinterIndex]);
   PrinterList.Free;
end;

                   _/_/   Athena ( VYH00522 )  _/_/





Original document by Athena          氏 ID:(VYH00522)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。