lazarus/examples/Techniques/multithread_critical/criticalsectionexample1.lpr

19 lines
310 B
ObjectPascal

program CriticalSectionExample1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}
cmem, cthreads,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ add your units here }, CriticalSectionUnit1;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.