🚀 go-pugleaf

On Thu, 17 Sep 1998 01:41:09 -0400, DALE wrote:

>   I'm using 7....can you point me to documentation that will discuss creating
> the aliases in the app?

The following courtesy of Romain & Jim Sare.

function DeleteAlias(cAliasName)
//Deletes an existing Alias
if type("DbiDeleteAlias") # "FP"
   extern cint DbiDeleteAlias(;
        cHandle,;
        CPTR;
        ) idapi32
endif
return DbiDeleteAlias(null,DBCSToSBCSZ(cAliasName))=0

function CreateAlias(cAliasName,cPath)
//Creates a DBF Alias

if type("DbiAddAlias") # "FP"
   extern cint DbiAddAlias(;
         cHandle,;
         CPTR,;
         CPTR,;
         CPTR,;
         clogical;
         ) idapi32
endif
return DbiAddAlias(null,;
         DBCSToSBCSZ(cAliasName),;
         DBCSToSBCSZ("DBASE"),;
         DBCSToSBCSZ("PATH:" + cPath),;
         TRUE)=0

Function DBCSToSBCSZ(c)
   LOCAL cTemp, x

   cTemp = Replicate(Chr(0), ((Len(c) + 1) / 2) + ((Len(c) + 1) % 2))
   For x = 1 To Len(c)
      cTemp.SetByte(x - 1, Asc(SubStr(c, x)))
   EndFor
   RETURN cTemp


Gary

Some dBASE Stuff at
http://www.AppTools.com/dbase