Mirrored_Repos/rdpwrap
1
0
Fork 0
mirror of https://github.com/stascorp/rdpwrap.git synced 2024-11-27 07:57:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Installer: Allow to install INI from current directory (fix #300)

Browse Source
This commit is contained in:
Stas'M 2017-12-27 17:12:28 +03:00
parent 51b3421a65
commit 180f41197a
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src-installer/RDPWInst.dpr
View File

@ -1,5 +1,5 @@
{ {
Copyright 2016 Stas'M Corp. Copyright 2017 Stas'M Corp.
Licensed under the Apache License, Version 2.0 (the "License"); Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License. you may not use this file except in compliance with the License.
@ -670,7 +670,19 @@ begin
OnlineINI.Free; OnlineINI.Free;
end; end;
if not Online then if not Online then
begin
S := ExtractFilePath(ParamStr(0)) + 'rdpwrap.ini';
if FileExists(S) then
begin
OnlineINI := TStringList.Create;
OnlineINI.LoadFromFile(S);
S := ExtractFilePath(ExpandPath(WrapPath)) + 'rdpwrap.ini';
OnlineINI.SaveToFile(S);
Writeln('[+] Current INI file -> ', S);
OnlineINI.Free;
end else
ExtractRes('config', ExtractFilePath(ExpandPath(WrapPath)) + 'rdpwrap.ini'); ExtractRes('config', ExtractFilePath(ExpandPath(WrapPath)) + 'rdpwrap.ini');
end;
RDPClipRes := ''; RDPClipRes := '';
case Arch of case Arch of