//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// 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:
//      PathStripPath.Pkg
//
// Purpose:
//      Defines interface to WinAPI function PathStripPath
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, July, 22th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
External_Function WinAPI_PathStripPath "PathStripPathA" SHLWAPI.DLL Pointer lpszPath Returns VOID_TYPE

Function PathStripPath Desktop String sPath Returns String
   Integer iVoid

   Move (WinAPI_PathStripPath (AddressOf (sPath))) To iVoid

   Function_Return (Trim (CString (sPath)))
End_Function // PathStripPath