mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-29 19:42:43 +02:00
17 lines
265 B
ObjectPascal
17 lines
265 B
ObjectPascal
program fileupload;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
fpWeb,fpCGI, webmodule;
|
|
|
|
{$IFDEF WINDOWS}{$R fileupload.rc}{$ENDIF}
|
|
|
|
begin
|
|
Application.Title:='fileupload';
|
|
Application.Initialize;
|
|
Application.CreateForm(TFPWebModule1, FPWebModule1);
|
|
Application.Run;
|
|
end.
|
|
|