Good point, I just assume everyone is running NT or 2K now. :)
-medge
> -----Original Message-----
> From: Rohit Gupta [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, 29 March 2001 2:07 PM
> To: Multiple recipients of list delphi
> Subject: RE: [dug] Mapped UNC drives
>
>
> Do test it on 95 first... if it doesnt, let me know, I have one taht
> works on all platforms.
>
>
> To: Multiple recipients of list delphi
> <[EMAIL PROTECTED]>
> Send reply to: [EMAIL PROTECTED]
> From: "Edge, Martin (SSABSA)" <[EMAIL PROTECTED]>
> Subject: RE: [dug] Mapped UNC drives
> Date sent: Thu, 29 Mar 2001 13:48:42 +0930
>
> > This is a little clunky, but it works:
> >
> >
> > function FindDrive(UNCName : string) : string;
> > var
> > Drv, res : array[0..100] of char;
> > c : char;
> > i : dword;
> >
> > begin
> > strpcopy(Drv,'a:');
> > Result := '';
> > for c := 'c' to 'z' do
> > begin
> > i := sizeof(res);
> > Drv[0] := c;
> > i := WNetGetConnection(Drv,res,i);
> > if (i = 0) and (stricomp(res,pchar(UNCName)) = 0) then
> > Result := StrPas(Drv);
> > end;
> > end;
> >
> > -medge
> >
> --------------------------------------------------------------
> -------------
> > New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
> >
>
>
> Regards
>
> Rohit
>
> ======================================================================
> CFL - Computer Fanatics Ltd. 21 Barry's Point Road, AKL, New Zealand
> PH (649) 489-2280
> FX (649) 489-2290
> email [EMAIL PROTECTED] or [EMAIL PROTECTED]
> ======================================================================
>
> --------------------------------------------------------------
> -------------
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
