main.dpr
program app; uses Forms, main in 'main.pas' {Form1}; begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.
main.pas
unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) end; var Form1: TForm1; implementation {$R *.dfm} end.
main.dfm
object Form1: TForm1 Left = 0 Top = 0 Width = 300 Height = 300 Caption = 'main' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 end
編譯、執行
$ export WINEPREFIX=/home/user/.wine_x86 $ box86 wine dcc32 main.dpr $ box86 wine main.exe
完成