Subj : Maybe...
To   : Donald Tidmore
From : Sean Dennis
Date : Mon Apr 28 2003 11:10 pm

Hello, Donald.

Are you needing something like:

{ ensures that under Win32 enviroment that the correct
  fully qualified path is used }
Function WAssign (Temp:String; S:String) : String;
var
{$IFDEF MSDOS}
 P: PathStr;
 D: DirStr;
 N: NameStr;
 E: ExtStr;
{$ENDIF}
 FullPath : String;
begin
 {$IFDEF VIRTUALPASCAL}
   FullPath := ExtractFilePath(ParamStr(0));
   Assign(Temp, FullPath + S);
  {$ELSE}
 P := S;
 FSplit(P, D, N, E);
 P := D + N + E;
 FullPath := P;
   Assign(Temp, FullPath + S);
 {$ENDIF}
end;

....because I think that's what that routine is trying to do. ;)

I wrote this routine for use in my doors so the Win32 versions would work 
correctly (on some systems, the enviroment wasn't being passed correctly). This 
will work under Virtual Pascal, Turbo Pascal and Borland Pascal.

From what I see, that code is not entirely correct... but this works, trust me. 
;)

Hope this helps,
Sean

// hausmaus@midnightshour.org | http://midnightshour.org | ICQ: 19965647

---
 * Origin: Midnight's Hour BBS - midnightshour.org - 618.529.9296 (1:11/200)

.