From e94691a912af80b844165654f2837f1916225e16 Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Sat, 8 Jan 2011 11:48:12 +0100
Subject: [PATCH] Extensions: MSI Installer.

---
 Extensions/msi.sex | 50 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 Extensions/msi.sex

diff --git a/Extensions/msi.sex b/Extensions/msi.sex
new file mode 100644
index 0000000..99005de
--- /dev/null
+++ b/Extensions/msi.sex
@@ -0,0 +1,50 @@
+program MSIUpdater;
+
+{$INCLUDE ..\Extensions\Updater.sei}
+
+procedure ClickMSI(Sender: TObject);
+begin
+  if (not (FileExists(IncludePath + 'msi\RunMe.simba'))) then
+  begin
+    WriteLn('MSI: Couldn''t find MSI!');
+    Exit;
+  end;
+
+  if (TMenuItem(Sender).Caption = 'Run') then
+    WriteLn('Running MSI...')
+  else
+    WriteLn('Opening MSI...');
+  OpenScriptEx(IncludePath + 'msi\RunMe.simba', (TMenuItem(Sender).Caption = 'Run'));
+end;
+
+procedure Init;
+var
+  MSI, I: integer;
+  MenuItems: array[0..1] of TMenuItem;
+  Names: array of string;
+begin
+  if (AddUpdater('MSI', 'http://wizzup.org/static/srl/msi.tar.bz2', 'http://wizzup.org/static/srl/msi_version', IncludePath, True, True, MSI)) then
+  begin
+    Names := ['Run', 'Open'];
+    for I := 0 to 1 do
+    begin
+      MenuItems[I] := TMenuItem.Create(UpdaterArr[MSI].MainMenu);
+      MenuItems[I].OnClick := @ClickMSI;
+      MenuItems[I].Caption := Names[I];
+      UpdaterArr[MSI].MainMenu.Insert(I, MenuItems[I]);
+    end;
+  end;
+end;
+
+function GetName: string;
+begin
+  Result := 'MSI Updater';
+end;
+
+function GetVersion: string;
+begin
+  Result := '0.1';
+end;
+
+begin
+end.
\ No newline at end of file