Pemrograman Lazarus di Windows

Assalamu’alaikum Warahmatullahi Wabarakatuh. Alhamdulillah, di bulan Ramadhan kali ini ada kesempatan untuk menulis lagi. Untuk kesempatan kali ini, saya akan menulis tentang pemrograman menggunakan lazarus pada windows. Lazarus itu sendiri pada dasarnya menggunakan bahasa pemrograman pascal dan bisa dibilang adalah Borland Delphi versi open source.

Pertama, kita harus download dan install dulu paket lazarus untuk Windows. Installernya bisa di-download di sini. Setelah proses instalasi selesai, jangan lupa untuk mengatur PATH Environment Variables agar compiler fpc dan tools yang lainnya dapat dijalankan dari semua direktori.

Sebagai pembuka, kita akan membuat contoh program yang berjalan pada console/terminal. Berikut adalah kode sumbernya:

program
  cetak;

var
  nama: string;

begin
  write('Masukkan nama: ');
  readln(nama);
  writeln('Assalamualaikum. Apa kabar ', nama, '?');
end.

Simpan kode di atas dengan nama cetak.pas. Lalu jalankan CMD atau powershell pada direktori dimana kode tersebut disimpan. Kemudian gunakan perintah fpc untuk melakukan kompilasi seperti ini:

D:\> fpc cetak.pas
Free Pascal Compiler version 3.2.2 [2026/02/20] for i386
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling cetak.pas
Linking cetak.exe
11 lines compiled, 0.1 sec, 29376 bytes code, 1332 bytes data

Jalankan cetak.exe yang merupakan hasil kompilasi dan tampilannya akan seperti ini:

D:\> .\cetak
Masukkan nama: Riri
Assalamualaikum. Apa kabar Riri?

Selanjutnya kita akan membuat contoh program sederhana berbasis GUI yang menampilkan MessageBox menggunakan kode sumber berikut ini:

program
  pesan;

{$apptype gui}

uses
  Windows;

begin
  MessageBox(0, 'Latihan lazarus di Windows', 'Pesan', MB_OK + MB_ICONINFORMATION);
  ExitProcess(0);
end.

Simpan kode di atas dengan nama pesan.pas lalu jalankan CMD atau powershell pada direktori dimana kode tersebut disimpan dan lakukan kompilasi menggunakan fpc:

D:\> fpc pesan.pas
Free Pascal Compiler version 3.2.2 [2026/02/20] for i386
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling pesan.pas
Linking pesan.exe
57 lines compiled, 0.1 sec, 28176 bytes code, 1316 bytes data

Perintah di atas akan menghasilkan aplikasi pesan.exe. Jalankan aplikasi tersebut, maka akan muncul sebuah kotak pesan seperti ini:

Sebagai contoh terakhir, kita akan membuat sebuah dialogbox menggunakan lazarus. Salin dan simpan kode berikut ini dengan nama rsrc.rc:

#define IDD_ABOUT   101
#define IDC_STATIC   -1
#define IDOK          1
#define IDCANCEL      2

IDD_ABOUT DIALOGEX DISCARDABLE  0, 0, 239, 66
STYLE 0x80 | 0x0800 | 0x80000000 | 0x00C00000 | 0x00080000
CAPTION "Riri Dialog Box"
FONT 8, "MS Sans Serif"
BEGIN
    DEFPUSHBUTTON   "&OK",IDOK,174,18,50,14
    PUSHBUTTON      "&Cancel",IDCANCEL,174,35,50,14
    GROUPBOX        "Tentang program ini...",IDC_STATIC,7,7,225,52
    CTEXT           "Contoh menggunakan dialog box pada lazarus windows\r\n\r\nDibuat oleh Riri",IDC_STATIC,16,18,144,33
END

Jalankan CMD atau powershell pada direktori dimana file rsrc.rc tersebut berada, lalu gunakan perintah berikut ini untuk kompilasi file resource tersebut:

D:\> windres rsrc.rc rsrc.res

Masih pada direktori yang sama, salin dan simpan kode berikut ini dengan nama pesan.pas:

program
  pesan;

{$mode objfpc}
{$apptype gui}
{$H+}
{$R 'rsrc.res'}

uses
  Windows;

var
  pinst: HINST;

function dproc(pwnd: HWND; msg: UINT; wpar: WPARAM; lpar: LPARAM): PtrInt; stdcall;
begin
  Result := 0;

  case msg of
  WM_INITDIALOG:
    Result := 1;

  WM_COMMAND:
    begin
      if (wpar = 1) then
        MessageBox(pwnd, 'Lazarus mudah bukan?', 'Apa iya?', MB_OK or MB_ICONQUESTION)
      else if (wpar = 2) then
        EndDialog(pwnd, wpar);
      Result := 1;
    end;

  WM_CLOSE:
    begin
      EndDialog(pwnd, 0);
      Result := 1;
    end;
  end;
end;

begin
  pinst := GetModuleHandle(nil);
  DialogBox(pinst, MakeIntResource(101), 0, @dproc);
  ExitProcess(0);
end.

Selanjutnya lakukan kompilasi menggunakan fpc dengan perintah seperti ini:

D:\> fpc pesan.pas
Free Pascal Compiler version 3.2.2 [2026/02/20] for i386
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling pesan.pas
Compiling resource pesan.or
Linking pesan.exe
44 lines compiled, 0.1 sec, 28432 bytes code, 1316 bytes data

Terakhir, coba jalankan executable yang dihasilkan dari proses kompilasi di atas, yaitu pesan.exe maka akan muncul sebuah dialog box seperti ini:

Bisa terlihat bahwa pemrograman menggunakan lazarus ini cukup menarik dan dapat dikembangkan lebih jauh. Sekian tulisan singkat kali ini, semoga bisa menambah khasanah pengetahuan kita. Wassalam.