#SingleInstance ignore
; 載入訊息字串檔
#include strings.ahk

; 設定系統列圖示及選單
Menu, Tray, Tip, %TrayTipRegisterFeedProtocolApp%
Menu, Tray, Icon, opera.ico, 1, 1
Menu, Tray, NoStandard
Menu, Tray, Add, %TrayMenuItemDebugWindow%, debugwindow
Goto, mainscript

debugwindow:
ListVars
return

mainscript:
MsgBox, 36, %TitleRegFeedProtocolApp%, %AskTitleRegFeedProtocolApp%
IfMsgBox, No
{
  MsgBox, 48, %TitleAborted%, %MessageRegFeedProtocalAppAborted%
  ExitApp
}
FileSelectFile, FeedAppPath, 3, ::{20d04fe0-3aea-1069-a2d8-08002b30309d}, %RegFeedProtocolAppTitle%, %RegFeedProtocolAppFileType%
If FeedAppPath =
{
  MsgBox, 48, %TitleAborted%, %MessageRegFeedProtocalAppAborted%
  ExitApp
}
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, feed, , URL:feed protocol
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, feed, URL Protocol,
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, feed\DefaultIcon, ,"%FeedAppPath%"
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, feed\shell\open\command, ,"%FeedAppPath%" "`%1"
MsgBox, 64, %TitleDone%, %MessageRegFeedProtocalAppDone%
ExitApp