Code: Alles auswählen
program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms,
SysUtils
{ you can add units after this }, main, robots, splash, meta, reg, regquest,
info, welcome, login, loginerror, command, h4squest;
{$IFDEF WINDOWS}{$R manifest.rc}{$ENDIF}
begin
Application.Initialize;
Form3 :=TForm3.Create(Application);
with TForm3.Create(nil) do
try
Form3.show;
Form3.Update;
Application.Initialize;
Application.Title:= 'Project1 - BETA Release';
if FileExists(ExtractFilePath(ParamStr(0))+'us44.tyif')then begin
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);
end
else begin
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
end
Finally
free;
Form3.visible :=false;
end;
Application.CreateForm(TForm12, Form12);
Application.Run;
end.
Bis jetzt hat alles gut funktioniert. Doch wenn ich nun auf den START Button klicke, setzt Lazarus den Cursor auf
Code: Alles auswählen
end.
Project1.lpr(48,1) Error: Can't create object file: Project1.exe
Erbitte Hilfe.
Ich verzweifle langsam, da ich keine Lust habe, womöglich alles nochmal machen zu müssen.
Danke schonmal im Voraus.
MfG
House