Desde Clipper no se puede, pero si estas trabajando en FiveWin 16 o 32 bits, este es un ejemplo:
#INCLUDE "FIVEWIN.CH"
// Managing Register services from FiveWin
#define HKEY_CLASSES_ROOT 2147483648
#define HKEY_CURRENT_USER 2147483649
#define HKEY_LOCAL_MACHINE 2147483650
#define HKEY_USERS 2147483651
#define HKEY_PERFORMANCE_DATA 2147483652
#define HKEY_CURRENT_CONFIG 2147483653
#define HKEY_DYN_DATA 2147483654
FUNCTION RegEd(cExt)
LOCAL nHandler := 0
LOCAL cVar1, cVar2
RegOpenkey(HKEY_CLASSES_ROOT,"",@nHandler)
RegQueryValue(nHandler,cExt,@cVar1)
RegCloseKey(nHandler)
RegOpenKey(HKEY_CLASSES_ROOT,cVar1,@nHandler)
RegQueryValue(nHandler,"DefaultIcon",@cVar2)
RegCloseKey(nHandler)
cVar2 := SubStr(cVar2,1,LEN(cVar2)-3)
RETURN (cVar2)
