Archive for 5月 27th, 2012

  1. Hello, COM(UWSC) World!

    Posted on 5月 27th, 2012 by cx20

    COM(UWSC)

    COM（Component Object Model）はマイクロソフトの提唱するプログラム部品の仕様である。
    COM を用いて開発された部品であれば言語を問わず利用することができる。
    以下は UWSC による COM クライアントの例となっている。

    ソースコード

    hello.uwsc
    raw download
    Option Explicit
 
Main()
 
Procedure Main()
    Dim folder
    Dim shell
    shell = CreateOleObj("Shell.Application")
    folder = shell.BrowseForFolder( 0, "Hello, COM(UWSC) World!", 0, 36 )
Fend

    実行方法

    C:¥> uwsc /K hello.uws

    実行結果

    +----------------------------------------+
|Browse For Folder                    [X]|
+----------------------------------------+
| Hello, COM(UWSC) Wolrd!                |
|                                        |
| +------------------------------------+ |
| |[Windows]                           | |
| | +[addins]                          | |
| | +[AppCompat]                       | |
| | +[AppPatch]                        | |
| | +[assembly]                        | |
| |     :                              | |
| |     :                              | |
| |     :                              | |
| +------------------------------------+ |
| [Make New Folder]    [  OK  ] [Cancel] |
+----------------------------------------+