//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      GetShortPathName.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GetShortPathName
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, June, 4th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFNDEF GET_GetShortPathName
External_Function WinAPI_GetShortPathName "GetShortPathNameA" Kernel32.Dll Pointer lpszLongPath Pointer lpszShortPath Dword cchBuffer Returns Dword
   
Define MAX_PATH For 260   
   
Function GetShortPathName Desktop String sLongPath Returns String
    String sShortPath
    Integer iRetval

    ZeroString MAX_PATH To sShortPath

    Move (WinAPI_GetShortPathName (AddressOf (sLongPath), AddressOf (sShortPath), MAX_PATH)) To iRetval

    Function_Return (Cstring (sShortPath))
End_Function // GetShortPathName
#ENDIF