Calls in Vista

[TimStone]

In Windows XP I could call the computer address book with the command:

FUNCTION emswab( )
// Execute the program
SHELLEXECUTE( nil, "open", regEd("wab") )
RETURN nil

/* FUNCTION
FUNCTION
Description: Check registry for address book files
Date updated: 9/28/2007
Return Value: cVar2
*/
FUNCTION RegEd(cExt)

// Declare LOCAL variables
LOCAL nHandler := 0, cVar1, cVar2

// Find the registry values for an address book
cExt:=if(left(cExt,1)!=".","."+cExt,cExt)
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)

This is no longer valid with Vista. Does anyone know what changes are necessary in Vista to call up the computer's address book ?

Thanks.