lsm.~dpr

this is sample for traders

program LSM;

uses
  FastMM4,
  Forms,
  SysUtils,
  Dialogs,
  main in 'general\main.pas' {mainForm},
  DataMod1 in 'share\DataMod1.pas' {DM1: TDataModule},
  lsGudang in 'inventory\lsGudang.pas' {lsGudangForm},
  FuncLib in 'udf\Funclib.pas',
  psl_1_STOP in 'udf\psl_1_STOP.pas',
  NumberToWords in 'udf\NumberToWords.pas',
  Login in 'general\Login.pas' {LoginForm},
  edGudang in 'inventory\edGudang.pas' {edGudangForm},
  LsItem in 'inventory\LsItem.pas' {LsItemForm},
  edItem in 'inventory\edItem.pas' {edItemForm},
  itemSellprice in 'inventory\itemSellprice.pas' {item_priceform},
  RPreview in 'share\RPreview.pas' {RPreviewForm},
  itemSaldo in 'inventory\itemSaldo.pas' {ItemSaldoForm},
  lsLgn in 'general\lsLgn.pas' {lsLgnForm},
  edLgn in 'general\edLgn.pas' {edLgnForm},
  edLgnAddr in 'general\edLgnAddr.pas' {LgnAddrForm},
  edLgnCtc in 'general\edLgnCtc.pas' {edLgnCtcForm},
  edLgnPhone in 'general\edLgnPhone.pas' {edLgnPhoneForm},
  lsPegawai in 'general\lsPegawai.pas' {lsPegawaiForm},
  edPegawai in 'general\edPegawai.pas' {edPegawaiForm},
  Sales in 'sales\Sales.pas' {SalesForm},
  FindLgn in 'sales\FindLgn.pas' {FindLgnForm},
  FindItem in 'share\FindItem.pas' {FindItemForm},
  Purc in 'purchacing\Purc.pas' {PurcForm},
  FindSpl in 'purchacing\FindSpl.pas' {FindSplForm},
  SelectGudang in 'share\SelectGudang.pas' {SelectGudangForm},
  lsPurc in 'purchacing\lsPurc.pas' {lsPurcForm},
  Transfer in 'purchacing\Transfer.pas' {TransferForm},
  lsSales in 'sales\lsSales.pas' {lsSalesForm},
  PiutangCard in 'sales\PiutangCard.pas' {PiutangCardForm};

{$E exe}

{$R *.res}

begin
  if PSL1_IS_1ST_INSTANCE(True) then begin
    if not FileExists('sprofile') then
    begin
      MessageDlg('File Koneksi Server Tidak Ada Atau... Terhapus !'+chr(13)+
      'Hubungi Administrator Vendor Anda & Baca Buku Petunjuk Aplikasi !',mtError,[mbOk],0);
      Application.Terminate;
    end else
    begin
      GetMacInfo;
      AppName := 'LW-LSM@Carin ';
      Application.Title := 'LW-LSM@Carin-1.0.0';
      Application.HelpFile := '';
      if TLoginForm.Execute then
      begin
      Application.Initialize;
      Application.CreateForm(TMainForm, MainForm);
  Application.OnException:=MainForm.ErrHandle;
      Application.Run;
      end;
    end;
  end else begin
  PSL1_ACTIVATE_OR_STOP_1ST_INSTANCE;
  end;
end.