Hello jari!

Friday March 15 1996, jari laaksonen writes to All:

 jl> /* public domain code to set dynamic drag on Warp with fixpak 17
 jl>  *
 jl>  * Jari Laaksonen, 15 Mar 1996 (email: jla{at}to.icl.fi)


Here is a simple Virtual Pascal port

program SetDynamicDrag;
{ public domain code to set dynamic drag on Warp with fixpak 17
{
{ Jari Laaksonen, 15 Mar 1996 (email: jla{at}to.icl.fi)
{
{ Quick and Dirty port to Virtual Pascal EEP4 by Gerard Gerritsen
{                                     ( email: 1000521{at}et.fnt.hvu.nl )
{
{ Usage DynDrag [Value]
{    - Sets dynamic drag on/off accoridng to the parameter,
{      shows the current value if no parameter given.
}

uses use32,os2pmapi,os2def;

{$DYNAMIC SYSTEM}
{$L VPRTL.LIB}

const SV_DYNAMICDRAG=99;

var
TempString:string[5];
counter:Byte;

begin
if ParamCount1 then begin
                      if WinQuerySysValue(HWND_DESKTOP,SV_DYNAMICDRAG)0
                        then Writeln('Dynamic Drag is ON')
                        else Writeln('Dynamic Drag is OFF'); 
                      exit;
                      end;

 TempString:=Paramstr(1);
 For counter:=1 to SizeOf(TempString)
  do TempString[counter]:=UpCase(TempString[Counter]);

IF TempString='ON' then WinSetSYsValue(HWND_DESKTOP, SV_DYNAMICDRAG,1)
                      else WinSetSysValue(HWND_DESKTOP, SV_DYNAMICDRAG,0);

end.

==> Gerard/2   - member of team os/2 -  1000521{at}ibk.fnt.hvu.nl

--- Fmail/2 1.02 Registered