AZ-Prolog ユーザーズマニュアル

#### サンプルコード

### 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)

    )).
プログラム

▲