程式語言 - Free Pascal - Win32 API - Hello, world!



main.pp

{$APPTYPE GUI}
{$MODE DELPHI}

program app;

uses
    Windows;

begin
    MessageBox(0, 'Hello, world!', 'main', MB_OK);
end.

編譯、執行

$ export WINEPREFIX=/home/user/.wine_x86

$ box86 wine fpc main.pp
$ box86 wine main.exe

完成