Hello Rich!

Monday May 27 1996, Rich Veraa writes to All:

 RV> OS/2 API calls?  I just got VP/2 and tried

Use the included api reference ( view VPCP1.INF+VPCP2.INF+VPCP3.INF )
( those files are located in \vp\doc )

 RV> Function LockFile(Var F; LockStart: LongInt; LockLength: LongInt):
 RV> Word;

Look for DosSetFileLocks, from what I can see in the reference, you will
have to define a starting position and the length of the region.

With TimeOut ( param 4 ) you can specify how much time ( in ms ) your
application should wait before giving up if it cannot get that lock.

 RV> Function  GetTempName(FN: String): String;

Maybe use the timer or a random function and convert it to a filename (
better first check if it exists )

There is a nice example on ftp://ftp.fprint.co.uk in the subdirectory
\fprint\vpascal, it is called OS2EXEC.ZIP. Although you will need to modify
it a bit, since the part you will need is used for naming 'random named'
named pipes.

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

--- Fmail/2 1.02 Registered