mirror of
https://github.com/stascorp/rdpwrap.git
synced 2024-11-23 14:07:18 +00:00
Installer: Extract rfxvmt.dll if missing (#194)
This commit is contained in:
parent
180f41197a
commit
1223417ca1
@ -641,7 +641,7 @@ end;
|
|||||||
|
|
||||||
procedure ExtractFiles;
|
procedure ExtractFiles;
|
||||||
var
|
var
|
||||||
RDPClipRes, S: String;
|
RDPClipRes, RfxvmtRes, S: String;
|
||||||
OnlineINI: TStringList;
|
OnlineINI: TStringList;
|
||||||
begin
|
begin
|
||||||
if not DirectoryExists(ExtractFilePath(ExpandPath(WrapPath))) then
|
if not DirectoryExists(ExtractFilePath(ExpandPath(WrapPath))) then
|
||||||
@ -685,6 +685,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
RDPClipRes := '';
|
RDPClipRes := '';
|
||||||
|
RfxvmtRes := '';
|
||||||
case Arch of
|
case Arch of
|
||||||
32: begin
|
32: begin
|
||||||
ExtractRes('rdpw32', ExpandPath(WrapPath));
|
ExtractRes('rdpw32', ExpandPath(WrapPath));
|
||||||
@ -692,6 +693,8 @@ begin
|
|||||||
RDPClipRes := 'rdpclip6032';
|
RDPClipRes := 'rdpclip6032';
|
||||||
if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 1) then
|
if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 1) then
|
||||||
RDPClipRes := 'rdpclip6132';
|
RDPClipRes := 'rdpclip6132';
|
||||||
|
if (FV.Version.w.Major = 10) and (FV.Version.w.Minor = 0) then
|
||||||
|
RfxvmtRes := 'rfxvmt32';
|
||||||
end;
|
end;
|
||||||
64: begin
|
64: begin
|
||||||
ExtractRes('rdpw64', ExpandPath(WrapPath));
|
ExtractRes('rdpw64', ExpandPath(WrapPath));
|
||||||
@ -699,11 +702,16 @@ begin
|
|||||||
RDPClipRes := 'rdpclip6064';
|
RDPClipRes := 'rdpclip6064';
|
||||||
if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 1) then
|
if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 1) then
|
||||||
RDPClipRes := 'rdpclip6164';
|
RDPClipRes := 'rdpclip6164';
|
||||||
|
if (FV.Version.w.Major = 10) and (FV.Version.w.Minor = 0) then
|
||||||
|
RfxvmtRes := 'rfxvmt64';
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
if RDPClipRes <> '' then
|
if RDPClipRes <> '' then
|
||||||
if not FileExists(ExpandPath('%SystemRoot%\System32\rdpclip.exe')) then
|
if not FileExists(ExpandPath('%SystemRoot%\System32\rdpclip.exe')) then
|
||||||
ExtractRes(RDPClipRes, ExpandPath('%SystemRoot%\System32\rdpclip.exe'));
|
ExtractRes(RDPClipRes, ExpandPath('%SystemRoot%\System32\rdpclip.exe'));
|
||||||
|
if RfxvmtRes <> '' then
|
||||||
|
if not FileExists(ExpandPath('%SystemRoot%\System32\rfxvmt.dll')) then
|
||||||
|
ExtractRes(RfxvmtRes, ExpandPath('%SystemRoot%\System32\rfxvmt.dll'));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure DeleteFiles;
|
procedure DeleteFiles;
|
||||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user