Martin
> Good point, I just assume everyone is running NT or 2K now. :)
On what planet?
Neven
>
> > -----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"
>
---------------------------------------------------------------------------
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"
