// 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
Edited 1 time(s). Last edit at 05/25/2009 04:15AM by Jimbo.