Thanks for the reply.
duplicate the project. In the copied project: delete the * .lpi file, delete the resource file. Open your project from Lazarus via * .lpr file.
Perhaps you are lucky and your project will start. Do not forget to re-register the required paths.
What I wrote is not the best solution, but it can be a working way to avoid problems.
Although this was carried out, the place where the error occurred changed, but there was no change in the content of RunError (204).
#0 VerifierDisableFaultInjectionExclusionRange at :0
#1 ?? at :0
#2 ?? at :0
#3 ?? at :0
#4 ?? at :0
I once had similar problem (I don't remember exact error message) because there were no printers installed.
Do you use dll in your program, maybe there is access issue?
Certainly calling and using 'AddClipboardFormatListener' and 'RemoveClipboardFormatListener' API of 'user32.dll'.
However, I do not think that it is not installed like the printer.
These codes refer to the forum post below.
https://forum.lazarus.freepascal.org/index.php/topic,15488.msg225927.html#msg225927Note that the referenced code makes dynamic API calls, but the behavior was the same even if the contents were changed to static API calls.
function AddClipboardFormatListener(Wnd: HWND): BOOL; stdcall; external 'user32.dll' name 'AddClipboardFormatListener';
function RemoveClipboardFormatListener(Wnd: HWND): BOOL; stdcall; external 'user32.dll' name 'RemoveClipboardFormatListener';
I tried copying this unit file to an empty project and writing a program with minimal code, and I verified that no errors occurred.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ClipboardListener,
StdCtrls, Clipbrd;
type
{ TForm1 }
TForm1 = class(TForm)
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
CL: TClipboardListener;
procedure ClipboardChanged(Sender: TObject);
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
CL:=TClipboardListener.Create;
CL.OnClipboardChange:=@ClipboardChanged;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
CL.Free;
end;
procedure TForm1.ClipboardChanged(Sender: TObject);
begin
ListBox1.Items.Add(Clipboard.AsText);
end;
end.
Have tried to compile using external debug file? I asked this earlier and didn't see any response tobit
The exe file can get very large due to the attached debug file.
U could have some resource size issue and I see u are using a script manager
I'm not using an external debug file.
I'm also trying both the debug function of Lazarus when enabled and when not.