ronSpace

これで色の設定がとれますね。

(require "foreign") (require "wip/winapi") (c:define-dll-entry winapi:DWORD GetPrivateProfileString (winapi:LPCSTR winapi:LPCSTR winapi:LPCSTR winapi:LPSTR winapi:DWORD winapi:LPCSTR) "kernel32" "GetPrivateProfileStringA") (defun read-ini-file (ini-f sect key default) (let ((csize 256)) (let ((ini-f* (si:make-string-chunk ini-f)) (sect* (si:make-string-chunk sect)) (key* (si:make-string-chunk key)) (default* (si:make-string-chunk default)) (ret-v* (si:make-chunk nil csize))) (let ((ret-api-v (GetPrivateProfileString sect* key* default* ret-v* csize ini-f*))) (si:unpack-string ret-v* 0 ret-api-v))))) (defun