GetGUID (by Guenter)

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] GetGUID ()
//
// Parameters:
//	None
// Return Value:
// 	string: // 	None
//
// For instance:
// Indicate an example.
//
PROCEDURE GetGUID() 

GUID is TO structure
	Data1 is int on 4 bytes
	Data2 is int on 2 bytes
	Data3 is int on 2 bytes
	Data4 is fixed array of 8 unsigned int on 1 byte
END 

LOCAL
	i is int on 4 bytes
	udtGuid is GUID
	s is string
	g is string 
	
i=CallDLL32("OLE32.DLL","CoCreateGuid",&udtGuid) 

IF i = 0 THEN
	s = NumToString(udtGuidata1, "08X")+NumToString(udtGuidata2, "04X")+...
	NumToString(udtGuidata3, "04X")
	IF udtGuidata4[1] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuidata4[1],"X")
	IF udtGuidata4[2] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuidata4[2],"X")
	IF udtGuidata4[3] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuidata4[3],"X")
	IF udtGuidata4[4] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuidata4[4],"X")
	IF udtGuidata4[5] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuidata4[5],"X")
	IF udtGuidata4[6] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuidata4[6],"X")
	IF udtGuidata4[7] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuidata4[7],"X")
	IF udtGuidata4[8] < 0x10 THEN
		s=s+"0"
	END
	s=s+NumToString(udtGuidata4[8],"X")
END 

RESULT s