この発言は
#00035　らせん企画      さんのRE:プリンター名の取得
に対するコメントです



#35 らせん企画 さん、こんにちは(^^)/    Athenaです。

>  直接 Printer.Printers を参照したほうが簡単ではないでしょうか。

ありゃりゃん(･･)　ほんとだ、そのままでできちゃう。
と言うことで、らせん企画さん添削のすっきりコードをお届けします(^0^)



//Form1にPrinterSetupDialogコンポ(PrinterSetupDialog1)を追加しておく
//uses 節にPrintersを追加しておく
//Button1Clickでプリンター名をShowMessage
----------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
   PrinterSetupDialog1.Execute ;//デフォルトプリンター名の場合、省略する
   ShowMessage('プリンター名：'+ Printer.Printers[Printer.PrinterIndex]);
end;
----------------------------------------------------------------------

ひとつ、勉強になりましたm(_ _)m

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

Original document by Athena          氏 ID:(VYH00522)

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