Forum > FV/Textmode IDE

How to remove consoleApp in my aplication?

(1/1)

d2010:
Help me, I need remove console-Win, direct from  "Lazarus"

--- Code: ---program coimagevi;
{$mode objfpc}{$H+}

uses
  Interfaces,
  h_types in 'C:\Vlaxcompil\Srcincpa\h_types.pas',
  hc_types in 'C:\Vlaxcompil\Srcincpa\hc_types.pas',
  h_aduiport in 'C:\Vlaxcompil\Srcincpa\h_aduiport.pas',
  hc_exprecon in 'C:\Vlaxcompil\Srcincpa\hc_exprecon.pas',
  windows,
  Forms, MainForm;

begin
  Application.Title:='jpegexample';
  Application.Initialize;
  Application.CreateForm(TJPEGExampleForm, JPEGExampleForm);
  JPEGExampleForm.PostCreateFrom();
  Application.Run;
end.

--- End code ---

Thaddy:

--- Quote from: d2010 on March 09, 2026, 08:26:15 pm ---Help me, I need remove console-Win, direct from  "Lazarus"

--- Code: ---program coimagevi;
{$mode objfpc}{$H+}

uses
  Interfaces,
  h_types in 'C:\Vlaxcompil\Srcincpa\h_types.pas',
  hc_types in 'C:\Vlaxcompil\Srcincpa\hc_types.pas',
  h_aduiport in 'C:\Vlaxcompil\Srcincpa\h_aduiport.pas',
  hc_exprecon in 'C:\Vlaxcompil\Srcincpa\hc_exprecon.pas',
  windows,
  Forms, MainForm;

begin
  Application.Title:='jpegexample';
  Application.Initialize;
  Application.CreateForm(TJPEGExampleForm, JPEGExampleForm);
  JPEGExampleForm.PostCreateFrom();
  Application.Run;
end.

--- End code ---

--- End quote ---

{$APPTYPE GUI}
or check in options win32 gui application (also for 64 bit)

d2010:
Thank you. your solution if good. 8)

Fred vS:

--- Quote from: d2010 on March 09, 2026, 08:26:15 pm ---Help me, I need remove console-Win, direct from  "Lazarus"

--- End quote ---

Hello.

In your program source:


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---program coimagevi;{$mode objfpc}{$H+} {$ifdef mswindows} {$apptype gui} {$endif} // add this uses...

Navigation

[0] Message Index