IGxICMManager.GetProfiles

Копировать пример

Sub UserProc;
Var
    ICMMan: IGxICMManager;
    DeviceProf: IGxDeviceICMProfiles;
    Printers: IGxPrinters;
    Printer: IGxPrinter;
    i, j: Integer;
Begin
    ICMMan := New GxICMManager.Create;
    Printers := New GxPrinters.Create;
    For i := 0 To Printers.Count - 1 Do
        Printer := Printers.Item(i);
        Debug.WriteLine("Принтер: " + Printer.Name);
        DeviceProf := ICMMan.GetProfiles(Printer);
        Debug.WriteLine("Сопоставленные цветовые профили: " + DeviceProf.Count.ToString);
        Debug.Indent;
        For j := 0 To DeviceProf.Count - 1 Do
                Debug.WriteLine(DeviceProf.Item(j));
        End For;
        Debug.Unindent;
    End For;
End Sub UserProc;