home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
SPAWNO40.ZIP
/
SPAWNO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-11-17
|
2KB
|
52 lines
{============================================================================}
{ (c) Copyright 1991 Ralf Brown All Rights Reserved }
{ This file is part of the SPAWNO package and may be redistributed as a part }
{ of, and under the same terms as, that package. }
{============================================================================}
UNIT SPAWNO ;
interface
const
(* symbolic constants for specifying permissible swap locations *)
(* add/or together the desired destinations *)
swap_disk = 0 ;
swap_xms = 1 ;
swap_ems = 2 ;
swap_ext = 4 ;
swap_all = $FF ; (* swap to any available destination *)
(* error codes *)
enotfound = 2 ;
enopath = 3 ;
eaccess = 5 ;
enomem = 8 ;
e2big = 20 ;
ewritefault = 29 ;
var
spawno_error : integer ; (* error code when SPAWN returns -1 *)
procedure init_SPAWNO(swap_dirs : string ; swap_types : integer ;
min_res : integer ; res_stack : integer) ;
(* min_res = minimum number of paragraphs to keep resident
res_stack = minimum paragraphs of stack to keep resident
(0 = no change)
*)
function SPAWN(progname : string ; arguments : string ; envseg : integer) : integer ;
implementation
{$L SPAWNTP.OBJ}
procedure init_SPAWNO(swap_dirs : string ; swap_types : integer ;
min_res : integer ; res_stack : integer) ;
external ;
function SPAWN(progname : string ; arguments : string ; envseg : integer) : integer ;
external ;
end.