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 呼出しの例となっている。

ソースコード

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

Tags:

Categories: Jacl, Tcl/Java, Win32 API

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

WP-SpamFree by Pole Position Marketing