如題 找了找只有找到大陸有本書籍有介紹
麻煩請各位幫幫忙

RGB <-> CMYK  互轉公式：

參考文章網址：http://www.blueidea.com/tech/graph/2004/1578.asp


RGB可以透過下列方式來取得
參考文章網址：http://www.cnblogs.com/del/archive/2007/11/22/968688.html

function RGB2TColor(const R, G, B: Byte): Integer;
begin
// convert hexa-decimal values to RGB
Result := R G shl 8 B shl 16;
end;


procedure TColor2RGB(const Color: TColor; var R, G, B: Byte);
begin
R := Color and $FF;
G := (Color shr 8) and $FF;
B := (Color shr 16) and $FF;
end;