remove unused files

This commit is contained in:
Bastian Kleineidam 2015-12-09 21:22:54 +01:00
parent 09dd1f1d4a
commit 02004743f7
5 changed files with 0 additions and 288 deletions

View File

@ -1,6 +0,0 @@
U2FsdGVkX19Pmq1Bm6/4YM3Le/TjIyc0nUtQ9EpbxV4lKUUwjwKIS5gSY6qSGNRS
v43i2jWTXLpd1Zx0hUw5E5OmC1jqwuCQEoMMCSF4n8gbEfgonForE/WFEIShoHfY
QYUAwroJpfaV7XRCIsXZYKvz53Q5M3W1gs0iYWw2/JM81e5goQTTg+riZ2XaW7RZ
M+XqLpIf3E4+yPDclmSh5mSOpErzJUaQ5LmvILL4GSeaAkC6yVa0CbkEBxlWFa+d
HZQnRhV1XLGwDNU5kDlip9ykHBg8eWq42lucJqxNWB62R9uBIGXVP1lXM4aX0QAr
P9YmfRjUwG0MKfp4Y2TOQlACom8ayd256lDjhyA/BRI=

View File

@ -1,219 +0,0 @@
// ----------------------------------------------------------------------------
//
// Inno Setup Ver: 5.4.2
// Script Version: 1.4.2
// Author: Jared Breland <jbreland@legroom.net>
// Homepage: http://www.legroom.net/software
// License: GNU Lesser General Public License (LGPL), version 3
// http://www.gnu.org/licenses/lgpl.html
//
// Script Function:
// Allow modification of environmental path directly from Inno Setup installers
//
// Instructions:
// Copy modpath.iss to the same directory as your setup script
//
// Add this statement to your [Setup] section
// ChangesEnvironment=true
//
// Add this statement to your [Tasks] section
// You can change the Description or Flags
// You can change the Name, but it must match the ModPathName setting below
// Name: modifypath; Description: &Add application directory to your environmental path; Flags: unchecked
//
// Add the following to the end of your [Code] section
// ModPathName defines the name of the task defined above
// ModPathType defines whether the 'user' or 'system' path will be modified;
// this will default to user if anything other than system is set
// setArrayLength must specify the total number of dirs to be added
// Result[0] contains first directory, Result[1] contains second, etc.
// const
// ModPathName = 'modifypath';
// ModPathType = 'user';
//
// function ModPathDir(): TArrayOfString;
// begin
// setArrayLength(Result, 1);
// Result[0] := ExpandConstant('{app}');
// end;
// #include "modpath.iss"
// ----------------------------------------------------------------------------
procedure ModPath();
var
oldpath: String;
newpath: String;
updatepath: Boolean;
pathArr: TArrayOfString;
aExecFile: String;
aExecArr: TArrayOfString;
i, d: Integer;
pathdir: TArrayOfString;
regroot: Integer;
regpath: String;
begin
// Get constants from main script and adjust behavior accordingly
// ModPathType MUST be 'system' or 'user'; force 'user' if invalid
if ModPathType = 'system' then begin
regroot := HKEY_LOCAL_MACHINE;
regpath := 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment';
end else begin
regroot := HKEY_CURRENT_USER;
regpath := 'Environment';
end;
// Get array of new directories and act on each individually
pathdir := ModPathDir();
for d := 0 to GetArrayLength(pathdir)-1 do begin
updatepath := true;
// Modify WinNT path
if UsingWinNT() = true then begin
// Get current path, split into an array
RegQueryStringValue(regroot, regpath, 'Path', oldpath);
oldpath := oldpath + ';';
i := 0;
while (Pos(';', oldpath) > 0) do begin
SetArrayLength(pathArr, i+1);
pathArr[i] := Copy(oldpath, 0, Pos(';', oldpath)-1);
oldpath := Copy(oldpath, Pos(';', oldpath)+1, Length(oldpath));
i := i + 1;
// Check if current directory matches app dir
if pathdir[d] = pathArr[i-1] then begin
// if uninstalling, remove dir from path
if IsUninstaller() = true then begin
continue;
// if installing, flag that dir already exists in path
end else begin
updatepath := false;
end;
end;
// Add current directory to new path
if i = 1 then begin
newpath := pathArr[i-1];
end else begin
newpath := newpath + ';' + pathArr[i-1];
end;
end;
// Append app dir to path if not already included
if (IsUninstaller() = false) AND (updatepath = true) then
newpath := newpath + ';' + pathdir[d];
// Write new path
RegWriteStringValue(regroot, regpath, 'Path', newpath);
// Modify Win9x path
end else begin
// Convert to shortened dirname
pathdir[d] := GetShortName(pathdir[d]);
// If autoexec.bat exists, check if app dir already exists in path
aExecFile := 'C:\AUTOEXEC.BAT';
if FileExists(aExecFile) then begin
LoadStringsFromFile(aExecFile, aExecArr);
for i := 0 to GetArrayLength(aExecArr)-1 do begin
if IsUninstaller() = false then begin
// If app dir already exists while installing, skip add
if (Pos(pathdir[d], aExecArr[i]) > 0) then
updatepath := false;
break;
end else begin
// If app dir exists and = what we originally set, then delete at uninstall
if aExecArr[i] = 'SET PATH=%PATH%;' + pathdir[d] then
aExecArr[i] := '';
end;
end;
end;
// If app dir not found, or autoexec.bat didn't exist, then (create and) append to current path
if (IsUninstaller() = false) AND (updatepath = true) then begin
SaveStringToFile(aExecFile, #13#10 + 'SET PATH=%PATH%;' + pathdir[d], True);
// If uninstalling, write the full autoexec out
end else begin
SaveStringsToFile(aExecFile, aExecArr, False);
end;
end;
end;
end;
// Split a string into an array using passed delimeter
procedure MPExplode(var Dest: TArrayOfString; Text: String; Separator: String);
var
i: Integer;
begin
i := 0;
repeat
SetArrayLength(Dest, i+1);
if Pos(Separator,Text) > 0 then begin
Dest[i] := Copy(Text, 1, Pos(Separator, Text)-1);
Text := Copy(Text, Pos(Separator,Text) + Length(Separator), Length(Text));
i := i + 1;
end else begin
Dest[i] := Text;
Text := '';
end;
until Length(Text)=0;
end;
procedure CurStepChanged(CurStep: TSetupStep);
var
taskname: String;
begin
taskname := ModPathName;
if CurStep = ssPostInstall then
if IsTaskSelected(taskname) then
ModPath();
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
aSelectedTasks: TArrayOfString;
i: Integer;
taskname: String;
regpath: String;
regstring: String;
appid: String;
begin
// only run during actual uninstall
if CurUninstallStep = usUninstall then begin
// get list of selected tasks saved in registry at install time
appid := '{#emit SetupSetting("AppId")}';
if appid = '' then appid := '{#emit SetupSetting("AppName")}';
regpath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+appid+'_is1');
RegQueryStringValue(HKLM, regpath, 'Inno Setup: Selected Tasks', regstring);
if regstring = '' then RegQueryStringValue(HKCU, regpath, 'Inno Setup: Selected Tasks', regstring);
// check each task; if matches modpath taskname, trigger patch removal
if regstring <> '' then begin
taskname := ModPathName;
MPExplode(aSelectedTasks, regstring, ',');
if GetArrayLength(aSelectedTasks) > 0 then begin
for i := 0 to GetArrayLength(aSelectedTasks)-1 do begin
if comparetext(aSelectedTasks[i], taskname) = 0 then
ModPath();
end;
end;
end;
end;
end;
function NeedRestart(): Boolean;
var
taskname: String;
begin
taskname := ModPathName;
if IsTaskSelected(taskname) and not UsingWinNT() then begin
Result := True;
end else begin
Result := False;
end;
end;

