require 'mscorlib'
require 'System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'
require 'System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'

Application        = System::Windows::Forms::Application
Button             = System::Windows::Forms::Button
ColumnHeader       = System::Windows::Forms::ColumnHeader
DockStyle          = System::Windows::Forms::DockStyle
Font               = System::Drawing::Font
FontStyle          = System::Drawing::FontStyle
Form               = System::Windows::Forms::Form
FormBorderStyle    = System::Windows::Forms::FormBorderStyle
FormStartPosition  = System::Windows::Forms::FormStartPosition
Icon               = System::Drawing::Icon
Label              = System::Windows::Forms::Label
ListView           = System::Windows::Forms::ListView
MainMenu           = System::Windows::Forms::MainMenu
MenuItem           = System::Windows::Forms::MenuItem
MessageBox         = System::Windows::Forms::MessageBox
MessageBoxBittons  = System::Windows::Forms::MessageBoxButtons
MessageBoxIcon     = System::Windows::Forms::MessageBoxIcon
PictureBox         = System::Windows::Forms::PictureBox
PictureBoxSizeMode = System::Windows::Forms::PictureBoxSizeMode
Point              = System::Drawing::Point
Registry           = Microsoft::Win32::Registry
Shortcut           = System::Windows::Forms::Shortcut
Size               = System::Drawing::Size
SortOrder          = System::Windows::Forms::SortOrder
StatusBar          = System::Windows::Forms::StatusBar
View               = System::Windows::Forms::View

class Frm < Form
  def initialize
    #this path keeps codecs CLSIDs and names
    @reg = 'CLSID\{083863F1-70DE-11d0-BD40-00A0C911CE86}\Instance'
    self.InitializeComponent()
  end

  def InitializeComponent()
    @mnuMain = MainMenu.new()
    @mnuFile = MenuItem.new()
    @mnuScan = MenuItem.new()
    @mnuExit = MenuItem.new()
    @mnuView = MenuItem.new()
    @mnuSBar = MenuItem.new()
    @mnuHelp = MenuItem.new()
    @mnuInfo = MenuItem.new()
    @lvCodec = ListView.new()
    @chNames = ColumnHeader.new()
    @chClsid = ColumnHeader.new()
    @chItems = ColumnHeader.new()
    @sbCount = StatusBar.new()
    #
    #mnuMain
    #
    [@mnuFile, @mnuView, @mnuHelp].each {|item| @mnuMain.MenuItems.Add item}
    #
    #mnuFile
    #
    [@mnuScan, @mnuExit].each {|item| @mnuFile.MenuItems.Add item}
    @mnuFile.Text = '&File'
    #
    #mnuScan
    #
    @mnuScan.Shortcut = Shortcut.F5
    @mnuScan.Text = '&Scan...'
    @mnuScan.Click {|sender, e| mnuScan_Click(sender, e)}
    #
    #mnuExit
    #
    @mnuExit.Shortcut = Shortcut.CtrlX
    @mnuExit.Text = 'E&xit'
    @mnuExit.Click {|sender, e| mnuExit_Click(sender, e)}
    #
    #mnuView
    #
    @mnuView.MenuItems.Add @mnuSBar
    @mnuView.Text = '&View'
    #
    #mnuSBar
    #
    @mnuSBar.Checked = true
    @mnuSBar.Text = '&Show Status Bar'
    @mnuSBar.Click {|sender, e| mnuSBar_Click(sender, e)}
    #
    #mnuHelp
    #
    @mnuHelp.MenuItems.Add @mnuInfo
    @mnuHelp.Text = '&Help'
    #
    #mnuInfo
    #
    @mnuInfo.Text = 'About'
    @mnuInfo.Click {|sender, e| mnuInfo_Click(sender, e)}
    #
    #lvCodec
    #
    @lvCodec.AllowColumnReorder = true
    [@chNames, @chClsid, @chItems].each {|item| @lvCodec.Columns.Add item}
    @lvCodec.Dock = DockStyle.Fill
    @lvCodec.FullRowSelect = true
    @lvCodec.GridLines = true
    @lvCodec.MultiSelect = false
    @lvCodec.Sorting = SortOrder.Ascending
    @lvCodec.View = View.Details
    #
    #chNames
    #
    @chNames.Text = 'Name'
    @chNames.Width = 183
    #
    #chClsid
    #
    @chClsid.Text = 'CLSID'
    @chClsid.Width = 239
    #
    #chItems
    #
    @chItems.Text = 'Module'
    @chItems.Width = 250
    #
    #sbCount
    #
    @sbCount.SizingGrip = false
    #
    #Frm
    #
    self.ClientSize = Size.new(573, 217)
    [@lvCodec, @sbCount].each {|item| self.Controls.Add item}
    self.Menu = @mnuMain
    self.StartPosition = FormStartPosition.CenterScreen
    self.Text = 'Codecs'
    self.Load {|sender, e| frmMain_Load(sender, e)}
  end

  def mnuScan_Click(sender, e)
    #clear before each scanning
    @lvCodec.Items.Clear()
    #loading info
    rk = Registry.ClassesRoot
    rk.OpenSubKey(@reg).GetSubKeyNames().each do |sub|
      #name(s) of codec(s)
      item = @lvCodec.Items.Add(rk.OpenSubKey(@reg + '\\' + sub).GetValue('FriendlyName'))
      #CLSID
      item.SubItems.Add(sub)
      #looking for module(s) of codec(s)
      item.SubItems.Add(rk.OpenSubKey('CLSID\\' + sub + '\\InprocServer32').GetValue(''))
    end
    #totaly
    @sbCount.Text = @lvCodec.Items.Count.ToString() + ' item(s)'
  end

  def mnuExit_Click(sender, e)
    Application.exit
  end

  def mnuSBar_Click(sender, e)
    bln =! @mnuSBar.Checked
    @mnuSBar.Checked = bln
    @sbCount.Visible = bln
  end

  def mnuInfo_Click(sender, e)
    FrmA.new().ShowDialog()
  end

  def frmMain_Load(sender, e)
    @sbCount.Text = '0 item(s)'
  end
