[Back to WIN-OS2 SWAG index]  [Back to Main SWAG index]  [Original]

{
TREVOR@wordperfect.com

Below is a dinky program to start a os/2 program from a os/2 dos window.
It's pretty ugly right now, but it works fairly well.  I dug this up by
debugging VIEW.EXE, so there may be errors or omissions.  Anyone can have
this, feel free to mutilate it in any way you wish.
}

program dosstart;

var
  buf   : array[0..8] of PChar;
  dir,
  title,
  fname,
  opts  : string;
  i     : integer;
begin
  if paramcount > 0 then
  begin
    fillchar(buf, sizeof(buf), 0);
    buf[0] := ptr(0, $20);
    title  := 'Blah blah: ' + paramstr(1) + #0;   { window title }
    buf[2] := @title[1];
    fname  := paramstr(1);
    fname  := fname + #0;
    buf[3] := @fname[1];
    if paramcount > 1 then
    begin
      opts := '';
      for i := 2 to paramcount do
        opts := opts + paramstr(i);
      opts := opts + #0;
      buf[4] := @opts[1];
    end;
    asm
      mov ax, 6400h
      mov bx, 0025h
      mov cx, 636ch
      mov si, offset buf
      int 21h
    end;
  end
  else
  begin
    writeln('USAGE:');
    writeln('   DOSSTART.EXE OS2PROG [OS2PROG_OPTIONS]');
    writeln;
  end;
end.

[Back to WIN-OS2 SWAG index]  [Back to Main SWAG index]  [Original]