//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// 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:
//      GetLongPathName.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GetLongPathName
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, June, 4th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

#IFNDEF GET_RdsGetLongPathName
External_Function WinAPI_RdsGetLongPathName "GetLongPathNameA" Kernel32.Dll Pointer lpszShortPath Pointer lpszLongPath DWord cchBuffer Returns Integer

Define MAX_PATH For 260

//  // 2003-07-29 ------------------------------------ Start Nils G. Svedmyr
#IF PKG_Version<|CI9
  Function RdsGetLongPathName For Desktop String sShortPath Returns String
#ELSE
  Function RdsGetLongPathName Desktop String sShortPath Returns String
#ENDIF
  // 2003-07-29 ------------------------------------ Stop Nils G. Svedmyr
    String sLongPath
    Integer iRetval

    ZeroString MAX_PATH To sLongPath

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

    Function_Return (Cstring (sLongPath))
End_Function // GetLongPathName
#ENDIF