View File

@ -1,12 +0,0 @@
U2FsdGVkX19Pmq1Bm6/4YMmIf6t5Sr7r5RaAX9EaMcH4xxQPpc0KJYpO9Oqx6nl2
9yM8tpgAkL00z0pI2ttK2ahXxfbzXu64wiMB/cSRVS8/Ult2hmR5lqd0HT95XbAW
zu3x9GGlJDQpZDnQ1wdGt6KK3hnrVVAYNtdRoXeZfiQnbfKnIvLY62hh+SYVWgsj
ZDyh9aE2Wkt5bH3RmtLjD3zxZFR3WfnOCNJjEFbBTHq+Gxx5x0OVATaHyYyK3Btf
QyZ8SBW7tp1QaKayJ78kWLWgsXcjh+OVRlYpDJgJgepx4mDzSzj2DcANjAjpxf2v
GYcbl4lOlsRB+74RN/ky8rzq0CrT0PqQtY5d9O+e4V3gxXXiD4cw5cyuDOuf1Rl9
fAyForc3l5C676iBDwuxgDlirZPhxic3eCgOp6xDuJ44ntobVUW8jnXNJeEu95m2
4WhXaAOYIPN8SiOVVwZ1z86JhWTRvzWQOXjm7dLCOgCB8v9QCn55KJZ/5rOM9ejd
HBcdWSP1uZDn8VGEezPEU4fvfPVFWPNO0LpH8vxMfVs0ZOsQK1zgwO0Aull+S8wf
cz5U1BhRavt4/D1e3rGJCJSHRezq8L1rnIy3AGpZhClGmQmnxWBpUHDi3s46jn+W
r2QhOIrjZrIF2j+KnQ/BSCjOSGyyLzFw7a9hHIrxDIITnDRLdQhucrGP97XhOTaE
0FVEiSFl6D7QXjdpi0qyrkZaITLIcQYj18DvwVjUl8YOWUOlwXUphlhEcxlY/n1U

