Michael Drechsel
GetGUID (by Guenter) May 24, 2009 07:25PM |
// 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
Ruben Sanchez Peña
Re: GetGUID (by Guenter) September 27, 2009 10:18PM |
Jimbo
Re: GetGUID (by Guenter) December 10, 2009 06:19PM |
Moderator |