choocoさん、こんばんは。

＞レジストリからプリンタの一覧を取得しようと思っています。
＞
＞ＮＴの場合は
＞HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Devices
＞だと、過去ログで見たのですが、９５の場合はどこを見ればいいのでしょうか？

せっかくですからサンプルプログラム付きで情報公開します。
元々は、アシストのHPにあった情報なんですけどね。

OS:Windows 95/98
PB:V5.0.04で確認

[インスタンス変数]
String  is_Printers[]
 
 
[登録されているプリンタの一覧を取得しddlbにセットする]
//初期設定
String	SubKeyList[]
Integer	Err
Long    KeyMax,l
 
//レジストリから、登録されているプリンタの一覧を取得
Err = RegistryKeys(\"HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Control\\Print\\Printers\" &
      ,SubKeyList)
 
If Err=-1 Then
  //エラー処理
  MessageBox(\"エラー\",\"レジストリ値の取得に失敗しました｡\")
  Return
Else
  //取得したKeyの個数を調べる
  KeyMax = UpperBound(SubKeyList)
End If
 
//取得したキーをドロップダウンリストボックスに表示
For l=1 To KeyMax
  ddlb_printers.AddItem(SubKeyList[l])
Next
 
//\"win.ini\"から各プリンタドライバの接続情報を取得
For l=1 To KeyMax
  is_Printers[l] = ProfileString(\"win.ini\",\"Devices\",SubKeyList[l],\"\")
Next
 
 
[ddlbで選択したプリンタを出力先に設定]
//初期設定
Integer	Err,ItemNo
Long    KeyMax,l
String	PrinterName
 
//プリンタ名からプリンタ接続情報を探す
PrinterName = ddlb_printers.Text
ItemNo      = ddlb_printers.FindItem(PrinterName,0)
 
// Win.iniファイルの編集
Err = SetProfileString(\"c:\\windows\\win.ini\",\"Windows\",\"Device\",PrinterName+\",\" &
      +is_Printers[ItemNo])
If Err=-1 Then MessageBox(\"エラー\",\"Win.iniファイル書き込み時にエラーが発生しました\")
 
// WM_WININICHANGEメッセージの送信
Send(65535,26,0,0)