** ****************************************************************************************** *
**EndUser4gl : Exemple d'un langage de 4 ème génération
** *******************************************************************************************
** Exemple  : GetWinDir  ( L_Name_Var )
 
 
#include   "c:\EndUser4gl\4gl\hlp\IncludeSysEU\includesyseu.h"        

char : winPath:256 ;

 begin      
          GetWinDir(winPath);
  display" GetWinDir(winPath) ", winPath;
             MsgBox  : TITLE "          Windows Directory           "  
                   Message :      WinPath column 70
                      button  :   MB_OK
                   icon    :      MB_ICONEXCLAMATION ; 
               WaitCloseUser();  ** Close Dialog by User   
  end_begin  ;