program Project1;
uses
Forms,
Windows,
SysUtils,
Graphics,
Unit1 in 'Unit1.pas' {ViewNoteFrm},
Unit2 in 'Unit2.pas' {WrtNtFrm},
Unit3 in 'Unit3.pas' {SettingsForm},
Unit4 in 'Unit4.pas' {ArrowForm},
Unit5 in 'Unit5.pas' {PreviewNoteFrm},
Unit6 in 'Unit6.pas' {AlarmCreator},
Unit7 in 'Unit7.pas' {Form7},
Unit8 in 'Unit8.pas' {Information};
var
ExtendedStyle: Integer;
I: Byte;
{$R *.res}
procedure EnterNoGUImode();
begin
ViewNoteFrm. Shape1. Brush.Style := bsSolid;
WrtNtFrm. FormBelevShape. Brush.Style := bsSolid;
SettingsForm. MainSetShape. Brush.Style := bsSolid;
SettingsForm. Shape1. Brush.Style := bsSolid;
PreviewNoteFrm. Shape1. Brush.Style := bsSolid;
AlarmCreator. Shape1. Brush.Style := bsSolid;
Form7. Color := clWhite;
end;
begin
Application.Initialize;
ExtendedStyle := GetWindowLong(Application.Handle,GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
Application.Title := 'xxxx';
Application.CreateForm(TViewNoteFrm, ViewNoteFrm);
Application.CreateForm(TArrowForm, ArrowForm);
Application.CreateForm(TWrtNtFrm, WrtNtFrm);
Application.CreateForm(TPreviewNoteFrm, PreviewNoteFrm);
Application.CreateForm(TSettingsForm, SettingsForm);
Application.CreateForm(TAlarmCreator, AlarmCreator);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TInformation, Information);
Application.HintHidePause := 4000;
Application.HintColor := RGB(247, 247, 255);
ViewNoteFrm.Left := FormInsertionView;
if FileExists('xxxx_gui.dll') then
DllGUIReload()
else
begin
EnterNoGUImode();
for I := 0 to 4 do
BtnsPics[I] := TBitmap.Create;
end;
didTheJob := True;
Application.Run;
end.
Kod procedury DllGUIReload(); > http://4programmers.net/Pastebin/2119