Subversion Repositories userdetect2

Rev

Rev 71 | Rev 82 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 71 Rev 81
Line 152... Line 152...
152 
 
 152 
 
153 
function UD2_STATUS_FormatStatusCode(grStatus: UD2_STATUS): string;
 153 
function UD2_STATUS_FormatStatusCode(grStatus: UD2_STATUS): string;
154 
begin
 154 
begin
155 
  // 00 0000 {44332211-1234-ABCD-EFEF-001122334455} 00000000 00000000
 155 
  // 00 0000 {44332211-1234-ABCD-EFEF-001122334455} 00000000 00000000
156 
  result := Format('%.2x %.4x %s %.8x %.8x', [
 156 
  result := Format('%.2x %.4x %s %.8x %.8x', [
157 
                grStatus.bReserved,
 157 
    grStatus.bReserved,
158 
                grStatus.wCategory,
 158 
                grStatus.wCategory,
159 
                GUIDTostring(grStatus.grAuthority),
 159 
                GUIDTostring(grStatus.grAuthority),
160 
                grStatus.dwMessage,
 160 
                grStatus.dwMessage,
161 
                grStatus.dwExtraInfo]);
 161 
                grStatus.dwExtraInfo]);
162 
end;
 162 
end;