Page 74
5.8
UP_DLL.DLL Library
Thanks to this library strings can be exchanged with the
UP program.
As the library needs to communicate with UP, the
program must be running. UP_DLL cannot work on its
own.
unitup_dll;
interface
FunctionUP_LoadFile(FileName:PChar;style:in
teger):integer;stdcall;
(*
*LoadFile(withextension.hexor.ppr);
*Loadingof.pprfilecanresultinloading*.
hexfiletoo;
*Resultcodesaresamelikeoncommand
*line.
*
*Style|
=1;UPwillbequietonfileload*errors
*Style|=2;UPwilldonopreviousfile
*saving
*
*)
FunctionUP_GetStrValue(ValueName:PChar;Value:
PChar;Size:integer):integer;stdcall;
FunctionUP_GetIntValue(ValueName:PChar;varVa
lue:integer):LongBool;stdcall;
FunctionUP_SetStrValue(ValueName:PChar;Value:
PChar):LongBool;stdcall;
FunctionUP_SetIntValue(ValueName:PChar;Value:
integer):LongBool;stdcall;
FunctionUP_LoadFile_Wnd(WndClass:PChar;FileNam
e:PChar;style:integer):integer;stdcall;
FunctionUP_SetStrValue_Wnd(WndClass:PChar;Valu
eName:PChar;Value:PChar):BOOL;stdcall;
FunctionUP_SetIntValue_Wnd(WndClass:PChar;Valu
eName:PChar;Value:integer):BOOL;stdcall;
FunctionUP_GetStrValue_Wnd(WndClass:PChar;Valu
eName:PChar;Value:PChar;Size:integer):inte
ger;stdcall;
FunctionUP_GetIntValue_Wnd(WndClass:PChar;Valu
eName:PChar;varValue:integer):LongBool;std
call;
(*
*Allthesefunctionsareusedforchanging
*internalsettingsofUPinruntime.
*UP_GetIntValue,UP_SetStrValue,
*UP_SetIntValuereturnsnonzeroif
*successful
*UP_GetStrValuereturnsamountof
*characterstocopyintoValuestring
*includingnullterminator
*IfSizeislessthanrequiedsize,no
*charactersarecopied.
*)
implementation
functionUP_LoadFile;external'up_dll.dll';
functionUP_GetStrValue;external'up_dll.dll';
functionUP_GetIntValue;external'up_dll.dll';
functionUP_SetStrValue;external'up_dll.dll';
functionUP_SetIntValue;external'up_dll.dll';
functionUP_LoadFile_Wnd;external'up_dll.dll';
functionUP_SetStrValue_Wnd;external'up_dll.dl
l';
functionUP_SetIntValue_Wnd;external'up_dll.dl