mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 17:25:39 +02:00
824 lines
24 KiB
ObjectPascal
824 lines
24 KiB
ObjectPascal
unit U_LibCommon;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Forms, StdCtrls, Classes, ComCtrls, Controls, DrawEngine, PCTypesUtils, SysUtils, Dialogs,
|
||
U_DimLineDialog, U_LNG, U_BlockParams, U_CreateRaiseQuery, U_ChooseListForTrunk, U_BaseSettings, ShellApi, ActnList, ActiveX, ShlObj, Registry, Contnrs, DrawObjects, PCDrawBox, PCDrawing, PowerCad, Graphics, U_Cad, U_ESCadClasess, U_SCSLists, U_SCSComponent,
|
||
{$IF Defined(PROCAT_SCS)}
|
||
U_ProtRutinP,
|
||
{$ELSE}
|
||
U_ProtRutin,
|
||
{$IFEND}
|
||
U_RaiseHeight, U_InterfacesAutoTrace, U_LoadColor, U_OrthoLineParams, U_SizePos, U_NewLayer, U_GridStep, U_Scale, U_IncOn, U_ComponDesignWizard, U_FloatPanel,
|
||
U_PEGetBox, U_PEDialogEqChoice, U_PEAutotraceDialog, U_BlockEditor, U_ProtectionBase,
|
||
U_ChooseSCSObjectsProp, U_CadNormsList, U_CadNormsProp, Form3d_Save, U_USB, U_ProtectionCommon, U_SCSEngineTest, U_Common, U_BaseCommon, U_Progress, U_Splash, Math, U_Navigator, Messages, LibJpeg, ClipBrd, ExtCtrls,
|
||
{$IF Defined(TRIAL_SCS) or Defined(PROCAT_SCS) or Defined(SCS_SPA) or (Defined(ES_GRAPH_SC) AND Defined(TRIAL_SCS))}
|
||
U_MessEnd,
|
||
{$IFEND}
|
||
|
||
U_HouseClasses;
|
||
|
||
|
||
//type
|
||
|
||
{$IF Defined (TRIAL_SCS)}
|
||
function CommonInit({var ANBConst: TNBConst; } aProgramRegisterPro: integer; var aStream: TMemoryStream; ParentWin: THandle = 0): boolean; stdcall;
|
||
{$ELSE}
|
||
function InitCommon({var ANBConst: TNBConst; } aProgramRegisterPro: integer; var aStream: TMemoryStream; ParentWin: THandle = 0): boolean; stdcall;
|
||
{$IFEND}
|
||
|
||
//
|
||
//Çàìåòêè ïî ïåðåâîäó íà äð ÿçûêè:
|
||
//Ñòðîêè â ìîäóëÿõ U_Protection, U_ProtectionCommon, U_ProtectionBase ïåðåâîäÿòñÿ îòäåëüíî
|
||
|
||
const
|
||
ErrorProt = '!àíåøðåâàç òåäóá ûììàðãîðï àòîáàÐ .èèñðåâ ëàèðò åûííàä åûíòêåðîêåÍ';
|
||
|
||
var
|
||
InitOk: Boolean;
|
||
Source: TStream;
|
||
si: TSystemInfo;
|
||
ModuleName: string;
|
||
FoundWnd: THandle;
|
||
HMutexSCS: THandle;
|
||
TempList: TStringList;
|
||
TempList1: TStringList;
|
||
ts: TTimeStamp;
|
||
Reg: TRegistry;
|
||
TempPath: string;
|
||
s, TempFolder, tempstr: string;
|
||
buff: PChar;
|
||
vHandle : Cardinal;
|
||
vMaskProcess, vMaskSystem : cardinal;
|
||
i: integer;
|
||
Action: TAction;
|
||
CurrServerName, CurrLocalPath: string;
|
||
|
||
GCanRemotePath: Boolean; //09.11.2007
|
||
isUAC: integer;
|
||
|
||
implementation
|
||
|
||
uses USCS_Main, Menus, U_main, U_MasterNewList, U_MasterNewListLite, U_AutoTraceType, U_Layers, FPlan, U_SCSObjectsProp,
|
||
cxMemo, U_ChooseComponTypes, U_EndPoints, U_TrunkSCS, U_Constants, U_ChooseDesignBoxParams,
|
||
U_AutoTraceConnectOrder, U_Protection, cxCheckBox, U_PrintLists, U_ImportDXF, U_DMCommon;
|
||
|
||
procedure ExtractFromExe(Instance: THandle; ResID: Integer; FileName: string);
|
||
var
|
||
ResStream: TResourceStream; // Îáúåêò - ïîòîê ðåñóðñîâ
|
||
FileStream: TFileStream;
|
||
begin
|
||
try
|
||
try
|
||
ResStream := TResourceStream.CreateFromID(Instance, Resid, RT_RCDATA);
|
||
FileStream := TFileStream.Create(FileName, fmCreate);
|
||
try
|
||
FileStream.CopyFrom(ResStream, 0);
|
||
finally
|
||
FreeAndNil(FileStream);
|
||
end;
|
||
finally
|
||
FreeAndNil(ResStream);
|
||
end;
|
||
except
|
||
on E:Exception do
|
||
begin
|
||
DeleteFile(FileName);
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure SetInternationalSettings;
|
||
var
|
||
sDecimal: string;
|
||
sDate: string;
|
||
sShortDate: string;
|
||
flag: boolean;
|
||
sThousand: string;
|
||
Reg: TRegistry;
|
||
begin
|
||
flag := false;
|
||
begin
|
||
Reg := TRegistry.Create;
|
||
try
|
||
Reg.RootKey := HKEY_CURRENT_USER;
|
||
if Reg.OpenKey('\Control Panel\International',true) then
|
||
begin
|
||
try
|
||
sDecimal := Reg.ReadString('sDecimal');
|
||
sDate := Reg.ReadString('sDate');
|
||
sShortDate := Reg.ReadString('sShortDate');
|
||
sThousand := Reg.ReadString('sThousand');
|
||
if (not(sDecimal = ','))
|
||
or (not(sDate = '.'))
|
||
or (not(sShortDate = 'dd.MM.yyyy'))
|
||
or (not(sThousand = ' ')) then
|
||
begin
|
||
Reg.WriteString('sDecimal',',');
|
||
Reg.WriteString('sDate','.');
|
||
Reg.WriteString('sShortDate','dd.MM.yyyy');
|
||
Reg.WriteString('sThousand',' ');
|
||
flag := true;
|
||
end;
|
||
except
|
||
// ExitProcess(1);
|
||
ShowMessage(cDpr_Mes2);
|
||
//halt;
|
||
end;
|
||
end;
|
||
finally
|
||
// if flag then
|
||
// ExitProcess(1);
|
||
Reg.CloseKey;
|
||
Reg.Free;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
function RemoveFonts: boolean;
|
||
var
|
||
FontList: TStringList;
|
||
buff: PChar;
|
||
i: integer;
|
||
RemoveStatus: boolean;
|
||
LastError: DWORD;
|
||
FontName: PChar;
|
||
sr: TSearchRec;
|
||
begin
|
||
FontList := TStringList.Create;
|
||
FontList.Add('ARIALUNI.TTF');
|
||
FontList.Add('batang.ttf');
|
||
FontList.Add('MSMINCHO.TTF');
|
||
FontList.Add('simsun.ttf');
|
||
FontList.Add('gost.ttf');
|
||
result := false;
|
||
// Tolik 21/06/219 - -
|
||
//GetMem(buff, 255);
|
||
GetMem(buff, 256*2);
|
||
//
|
||
GetWindowsDirectory(buff, 255);
|
||
for i := 0 to FontList.Count - 1 do
|
||
begin
|
||
if FontList.Strings[i] = 'gost.ttf' then
|
||
begin
|
||
if FileExists(buff + '\Fonts\' + FontList.Strings[i]) then
|
||
begin
|
||
begin
|
||
try
|
||
if FindFirst(PChar(buff + '\Fonts\' + FontList.Strings[i]), faAnyFile, sr) = 0 then
|
||
begin
|
||
if sr.Size <> 107744 then
|
||
begin
|
||
result := true;
|
||
FontName := PChar(FontList.Strings[i]);
|
||
if Not RemoveFontResource(FontName) then
|
||
LastError := GetLastError;
|
||
SysUtils.DeleteFile(buff + '\Fonts\' + FontList.Strings[i]);
|
||
end;
|
||
end;
|
||
FindClose(sr);
|
||
except
|
||
end;
|
||
end;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
if FileExists(buff + '\Fonts\' + FontList.Strings[i]) then
|
||
begin
|
||
result := true;
|
||
FontName := PChar(FontList.Strings[i]);
|
||
if Not RemoveFontResource(FontName) then
|
||
LastError := GetLastError;
|
||
SysUtils.DeleteFile(buff + '\Fonts\' + FontList.Strings[i]);
|
||
end;
|
||
end;
|
||
end;
|
||
FreeMem(Buff);
|
||
if result then
|
||
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
|
||
end;
|
||
|
||
{
|
||
function EnumWndProc(hwnd: HWND; i: Integer): Boolean; stdcall;
|
||
var
|
||
ClassName, WinModuleName: string;
|
||
WinIntstance: THandle;
|
||
begin
|
||
Result := true;
|
||
SetLength(ClassName, 100);
|
||
GetClassName(hwnd, PChar(ClassName), Length(ClassName));
|
||
ClassName := PChar(ClassName);
|
||
if ClassName = TFSCS_Main.ClassName then
|
||
begin
|
||
SetLength(WinModuleName, 200);
|
||
WinIntstance := GetWindowLong(hwnd, GWL_HINSTANCE);
|
||
GetModuleFileName(WinIntstance, PChar(WinModuleName), Length(WinmoduleName));
|
||
WinModuleName := PChar(WinmoduleName);
|
||
if WInmoduleName = ModuleName then
|
||
begin
|
||
FoundWnd := Hwnd;
|
||
result := false;
|
||
end;
|
||
end;
|
||
end;
|
||
}
|
||
|
||
procedure TryHex;
|
||
begin
|
||
if (not ProgramRegisterPro) {and (Not ProgramRegisterTrial)} then
|
||
begin
|
||
while 234 <> 912 do
|
||
begin
|
||
MessageBeep(MB_ICONASTERISK);
|
||
// if Not ShowRegistration then
|
||
// begin
|
||
// ExitProcess(1);
|
||
// end;
|
||
ProgramRegisterPro := ProgProtection.CheckIsVerls(PRO);
|
||
ProgramRegisterTrial := ProgProtection.CheckIsVerls(TRIAL);
|
||
if ProgramRegisterPro {or ProgramRegisterTrial} then
|
||
break;
|
||
Application.ProcessMessages;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
function GetDeskTopPath(SPECFOLDER: integer): string;
|
||
var
|
||
Allocator: IMalloc;
|
||
SpecialDir: PItemIdList;
|
||
FBuf: array[0..MAX_PATH] of Char;
|
||
PerDir: string;
|
||
begin
|
||
result := '';
|
||
if SHGetMalloc(Allocator) = NOERROR then
|
||
begin
|
||
SHGetSpecialFolderLocation(0, SPECFOLDER, SpecialDir);
|
||
SHGetPathFromIDList(SpecialDir, @FBuf[0]);
|
||
Allocator.Free(SpecialDir);
|
||
result := string(FBuf);
|
||
end;
|
||
end;
|
||
|
||
function GetMess(amess: string): string;
|
||
var
|
||
i: integer;
|
||
begin
|
||
result := '';
|
||
for i := length(amess) downto 1 do
|
||
begin
|
||
result := result + amess[i];
|
||
// result := result + chr(($5C XOR ord(amess[i])));
|
||
end;
|
||
end;
|
||
|
||
function ShiftDown : Boolean;
|
||
var
|
||
State : TKeyboardState;
|
||
begin
|
||
GetKeyboardState(State);
|
||
Result := (((State[vk_Shift] and 128) <> 0) AND ((State[VK_CONTROL] and 128) <> 0));
|
||
end;
|
||
|
||
function strtoPchar(s:string):Pchar;
|
||
begin
|
||
S := S+#0;
|
||
result:=StrPCopy(@S[1], S) ;
|
||
end;
|
||
|
||
function ParamExists(AParamValue: string): Boolean;
|
||
var
|
||
i: integer;
|
||
CurrParamValue: String;
|
||
begin
|
||
Result := false;
|
||
if ParamCount > 0 then
|
||
for i := 1 to ParamCount do
|
||
begin
|
||
CurrParamValue := ParamStr(i);
|
||
if CurrParamValue = AParamValue then
|
||
begin
|
||
Result := true;
|
||
Break; //// BREAK ////
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
|
||
{$IF Defined (TRIAL_SCS)}
|
||
function CommonInit({var ANBConst: TNBConst; } aProgramRegisterPro: integer; var aStream: TMemoryStream; ParentWin: THandle = 0): boolean; stdcall;
|
||
{$ELSE}
|
||
function InitCommon({var ANBConst: TNBConst; } aProgramRegisterPro: integer; var aStream: TMemoryStream; ParentWin: THandle = 0): boolean; stdcall;
|
||
{$IFEND}
|
||
begin
|
||
|
||
GUseArhOnlyMode := True;
|
||
|
||
Application.Handle := ParentWin;
|
||
|
||
try
|
||
ExeDir := ExtractFileDir(Application.ExeName);
|
||
if ExeDir[Length(ExeDir)] = '\' then
|
||
begin
|
||
ExeDir := Copy(ExeDir, 1, Length(ExeDir) - 1);
|
||
end;
|
||
except
|
||
end;
|
||
ExeDir := ExeDir + '\Graph';
|
||
|
||
|
||
// paramstr(0) := '';
|
||
// Application.ExeName := '';
|
||
|
||
if Not Assigned(FSCS_Main) then
|
||
begin
|
||
GDatabaseName := '';
|
||
IsVista := False;
|
||
if DetectWinVersion = wvVista then
|
||
IsVista := True;
|
||
GExitProgEx := False;
|
||
system.IsMultiThread:=false;
|
||
try
|
||
RemoveFonts;
|
||
except
|
||
end;
|
||
|
||
if Not IsVista then
|
||
begin
|
||
try
|
||
GetMem(bufflic, 16);
|
||
except
|
||
end;
|
||
end;
|
||
|
||
OpenFileAtStart := '';
|
||
GNowOpen := False;
|
||
GIsProgress := False;
|
||
|
||
//Application.Initialize;
|
||
|
||
try
|
||
SetLocaleInternationalSettings;
|
||
except
|
||
end;
|
||
SetCursors;
|
||
|
||
try
|
||
// Tolik 24/06/2019-
|
||
// Tolik 24/06/2019 --
|
||
s := GetEnvironmentVariable('tmp');
|
||
if s <> '' then
|
||
if not DirectoryExists(s, true) then
|
||
ForceDirectories(s);
|
||
|
||
s := GetEnvironmentVariable('temp');
|
||
if s <> '' then
|
||
if not DirectoryExists(s, true) then
|
||
ForceDirectories(s);
|
||
|
||
// Tolik 21/6/2019 - -
|
||
//getmem(buff,255);
|
||
(*
|
||
getmem(buff,256*2);
|
||
//
|
||
s := '';
|
||
if (GetEnvironmentVariable('tmp',buff, 254) >0)
|
||
and (DirectoryExists(buff)) then
|
||
begin
|
||
s := buff;
|
||
end;
|
||
|
||
try
|
||
tempfolder := buff;
|
||
if tempfolder[length(tempfolder)] <> '\' then
|
||
tempfolder := tempfolder + '\';
|
||
while tempfolder <> '' do
|
||
begin
|
||
tempstr := tempstr + copy(tempfolder, 1, pos('\', tempfolder));
|
||
delete(tempfolder, 1, pos('\', tempfolder));
|
||
if Not DirectoryExists(tempstr) then
|
||
CreateDir(tempstr);
|
||
end;
|
||
except
|
||
end;
|
||
|
||
if (GetEnvironmentVariable('temp',buff, 254) >0)
|
||
and (DirectoryExists(buff)) then
|
||
begin
|
||
s := buff;
|
||
end;
|
||
try
|
||
tempfolder := buff;
|
||
if tempfolder[length(tempfolder)] <> '\' then
|
||
tempfolder := tempfolder + '\';
|
||
while tempfolder <> '' do
|
||
begin
|
||
tempstr := tempstr + copy(tempfolder, 1, pos('\', tempfolder));
|
||
delete(tempfolder, 1, pos('\', tempfolder));
|
||
if Not DirectoryExists(tempstr) then
|
||
CreateDir(tempstr);
|
||
end;
|
||
except
|
||
end;
|
||
*)
|
||
//
|
||
finally
|
||
//freemem(buff);
|
||
end;
|
||
|
||
TempDir := '';
|
||
|
||
IDESerialG := '';
|
||
|
||
F_Splash := TF_Splash.Create(F_Splash);
|
||
F_Splash.ProgressBar.Max := 39;
|
||
F_Splash.ProgressBar.Step := 1;
|
||
//F_Splash.Label1.Caption := 'v.' + VersionEXE;
|
||
F_Splash.lbVersion.Caption := 'v.' + VersionEXE;
|
||
|
||
// F_Splash.Show;
|
||
// F_Splash.Refresh;
|
||
|
||
|
||
ts := DateTimeToTimeStamp(StrToDateU(DateEXE));
|
||
DateID := IntToHex(ts.Date, 5);
|
||
DateID := DateID + '5';
|
||
|
||
ProgProtection := TProtection.Create;
|
||
ProgID := StrToProgID('1111111111111111');
|
||
|
||
NtOS := (Win32Platform = VER_PLATFORM_WIN32_NT);
|
||
|
||
Application.Title := 'Ãðàôè÷åñêèé ìîäóëü';
|
||
Application.HelpFile := 'HELP\HELP.HLP';
|
||
|
||
(*Method 3 - Using Registry Editor
|
||
|
||
Run Registry Editor by typing “regedit” in Start Search or command prompt.
|
||
In Registry Editor, navigate to the following registry key:
|
||
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\
|
||
CurrentVersion\Policies\System
|
||
|
||
Locate the following DWORD registry subkey in the right pane:
|
||
EnableLUA
|
||
|
||
Right click and choose modify or double click on EnableLUA to modify the setting. On valud prompt, set the new value to 0.
|
||
Exit from Registry Editor.
|
||
Restart the computer.
|
||
To enable the UAC again, simply change back the value of EnableLUA to 1.
|
||
*)
|
||
|
||
(*
|
||
try
|
||
ExtractFromExe(HInstance, $4, U_USB.GetTempDir + '\GDI.REG');
|
||
except
|
||
end;
|
||
ShellExecute(0, PChar('open'), PChar('regedit.exe'), PChar('/s ' + U_USB.GetTempDir + '\GDI.REG'), PChar(U_USB.GetTempDir), SW_HIDE);
|
||
*)
|
||
|
||
isUAC := 0;
|
||
if isVista then
|
||
begin
|
||
Reg := TRegistry.Create;
|
||
try
|
||
isUAC := 0;
|
||
Reg.RootKey := HKEY_LOCAL_MACHINE;
|
||
if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System') then
|
||
begin
|
||
isUAC := Reg.ReadInteger('EnableLUA');
|
||
end;
|
||
finally
|
||
Reg.Free;
|
||
end;
|
||
end;
|
||
|
||
if isUAC = 0 then
|
||
begin
|
||
isUAC := 10000;
|
||
Reg := TRegistry.Create;
|
||
try
|
||
Reg.RootKey := HKEY_LOCAL_MACHINE;
|
||
if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows') then
|
||
begin
|
||
isUAC := Reg.ReadInteger('GDIProcessHandleQuota');
|
||
|
||
end;
|
||
finally
|
||
Reg.Free;
|
||
end;
|
||
if isUAC < 30000 then
|
||
begin
|
||
Reg := TRegistry.Create;
|
||
try
|
||
Reg.RootKey := HKEY_LOCAL_MACHINE;
|
||
if Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows', false) then
|
||
begin
|
||
Reg.WriteInteger('GDIProcessHandleQuota', 50000);
|
||
Reg.WriteInteger('USERProcessHandleQuota', 50000);
|
||
end;
|
||
finally
|
||
Reg.Free;
|
||
end;
|
||
end;
|
||
|
||
isUAC := 10000;
|
||
Reg := TRegistry.Create;
|
||
try
|
||
Reg.RootKey := HKEY_LOCAL_MACHINE;
|
||
if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows') then
|
||
begin
|
||
isUAC := Reg.ReadInteger('GDIProcessHandleQuota');
|
||
end;
|
||
finally
|
||
Reg.Free;
|
||
end;
|
||
if isUAC < 30000 then
|
||
begin
|
||
try
|
||
ExtractFromExe(HInstance, $4, U_USB.GetTempDir + '\GDI.REG');
|
||
except
|
||
end;
|
||
try
|
||
ShellExecute(0, PChar('open'), PChar('regedit.exe'), PChar(U_USB.GetTempDir + '\GDI.REG'), PChar(U_USB.GetTempDir), SW_SHOWNORMAL);
|
||
except
|
||
end;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
|
||
isUAC := 10000;
|
||
Reg := TRegistry.Create;
|
||
try
|
||
Reg.RootKey := HKEY_LOCAL_MACHINE;
|
||
if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows') then
|
||
begin
|
||
isUAC := Reg.ReadInteger('GDIProcessHandleQuota');
|
||
end;
|
||
finally
|
||
Reg.Free;
|
||
end;
|
||
if isUAC < 30000 then
|
||
begin
|
||
try
|
||
ExtractFromExe(HInstance, $4, U_USB.GetTempDir + '\GDI.REG');
|
||
except
|
||
end;
|
||
try
|
||
ShellExecute(0, PChar('open'), PChar('regedit.exe'), PChar(U_USB.GetTempDir + '\GDI.REG'), PChar(U_USB.GetTempDir), SW_SHOWNORMAL);
|
||
except
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
isUAC := 10000;
|
||
Reg := TRegistry.Create;
|
||
try
|
||
Reg.RootKey := HKEY_LOCAL_MACHINE;
|
||
if Reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows') then
|
||
begin
|
||
isUAC := Reg.ReadInteger('GDIProcessHandleQuota');
|
||
end;
|
||
finally
|
||
Reg.Free;
|
||
end;
|
||
if isUAC < 30000 then
|
||
showmessage('Need change parameter GDIProcessHandleQuota in registry' + #13#10 + ' with Administration privileges!');
|
||
|
||
|
||
NtOS := (Win32Platform = VER_PLATFORM_WIN32_NT);
|
||
|
||
{if ParamExists('/1') then
|
||
begin
|
||
try
|
||
GetSystemInfo(si);
|
||
if si.dwNumberOfProcessors > 1 then
|
||
begin
|
||
vHandle := GetCurrentProcess;
|
||
SetProcessAffinityMask(vHandle, 1); // or 1
|
||
GetProcessAffinityMask(vHandle, vMaskProcess, vMaskSystem);
|
||
end;
|
||
except
|
||
end;
|
||
end;}
|
||
|
||
GSCSIni.Controls := ReadControls; //#From Oleg#
|
||
GSCSIni.Environments := ReadEnvironments; //08.09.//#From Oleg#
|
||
|
||
StartUpProgress;
|
||
Application.CreateForm(TFSCS_Main, FSCS_Main);
|
||
Application.CreateForm(TF_MasterNewListLite, F_MasterNewListLite);
|
||
FSCS_Main.Left := Screen.WorkAreaRect.Left;
|
||
FSCS_Main.Top := Screen.WorkAreaRect.Top;
|
||
FSCS_Main.Width := Screen.WorkAreaRect.Right - Screen.WorkAreaRect.Left;
|
||
FSCS_Main.Height := Screen.WorkAreaRect.Bottom - Screen.WorkAreaRect.Top;
|
||
FSCS_Main.Refresh;
|
||
Application.CreateForm(TF_ChooseListForTrunk, F_ChooseListForTrunk);
|
||
Application.CreateForm(Tfrm3D_Save, frm3D_Save);
|
||
StartUpProgress; Application.CreateForm(TF_CadNormsProp, F_CadNormsProp);
|
||
StartUpProgress; Application.CreateForm(TF_CadNormsList, F_CadNormsList);
|
||
StartUpProgress; Application.CreateForm(TF_ChooseDesignBoxParams, F_ChooseDesignBoxParams);
|
||
StartUpProgress; Application.CreateForm(TF_ChooseSCSObjectsProp, F_ChooseSCSObjectsProp);
|
||
StartUpProgress; Application.CreateForm(TF_AutoTraceConnectOrder, F_AutoTraceConnectOrder);
|
||
StartUpProgress; Application.CreateForm(TF_CreateRaiseQuery, F_CreateRaiseQuery);
|
||
StartUpProgress; Application.CreateForm(TF_PrintLists, F_PrintLists);
|
||
StartUpProgress; Application.CreateForm(TF_BlockParams, F_BlockParams);
|
||
|
||
StartUpProgress; Application.CreateForm(TF_LNG, F_LNG);
|
||
F_LNG.siLangDisp.ActiveLanguage := 7;
|
||
//F_LNG.siLangDisp.ActiveLanguage := 1;
|
||
|
||
//F_Splash.Label1.Caption := 'v.' + VersionEXE;
|
||
F_Splash.lbVersion.Caption := 'v.' + VersionEXE;
|
||
|
||
StartUpProgress; Application.CreateForm(TF_DimLineDialog, F_DimLineDialog);
|
||
StartUpProgress; Application.CreateForm(TF_ChooseComponTypes, F_ChooseComponTypes);
|
||
StartUpProgress; Application.CreateForm(TF_FloatPanel, F_FloatPanel);
|
||
StartUpProgress; Application.CreateForm(TF_EndPoints, F_EndPoints);
|
||
StartUpProgress; Application.CreateForm(TF_ComponDesignWizard, F_ComponDesignWizard);
|
||
|
||
StartUpProgress; Application.CreateForm(TF_LayersDialog, F_LayersDialog);
|
||
StartUpProgress; Application.CreateForm(TF_IncOn, F_IncOn);
|
||
|
||
StartUpProgress; Application.CreateForm(TF_Scale, F_Scale);
|
||
StartUpProgress; Application.CreateForm(TF_GridStep, F_GridStep);
|
||
StartUpProgress; Application.CreateForm(TF_NewLayer, F_NewLayer);
|
||
StartUpProgress; Application.CreateForm(TF_SizePos, F_SizePos);
|
||
StartUpProgress; Application.CreateForm(TF_OrthoLineParams, F_OrthoLineParams);
|
||
StartUpProgress; Application.CreateForm(TF_LoadColor, F_LoadColor);
|
||
StartUpProgress; Application.CreateForm(TF_SCSObjectsProp, F_SCSObjectsProp);
|
||
StartUpProgress; Application.CreateForm(TF_InterfacesAutoTrace, F_InterfacesAutoTrace);
|
||
StartUpProgress; Application.CreateForm(TF_MasterNewList, F_MasterNewList);
|
||
StartUpProgress; Application.CreateForm(TF_RaiseHeight, F_RaiseHeight);
|
||
StartUpProgress; Application.CreateForm(TF_AutoTraceType, F_AutoTraceType);
|
||
StartUpProgress; Application.CreateForm(TF_BlockEditor, F_BlockEditor);
|
||
StartUpProgress; Application.CreateForm(TF_Progress, F_Progress);
|
||
|
||
// StartUpProgress; Application.CreateForm(TF_Kalc, F_Kalc);
|
||
StartUpProgress; Application.CreateForm(TF_PEAutotraceDialog, F_PEAutotraceDialog);
|
||
StartUpProgress; Application.CreateForm(TF_PEDialogEqChoice, F_PEDialogEqChoice);
|
||
StartUpProgress; Application.CreateForm(TF_PEGetBox, F_PEGetBox);
|
||
|
||
StartUpProgress; Application.CreateForm(TDMCommon, DMCommon); //DMCommon := TDMCommon.Create(Application);
|
||
|
||
|
||
GCreatedDMAIN := false;
|
||
GGDBMode := bkNormBase;
|
||
StartUpProgress; Application.CreateForm(TF_MAIN, F_NormBase);
|
||
|
||
GGDBMode := bkprojectManager;
|
||
StartUpProgress; Application.CreateForm(TF_MAIN, F_ProjMan);
|
||
|
||
F_ProjMan.FNormBase := F_NormBase;
|
||
F_ProjMan.FProjectMan := F_ProjMan;
|
||
F_NormBase.FNormBase := F_NormBase;
|
||
F_NormBase.FProjectMan := F_ProjMan;
|
||
|
||
F_LNG.siLangDisp.ActiveLanguage := 7;
|
||
|
||
GProtectionType := GetProtectionType;
|
||
|
||
InitOk := False;
|
||
end;
|
||
|
||
FSCS_Main.Icon.LoadFromFile(ExeDir + '\graphdll.ico');
|
||
|
||
if Not InitOk then
|
||
begin
|
||
// !!!!!! Ï Î Ä Ê Ë Þ × Å Í È Å Ê Á À Ç À Ì
|
||
GCanRemotePath := false;
|
||
|
||
if Not ConnecToNBWizard((ParamExists('/r') or GetBoolFromRegistry(pnShowLicenceType, False)),
|
||
false, false, GCanRemotePath) then
|
||
begin
|
||
if Assigned(F_Splash) then
|
||
FreeAndNil(F_Splash);
|
||
exit;
|
||
//Application.Terminate;
|
||
end;
|
||
F_ProjMan.ConnectToBase;
|
||
InitOk := True;
|
||
end;
|
||
|
||
ProgramRegisterTrial := False;
|
||
ProgramRegisterPro := (aProgramRegisterPro XOR Trunc(Date)) = 0;
|
||
GLicProgCode := ProgIDToStr(ProgID);
|
||
GLicUserCode := '34291432';
|
||
|
||
(*
|
||
{$IF Defined (FINAL_SCS) AND Not Defined(TRIAL_SCS)}
|
||
try
|
||
TempList.Add('0');
|
||
except
|
||
TryHex;
|
||
end;
|
||
{$IFEND}
|
||
*)
|
||
|
||
//StartUpProgress;
|
||
|
||
FSCS_Main.aOpenProject.Execute;
|
||
|
||
// Registered & Unregistered Hot Keys
|
||
Application.OnActivate := FSCS_Main.FOnAppActivate;
|
||
Application.OnDeactivate := FSCS_Main.aUnregHotKeysExecute;
|
||
Application.OnMinimize := FSCS_Main.AppMinima;
|
||
Application.OnRestore := FSCS_Main.aRegHotKeysExecute;
|
||
|
||
Application.OnException := FSCS_Main.AppException;
|
||
Application.OnIdle := F_ProjMan.IdleEventHandler;
|
||
// F_Splash.ProgressBar.Position := F_Splash.ProgressBar.Max;
|
||
|
||
{$IF Defined (TRIAL_SCS)}
|
||
begin
|
||
BaseInfo.FirstRun := '';
|
||
BaseInfo.LastRun := '';
|
||
BaseInfo.NumberRunTr := 0;
|
||
ISFirstRun := False;
|
||
LogAllDate;
|
||
if IsFirstRunTr then
|
||
begin
|
||
SetAllFirstDateTr;
|
||
IsFirstRun := True;
|
||
end;
|
||
if NOT IsAllOkTr then
|
||
begin
|
||
ShowTrialError(1);
|
||
TimerClose.Enabled := True;
|
||
end;
|
||
if IsTrialPeriodEndTr then
|
||
begin
|
||
ShowTrialError(2);
|
||
TimerClose.Enabled := True;
|
||
end;
|
||
if NOT IsMayRunTr then
|
||
begin
|
||
ShowTrialError(3);
|
||
TimerClose.Enabled := True;
|
||
end;
|
||
if TimerClose.Enabled then
|
||
sleep(400)
|
||
else
|
||
TimerSave.Enabled := True;
|
||
end;
|
||
{$IFEND}
|
||
|
||
{$IF Defined (PROCAT_SCS)}
|
||
begin
|
||
BaseInfo.FirstRun := '';
|
||
BaseInfo.LastRun := '';
|
||
BaseInfo.NumberRunTr := 0;
|
||
ISFirstRun := False;
|
||
LogAllDate;
|
||
if IsFirstRunTr then
|
||
begin
|
||
SetAllFirstDateTr;
|
||
IsFirstRun := True;
|
||
end;
|
||
if NOT IsAllOkTr then
|
||
begin
|
||
ShowTrialError(1);
|
||
TimerClose.Enabled := True;
|
||
end;
|
||
if IsTrialPeriodEndTr then
|
||
begin
|
||
ShowTrialError(2);
|
||
TimerClose.Enabled := True;
|
||
end;
|
||
if NOT IsMayRunTr then
|
||
begin
|
||
ShowTrialError(3);
|
||
TimerClose.Enabled := True;
|
||
end;
|
||
if TimerClose.Enabled then
|
||
sleep(400)
|
||
else
|
||
TimerSave.Enabled := True;
|
||
end;
|
||
{$IFEND}
|
||
|
||
if Assigned(F_Splash) then
|
||
FreeAndNil(F_Splash);
|
||
|
||
F_NormBase.CheckBackUpBase; //#From Oleg#
|
||
F_ProjMan.CheckBackUpBase; //#From Oleg#
|
||
|
||
GSCStream := aStream;
|
||
|
||
FSCS_Main.OnClose := FSCS_Main.FormClose;
|
||
FSCS_Main.OnCloseQuery := FSCS_Main.FormCloseQuery;
|
||
|
||
//Application.Run;
|
||
if (aProgramRegisterPro XOR Trunc(Date)) = 0 then
|
||
begin
|
||
FSCS_Main.ShowModal;
|
||
end;
|
||
|
||
//ExitProcess(0);
|
||
end;
|
||
|
||
end.
|
||
|