Archive for 1月 13th, 2013

  1. Hello, Win32 API(Tcl/Java) World!

    Posted on 1月 13th, 2013 by cx20

    Win32 API(Tcl/Java)

    Win32 API は、Windows の機能にアクセスする為の API（Application Programming Interface）である。
    以下は Tcl/Java にて SWT の非公開 API を使用した Win32 API 呼出しの例となっている。

    ソースコード

    Hello.tcl
    raw download
    package require java
 
java::import org.eclipse.swt.internal.win32.OS
java::import org.eclipse.swt.internal.win32.TCHAR
 
set lpText [java::new {TCHAR int java.lang.String boolean} 0 "Hello, Win32 API World!" true]
set lpCaption [java::new {TCHAR int java.lang.String boolean} 0 "Hello, World" true]
java::call OS MessageBox 0 $lpText $lpCaption [java::field OS MB_OK]

    実行方法

    C:¥> SET CLASSPATH=org.eclipse.swt.win32.win32.x86_3.6.1.v3655c.jar;%CLASSPATH%
C:¥> jaclsh Hello.tcl

    実行結果

    ---------------------------
Hello, World!
---------------------------
Hello, Win32 API World!
---------------------------
OK   
---------------------------