View File

@ -1,37 +0,0 @@
U2FsdGVkX19Pmq1Bm6/4YOKAszcpisD2HSrgftyDB4AJ0yjpB4HmB4pyjkMsJ3Dz
27ky9E4gBxM22HsOgouwdg/lKTcOtQ6beGHkM8Iof1okOVx0xnVpSwuI431uYSXA
CjmgNVJiePjkBMuTntGKED84eHJ1mhDVCaIfOnOCY+6S7wv/asTukS5oe4OJBBG3
01PPmj6MIuR4fzVkhMXPH+BIjSu8zXgkfjNyy+qKR2wgI+z5Wiz/Nx70kD71NXDw
uw/vb0fa5h9sIqmP9dZX6HuoJ3L/H81By+wyx2kxtFxsI8O1T+KYre1+hLAbI/+J
yR5ABrBQxLFZAXuok2VsOGxXy8b0da6fzM5CVxSVr1lKKmAHagLjOef+THzHg4Ag
7vqN15biL+pWAqsrzYqH9wXbjsgyi2mEHnv06RRnuRSl45r3db4tTdQtyzTzb/dh
wpfvqnjnq+6sQBda5PMCdPIuI6Z59Xvc32pmztOnwL2Fwbz95gj7f7LesfV7xcTI
dVvMkXUrwqCJ000o4nRgbRINNv96gzVqFqzpp4t/vV3pA9SeR23E2BYum8XZZvT2
00rHBGzsPUyON6iXaEPKoATKy9UEKU2+vwvOeE4FkZL9e2oxqnwEMOI7dBvn4OPq
yS9X2ogCVbl3rWzDplahb7gCvuyJJLeQMPOHrjPz1H6m3r63koBhQeTEEeAew68w
ELg14tFd7OMvLuR3EY5nZLzDrbwvdSRJWcbw0qPU/olNUrHgW6dX4rKADB9wua8X
5yLWyE92CZ++/hytuMiiW6LUAZK/RxB7RwDq3EeumZKlnP7IvFwoBsoDDjG7Wy7j
zVQH+SrTTwxfIFtaGotUTGpkCeuowbNLr/P6DBRAeqtw++zgRJIvYsDjyF9zwgJC
5ijU/sbDuJRGFyPl29rRk+qcud1Zl8Uy3ZTo/VOAjM3m8RIVMVfl8UnzxMmnqtdy
ctQcLuSuQxKHrLBuJ0JyveA1OQc0L8O72SkoiUBASniJsQpXoA3C1Yg/U5v8Nyde
CqsqoeBwuKmMfDRL0BQ0wrTDEr4CGOZNeZFSK6NnlLev2rIoJEyZFaekM4tU54Ua
/u7XwZxMMfyRzg/RlulkNx8y2jQ49sZUxmLLQBlhvC+tlDt2PhjjrQ1zd6cNfc3Y
aN8qLWZfLDXq9vekH+1/hlqVkeM6Y0ri/LoCZLLj7YNc3RHWcj/VwTzPMKqru6R1
R4AGPUp3P/NS7uCAyUA6aSZuDVpFiGR+RhGKP2szYtQjsa3y8h82yRocOVYuhCWh
0OxOGvOOWZ9g+j9PeTzhlILseGI/tWjgbNd6Cp5dFkIEOcctPKjDJbNQqD5OTY5b
sAjD7gJXcwpx5ZCCV21YZToBibW8IVJ+zYOsARXhCIN9Hlj+FqSrQ/Is5+hQpi/L
61a53Df4vo25iAsjCq+Rr6do5NvtzSDNDBQGC6DwOzoeeKXwNoWJC0K6VAxfG4FS
SXavnsGoZSDNKISCnoBVtC7o6Kebba46LrD7lOepXsf8WEVPHNU+RklKbq2+ohFt
IC+WemSCe6QSfCh+PMlHkcJ7d4hpCHvokS5sxU1UqoahQI8izQlLgQczDnofb+/f
G/Ns8s7+KaQDgNieEtoXd9l1FAmAq+SjEO7IJQz3sZ+ueNe4Hn7NGXv7xL7XB8Xt
24qS1uLRzoZpkaBRPte8g3Q7Cr01JNOSbBj5VD7A6TTHFFmXckUb1Do9IaKPdsSZ
QLnhGdd2zcy3J/rLrRPbb2vbFk8N/rE4CfMR3VECPJ3v9oDoVe+2IC4GlDoqe9Ff
bNNyyfsGIGyKqeRFo1QXzd0X39UTijq0gp8D7cZ1O/7ji40bZGKzss1ttYhUoqD8
mrSrUB43dVkOcWXAdH6iAdjXZ21lOztqI6W7O5d2+bcybPtWHrtbQFNQ+/LNv4+3
uHNMHGZGhJLf/B8kKt20NyrF87qOLYjoioY5vopCFU/NM9VNFgfPUKH9atUE4abi
ar85cQAvBtJEDI2p1kCKDWA/nr9luMgf5jKjvXs+GbdQwwkfp6MBEYcZk79Frre8
Cpw1EqCq51111A/O+ZehLkg3WCsV1RgcxdENUJRpzSxVhNAy9E2pxod3HD57F66Z
mNENcTHHUVCEmWyv2HH52hu+CNu3Se11NX0bPBhgfqE0LSaYasEkq9lvbcabmhLp
hjmjzxnclTOOOIXHIkMY3ao4f2LIg+HIXX4ekmlfk2GDuuTniqeMF8ne/DFvs0fU
cEv9BYm8J/UnsiNMbJLl/38enjDnf2mLD2Ac8PjKV7M1geD/hyN4VmSlUj7p/Svg
c+s90EJu22iX0lnqlYQieM+gtDA1PoEp+VBFQEWf8XPqBHFXFeTocJtaOh0zLVZ1

