dragonleo/NSIS
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

SetUserVariable for Delphi ExDLL too - thanks spidervenom

Browse source 
git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@3089 212acab6-be3b-0410-9dea-997c60f758d6
This commit is contained in:
kichik 2003-11-03 09:01:53 +00:00
parent 04bcb951a0
commit 43bd7d565f
2 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Contrib/ExDLL/exdll.dpr
View file

@ -96,6 +96,15 @@ begin
Result:=g_variables+integer(varnum)*g_stringsize;
end;
procedure SetUserVariable(varnum: TVariableList; value: PChar);
begin
if (value = nil) or (integer(varnum) < 0) or (integer(varnum) >= integer(__INST_LAST)) then
begin
Exit;
end;
lstrcpy(g_variables+integer(varnum)*g_stringsize,value);
end;
function ex_dll(hwndParent: HWND; string_size: integer; variables: PChar; stacktop: pointer):integer; cdecl;
var
c: PChar;

10
Contrib/ExDLL/nsis.pas
View file

@ -63,6 +63,7 @@ procedure Init(hwndParent: HWND; string_size: integer; variables: PChar; stackto
function PopString(str: PChar):integer;
function PushString(str: PChar):integer;
function GetUserVariable(varnum: TVariableList):PChar;
function SetUserVariable(varnum: TVariableList; value: PChar):integer;
implementation
@ -116,5 +117,14 @@ begin
Result:=g_variables+integer(varnum)*g_stringsize;
end;
procedure SetUserVariable(varnum: TVariableList; value: PChar);
begin
if (value = nil) or (integer(varnum) < 0) or (integer(varnum) >= integer(__INST_LAST)) then
begin
Exit;
end;
lstrcpy(g_variables+integer(varnum)*g_stringsize,value);
end;
begin
end.