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"
