// 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(udtGuid
ata1, "08X")+NumToString(udtGuid
ata2, "04X")+...
NumToString(udtGuid
ata3, "04X")
IF udtGuid
ata4[1] < 0x10 THEN
s=s+"0"
END
s=s+NumToString(udtGuid
ata4[1],"X")
IF udtGuid
ata4[2] < 0x10 THEN
s=s+"0"
END
s=s+NumToString(udtGuid
ata4[2],"X")
IF udtGuid
ata4[3] < 0x10 THEN
s=s+"0"
END
s=s+NumToString(udtGuid
ata4[3],"X")
IF udtGuid
ata4[4] < 0x10 THEN
s=s+"0"
END
s=s+NumToString(udtGuid
ata4[4],"X")
IF udtGuid
ata4[5] < 0x10 THEN
s=s+"0"
END
s=s+NumToString(udtGuid
ata4[5],"X")
IF udtGuid
ata4[6] < 0x10 THEN
s=s+"0"
END
s=s+NumToString(udtGuid
ata4[6],"X")
IF udtGuid
ata4[7] < 0x10 THEN
s=s+"0"
END
s=s+NumToString(udtGuid
ata4[7],"X")
IF udtGuid
ata4[8] < 0x10 THEN
s=s+"0"
END
s=s+NumToString(udtGuid
ata4[8],"X")
END
RESULT s
Edited 1 time(s). Last edit at 05/25/2009 04:15AM by Jimbo.