end

class FrmA < Form
  def initialize
    self.InitializeComponent()
  end

  def InitializeComponent()
    @pbImage = PictureBox.new()
    @lblName = Label.new()
    @lblCopy = Label.new()
    @btnExit = Button.new()
    #
    #pbImage
    #
    @pbImage.Location = Point.new(16, 16)
    @pbImage.Size = Size.new(32, 32)
    @pbImage.SizeMode = PictureBoxSizeMode.StretchImage
    #
    #lblName
    #
    @lblName.Font = Font.new('Microsoft Sans Serif', 9, FontStyle.Bold)
    @lblName.Location = Point.new(53, 19)
    @lblName.Size = Size.new(360, 18)
    @lblName.Text = 'Codecs v1.00'
    #
    #lblCopy
    #
    @lblCopy.Location = Point.new(55, 37)
    @lblCopy.Size = Size.new(360, 23)
    @lblCopy.Text = '(C) 2012 Grigori Zakharov gregzakh@gmail.com'
    #
    #btnExit
    #
    @btnExit.Location = Point.new(135, 67)
    @btnExit.Text = 'OK'
    #
    #FrmA
    #
    self.AcceptButton = @btnExit
    self.CancelButton = @btnExit
    self.ClientSize = Size.new(350, 110)
    [@pbImage, @lblName, @lblCopy, @btnExit].each {|item| self.Controls.Add item}
    self.ControlBox = false
    self.FormBorderStyle = FormBorderStyle.FixedSingle
    self.ShowInTaskbar = false
    self.StartPosition = FormStartPosition.CenterParent
    self.Text = 'About...'
    self.Load {|sender, e| frmAbout_Load(sender, e)}
  end

  def frmAbout_Load(sender, e)
    begin
      icon = Icon
      @pbImage.Image = self.icon.ToBitmap()
    rescue Exception => e
      MessageBox.Show(e.Message, self.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop)
    end
  end
end

Application.enable_visual_styles
Application.run Frm.new()