mirror of
https://github.com/barkeser2002/rdpwrap.git
synced 2026-09-25 04:20:05 +03:00
sebaxakerhtc
813baaeb3f
Auto switching UI Style (white and dark) by windows theme with thanks to https://github.com/checkdigits/delphidarkmode/
33 lines
1.1 KiB
ObjectPascal
33 lines
1.1 KiB
ObjectPascal
{
|
|
Copyright 2014 Stas'M Corp.
|
|
Copyright 2021 sebaxakerhtc
|
|
Licensed under the Apache License, Version 2.0 (the "License");
|
|
you may not use this file except in compliance with the License.
|
|
You may obtain a copy of the License at
|
|
http://www.apache.org/licenses/LICENSE-2.0
|
|
Unless required by applicable law or agreed to in writing, software
|
|
distributed under the License is distributed on an "AS IS" BASIS,
|
|
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
See the License for the specific language governing permissions and
|
|
limitations under the License.
|
|
}
|
|
program RDP_CnC;
|
|
uses
|
|
Forms,
|
|
MainUnit in 'MainUnit.pas' {MainForm},
|
|
LicenseUnit in 'LicenseUnit.pas' {LicenseForm},
|
|
Vcl.Themes,
|
|
Vcl.Styles,
|
|
WindowsDarkMode in 'WindowsDarkMode.pas';
|
|
|
|
{$R *.res}
|
|
begin
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := True;
|
|
SetAppropriateThemeMode('Glossy', 'Windows');
|
|
Application.Title := 'Remote Desktop Protocol Configuration';
|
|
Application.CreateForm(TMainForm, MainForm);
|
|
Application.CreateForm(TLicenseForm, LicenseForm);
|
|
Application.Run;
|
|
end.
|