BorlandTalk.com

Menaka · Guest

Hi,

I get the below error while migrating Delphi 5 to Delphi 2006.
Fatal: F1026 File not found: 'NMConst.dcu'

--Start of code---
unit uDesktop;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, Buttons, Psock, RK86TrayIcon, ExtCtrls,
uResourceStrings; --->Error highlighting in Psock not found

type
TfrmDesktop = class(TForm)
BitBtn1: TBitBtn;
memInfo: TMemo;
RK86TrayIcon1: TRK86TrayIcon;
BitBtn2: TBitBtn;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
bHideIt,
bGoingDown: boolean;
public
{ Public declarations }
end;

var
frmDesktop: TfrmDesktop;

implementation

{$R *.DFM}

uses uMain, Registry;

procedure TfrmDesktop.FormCreate(Sender: TObject);
var
i: integer;
begin
bHideIt := false;
bGoingDown := false;
for i := 1 to ParamCount do
begin
if UpperCase(ParamStr(i)) = '/HIDE' then
begin
bHideIt := true;
Left := 0 - Width;
end;
end;
MainThread := TMainThread.Create(false);
memInfo.Lines.Add(format(RS_DATA_STARTED, [RS_APP_NAME]));
Timer1.Enabled := true;
end;

procedure TfrmDesktop.FormClose(Sender: TObject; var Action:
TCloseAction);
var
Reg: TRegistry;
begin
if not bHideIt then
begin
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_CURRENT_USER;
OpenKey('\SOFTWARE\' + RS_COMPANY_NAME + '\' + RS_APP_NAME, true);
WriteInteger('SrvFormTop', frmDesktop.Top);
WriteInteger('SrvFormLeft', frmDesktop.Left);
CloseKey;
end;
finally
Reg.Free;
end;
end;
end;

procedure TfrmDesktop.FormActivate(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
try
with Reg do
begin
RootKey := HKEY_CURRENT_USER;
if OpenKey('SOFTWARE\' + RS_COMPANY_NAME + '\' + RS_APP_NAME,
false) then
begin
if not bHideIt then
begin
if ValueExists('SrvFormTop') then
frmDesktop.Top := ReadInteger('SrvFormTop');
if ValueExists('SrvFormLeft') then
frmDesktop.Left := ReadInteger('SrvFormLeft');
end;
CloseKey;
end;
end;
finally
Reg.Free;
end;
except
end;
end;

procedure TfrmDesktop.BitBtn2Click(Sender: TObject);
begin
RK86TrayIcon1.Active := true;
end;

procedure TfrmDesktop.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TfrmDesktop.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
if bHideIt then
Visible := false
else
BitBtn2Click(self);
end;

procedure TfrmDesktop.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
//finish it
if not bGoingDown then
begin
memInfo.Lines.Add(format(RS_DATA_CLOSING, [RS_APP_NAME]));
bGoingDown := true;
MainThread.Terminate;
end;
if not MainThread.Done then
begin
Sleep(100);
Application.ProcessMessages;
CanClose := false;
PostMessage(self.Handle, WM_CLOSE, 0, 0);
end
else
begin
MainThread.Free;
memInfo.Lines.Add(format(RS_DATA_CLOSED, [RS_APP_NAME]));
CanClose := true;
end;
//end:finish it
end;

end.

--End code----

Fatal: F1026 File not found: 'NMConst.dcu'

Please do help me on this

--- posted by geoForum on http://delphi.newswhat.com

Remy Lebeau (TeamB) · Guest

"Menaka" <lifetoday (AT) rediffmail (DOT) com> wrote in message
news:44acacf5$1 (AT) newsgroups (DOT) borland.com...

Remy Lebeau (TeamB) · Guest

"Menaka" <lifetoday (AT) rediffmail (DOT) com> wrote in message
news:44accd3d$1 (AT) newsgroups (DOT) borland.com...