Маленькая аська :) https://rnq.ru
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

159 lines
6.3 KiB

program RnQx64;
{$WEAKLINKRTTI ON}
{$RTTI EXPLICIT METHODS([]) FIELDS([]) PROPERTIES([])}
{ $I Compilers.inc }
{$I RnQConfig.inc}
{$R 'WinXP2.res' 'Res\WinXP2.rc'}
// { $R 'Res\WinXP2.res'}
uses
Forms,
mainDlg in 'mainDlg.pas' {RnQmain},
RDGlobal in '..\For.rnq\RTL\RDGlobal.pas',
RnQBinUtils in '..\For.rnq\RTL\RnQBinUtils.pas',
RnQGraphics32 in '..\For.rnq\RTL\RnQGraphics32.pas',
RnQGlobal in '..\For.rnq\RnQGlobal.pas',
RQUtil in '..\For.rnq\RQUtil.pas',
RnQLangs in '..\For.rnq\RnQLangs.pas',
RnQStrings in '..\For.rnq\RnQStrings.pas',
VirtualTrees in '..\For.rnq\VTV\Source\VirtualTrees.pas',
RQThemes in '..\For.rnq\RQThemes.pas',
RQmsgs in '..\For.rnq\RQmsgs.pas' {msgsFrm},
RnQNet in '..\For.rnq\RnQNet.pas',
RQMenuItem in '..\For.rnq\RQMenuItem.pas',
RQlog in '..\For.rnq\RQlog.pas' {logFrm},
RnQDialogs in '..\For.rnq\RnQDialogs.pas',
RnQPrefsLib in '..\For.rnq\RnQPrefsLib.pas',
addContactDlg in 'addContactDlg.pas' {addContactFrm},
roasterLib in 'roasterLib.pas',
ThemesLib in 'ThemesLib.pas',
globalLib in 'globalLib.pas',
history in 'history.pas',
events in 'events.pas',
aboutDlg in 'aboutDlg.pas' {aboutFrm},
selectcontactsDlg in 'selectcontactsDlg.pas' {selectCntsFrm},
usersDlg in 'usersDlg.pas' {usersFrm},
iniLib in 'iniLib.pas',
utilLib in 'utilLib.pas',
authreqDlg in 'authreqDlg.pas' {authreqFrm},
changepwddlg in 'changepwddlg.pas' {changePwdFrm},
historyVCL in 'historyVCL.pas',
chatDlg in 'chatDlg.pas' {chatFrm},
pluginLib in 'pluginLib.pas',
outboxLib in 'outboxLib.pas',
outboxDlg in 'outboxDlg.pas' {outboxFrm},
lockDlg in 'lockDlg.pas' {lockFrm},
uinlistlib in 'uinlistlib.pas',
automsgDlg in 'automsgDlg.pas' {automsgFrm},
groupsLib in 'groupsLib.pas',
langLib in 'langLib.pas',
pwdDlg in 'pwdDlg.pas' {msgFrm},
RnQdbDlg in 'RnQdbDlg.pas' {RnQdbFrm},
menusUnit in 'menusUnit.pas',
RnQMacros in 'RnQMacros.pas',
prefDlg in 'prefDlg.pas' {prefFrm},
connection_fr in 'Prefs\connection_fr.pas' {connectionFr: TFrame},
start_fr in 'Prefs\start_fr.pas' {startFr: TFrame},
design_fr in 'Prefs\design_fr.pas' {designFr: TFrame},
autoaway_fr in 'Prefs\autoaway_fr.pas' {autoawayFr: TFrame},
security_fr in 'Prefs\security_fr.pas' {securityFr: TFrame},
hotkeys_fr in 'Prefs\hotkeys_fr.pas' {hotkeysFr: TFrame},
other_fr in 'Prefs\other_fr.pas' {otherFr: TFrame},
antispam_fr in 'Prefs\antispam_fr.pas' {antispamFr: TFrame},
events_fr in 'Prefs\events_fr.pas' {eventsFr: TFrame},
plugins_fr in 'Prefs\plugins_fr.pas' {pluginsFr: TFrame},
chat_frOld in 'Prefs\chat_frOld.pas' {chatFr: TFrame},
update_fr in 'Prefs\update_fr.pas' {updateFr: TFrame},
tips_fr in 'Prefs\tips_fr.pas' {TipsFr: TFrame},
themedit_fr in 'Prefs\themedit_fr.pas' {themeditFr: TFrame},
RnQ_Avatars in 'RnQ_Avatars.pas',
hook in 'hook.pas',
tipDlg in 'tipDlg.pas',
RnQTips in 'RnQTips.pas',
HistAllSearch in 'HistAllSearch.pas' {AllHistSrchForm},
MenuSmiles in 'MenuSmiles.pas' {FSmiles},
RnQProtocol in 'RnQProtocol.pas',
visibilityDlg in 'visibilityDlg.pas' {visibilityFrm},
Protocols_all in 'Protocols_all.pas',
NewAccount in 'NewAccount.pas' {NewAccFrm},
icq_fr in 'ICQ\icq_fr.pas' {icqFr: TFrame},
ICQcontacts in 'ICQ\ICQcontacts.pas',
RQCodes in 'ICQ\RQCodes.pas',
RQ_ICQ in 'ICQ\RQ_ICQ.pas',
viewinfoDlg in 'ICQ\viewinfoDlg.pas' {viewinfoFrm},
ICQv9 in 'ICQ\ICQv9.pas',
ICQConsts in 'ICQ\ICQConsts.pas',
StatusForm in 'StatusForm.pas' {xStatusForm},
wpDlg in 'ICQ\wpDlg.pas' {wpFrm},
Protocol_ICQ in 'ICQ\Protocol_ICQ.pas',
viewSSI in 'ICQ\viewSSI.pas' {SSIForm},
ICQflap in 'ICQ\ICQflap.pas',
filetransferDlg in 'ICQ\filetransferDlg.pas' {filetransferFrm},
sendfileDlg in 'ICQ\sendfileDlg.pas' {sendfileFrm},
RDtrayLib in '..\For.rnq\RDtrayLib.pas',
ICQClients in 'ICQ\ICQClients.pas',
RnQLangFrm in '..\For.rnq\RnQLangFrm.pas' {FrmLangs};
{ $R RnQ.RES }
{$R *.RES}
// The UnicodeString in Delphi can contain Unicode or ANSI data at any given time,
// and in order to ensure that C++Builder code can correctly index the items,
// a hidden call to UniqueStringX is being made.
// If you only create Delphi stand-alone applications,
// you can avoid these calls with the STRINGCHECKS OFF compiler option:
(* $STRINGCHECKS OFF *)
{$STRINGCHECKS OFF}
// JCL_DEBUG_EXPERT_GENERATEJDBG ON
{ $IFDEF NO_WIN98 }
{ $SetPEFlags IMAGE_FILE_RELOCS_STRIPPED }
{ $ENDIF NO_WIN98 }
// { $DYNAMICBASE ON} // ASLR
// { $SETPEOPTFLAGS $100} //NX
{$SETPEOPTFLAGS $140} // NX + ASLR
{ $R 'Res\WinXP.res' 'Res\WinXP.rc' }
{ $SetPEFlags IMAGE_FILE_RELOCS_STRIPPED or IMAGE_FILE_DEBUG_STRIPPED
or IMAGE_FILE_LINE_NUMS_STRIPPED or IMAGE_FILE_LOCAL_SYMS_STRIPPED }
{
IMAGE_FILE_RELOCS_STRIPPED - ������� ������
IMAGE_FILE_DEBUG_STRIPPED - �������� �� ��� Debug ����������
IMAGE_FILE_LINE_NUMS_STRIPPED - �������� �� exe ���������� � ������� �����
IMAGE_FILE_LOCAL_SYMS_STRIPPED - �������� local symbols
IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP - ��� ������� exe � ��������, ������, ������ ����������� ���������, ������� exe � ���� � ��������� ������.
�������, ���� ����� ��������� ��������� � ��������, � ����� ��������� �������� ������...
IMAGE_FILE_NET_RUN_FROM_SWAP - ���������� ����������, ������ ��� ������� ������
}
begin
// logpref.evts.onwindow := False;
// logpref.evts.onfile := True;
Application.MainFormOnTaskBar := False;
randomize;
// TStyleManager.LoadFromFile('RubyGraphite.vsf');
// SetCurrentThreadName('RnQMain');
// NameThreadForDebugging('RnQMain');
beforeWindowsCreation;
Application.Title := 'R&Q';
theme.addHIco('rnq', Application.Icon.Handle, True);
// loggaEvt('Before main');
Application.CreateForm(TRnQmain, RnQmain);
// loggaEvt('Before chat');
Application.CreateForm(TchatFrm, chatFrm);
Application.CreateForm(TFSmiles, FSmiles);
// loggaEvt('Before msgs');
Application.CreateForm(TmsgsFrm, msgsFrm);
// loggaEvt('Before log');
Application.CreateForm(TLogFrm, LogFrm);
// loggaEvt('Before after');
Application.ShowMainForm := False;
afterWindowsCreation;
// if startminimized and formvisible(RnQmain) then RnQmain.toggleVisible;
// loggaEvt('Before user');
startUser;
// SetDliFailureHook(DelayedFailureHook);
// SetDliFailureHook(DelayLoadFailureHook);
Application.Run;
end.