View File

@ -1,14 +0,0 @@
U2FsdGVkX19Pmq1Bm6/4YErnaSokkY0aompyx6DlbhWJORQpwgo7a2JQQ8sRo6zj
lBcnD23Q2KtELG1jmLVKKwdX+/HFqciWNCNU+l8UIE52PwDJi9ULT92Af72+CgbO
p007EgZnX1lqGUTCiDOpMZieSLIbM+ClA16xMSA2sGDOiSGObSL2wCw+LlCgFc5Q
8ksVFTcs6zggbOeWn/x//qHjtpGbHwSewmX87zf2yjGYW7gKc6qJvkQp0Or+c4ID
1ksFoEjhm8gNdCYXGFI1+cJH4B5Z1DUXLwhbiEbAoFS8LR43XzdlSn/7KV+NFyzP
gESyMfeQLfUaj3qeW1nfbmiZA8oDKvAFrE8nZD6c/x5bFsqoEI38Eb/+553aY5KJ
91m0KSlouQ8pwN53OLBzm9YkkCT1USoGTnSju+yljkJerjVHZzOTQfiUZYkK6mnc
azKmJolrt74eAsborobx1QCM2cjee/zNsoumI09ioDYYQJMM+8b8Opw1ny/5OYUH
a0o54XoX+nnWgps4FlaGhW1yao0mg08Jf5NR9uN+IBRfvahcBZ1l1ceHu+RPF0Ik
xWHrlNKnhWyHS11x7KejGkndSHc22Gke5x0OFsVLbcj0Fo9pU2LDCJhtbqov6Ynv
DT892V4jfTsCte4wlP0hoeCQpm2AjG0xQ4uxXjyt6mraS7ZScDB3kfQaoANUlxKV
Mb1ZlMKz5ZMWyfJYmFQZstFaN/hw/1LrhNL23F1m24FtR59RZdgPgr4vPK/w1JKi
c3caeL86foft4tqDJxiWjri7XWVFLvtSMWyICOwMrbVEb3oKJHA+4Au6t3bcG4Yd
iLn+9W2tFJJUbCeT5SplHg==