このページではJavaScriptを使用しています。

サンプルコード

Windows API Call述語の実行例

説明
アプリケーションの初期化時にinitialize_timeを一度実行します。
それ以降はlocal_timeで日付、時刻を取得できる様になります。
使用例
initialize_time :- 

winLoadLibrary('KERNEL32',KERN),
winGetProcAddress(KERN,'GetLocalTime',Addr),
winAllocApiArg(16,Buffer),
assert((

local_time(Year,Month,DayOfWeek,Day,Hour,Minute,Second,Millisecond) :-

winCallApi(Addr,[Buffer],0,_,_,_,_),
winLoadApiArgWORD(Buffer,0,Year),
winLoadApiArgWORD(Buffer,1,Month),
winLoadApiArgWORD(Buffer,2,DayOfWeek),
winLoadApiArgWORD(Buffer,3,Day),
winLoadApiArgWORD(Buffer,4,Hour),
winLoadApiArgWORD(Buffer,5,Minute),
winLoadApiArgWORD(Buffer,6,Second),
winLoadApiArgWORD(Buffer,7,Millisecond)

)).  
プログラム