Patrick Gniza
5bf1fafddf
- Tkinter-GUI zur Konfiguration analoger DirectShow-Video-Grabber - Unterstützung für PAL/NTSC/SECAM-Umschaltung - Unterstützung für Composite- und S-Video-Eingänge über IAMCrossbar - Automatische Speicherung und Anwendung der Konfiguration - Headless-Startmodus mit automatischer Konfigurationsanwendung - Speicherung der Konfiguration unter ProgramData - Nuitka-kompatible Projektstruktur - Inno-Setup-Installer mit optionalem Autostart - README, MIT-Lizenz und requirements.txt hinzugefügt - Projekt-Icon erstellt
125 lines
2.8 KiB
Plaintext
125 lines
2.8 KiB
Plaintext
#define MyAppName "Grabber Config"
|
|
#define MyAppVersion "1.0.0"
|
|
#define MyAppPublisher "Patrick Gniza"
|
|
#define MyAppExeName "GrabberConfig.exe"
|
|
|
|
[Setup]
|
|
AppId={{8B2E6B6B-5E0B-4C7F-BF71-GRABBER-CONFIG}}
|
|
AppName={#MyAppName}
|
|
AppVersion={#MyAppVersion}
|
|
AppVerName={#MyAppName} {#MyAppVersion}
|
|
AppPublisher={#MyAppPublisher}
|
|
DefaultDirName={autopf}\Grabber Config
|
|
DefaultGroupName=
|
|
DisableProgramGroupPage=yes
|
|
DisableDirPage=no
|
|
DisableReadyPage=no
|
|
DisableFinishedPage=no
|
|
DisableWelcomePage=no
|
|
ShowLanguageDialog=no
|
|
OutputBaseFilename=GrabberConfigSetup
|
|
OutputDir=build
|
|
Compression=lzma
|
|
SolidCompression=yes
|
|
ArchitecturesInstallIn64BitMode=x64compatible
|
|
PrivilegesRequired=admin
|
|
|
|
LicenseFile=LICENSE
|
|
SetupIconFile=GrabberConfig.ico
|
|
UninstallDisplayIcon={app}\{#MyAppExeName}
|
|
|
|
[Languages]
|
|
Name: "german"; MessagesFile: "compiler:Languages\German.isl"
|
|
|
|
[Tasks]
|
|
Name: "autostart"; \
|
|
Description: "Grabber Config zum Autostart hinzufügen"; \
|
|
GroupDescription: "Zusätzliche Aufgaben:"; \
|
|
Flags: unchecked
|
|
|
|
[Files]
|
|
Source: "build\GrabberConfig.dist\*"; DestDir: "{app}"; Flags: recursesubdirs createallsubdirs
|
|
|
|
[Icons]
|
|
Name: "{commonstartup}\Grabber Config"; \
|
|
Filename: "{app}\{#MyAppExeName}"; \
|
|
Tasks: autostart
|
|
|
|
[Run]
|
|
Filename: "{app}\{#MyAppExeName}"; \
|
|
Parameters: "/config"; \
|
|
Description: "Grabber Config Konfiguration starten"; \
|
|
Flags: nowait postinstall skipifsilent
|
|
|
|
[UninstallRun]
|
|
Filename: "taskkill"; \
|
|
Parameters: "/F /IM {#MyAppExeName}"; \
|
|
Flags: runhidden waituntilterminated
|
|
|
|
[UninstallDelete]
|
|
Type: filesandordirs; Name: "{app}"
|
|
|
|
[Code]
|
|
|
|
procedure InitializeWizard;
|
|
begin
|
|
if FileExists(WizardDirValue + '\{#MyAppExeName}') then
|
|
begin
|
|
WizardForm.NextButton.Caption := '&Update';
|
|
|
|
WizardForm.WelcomeLabel1.Caption :=
|
|
'Update von Grabber Config';
|
|
|
|
WizardForm.WelcomeLabel2.Caption :=
|
|
'Die bestehende Installation wird aktualisiert.';
|
|
end;
|
|
end;
|
|
|
|
procedure CleanApplicationDirectory();
|
|
var
|
|
FindRec: TFindRec;
|
|
Path: String;
|
|
begin
|
|
Path := ExpandConstant('{app}');
|
|
|
|
if FindFirst(Path + '\*', FindRec) then
|
|
begin
|
|
try
|
|
repeat
|
|
if (FindRec.Name <> '.') and (FindRec.Name <> '..') then
|
|
begin
|
|
if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0 then
|
|
begin
|
|
DelTree(Path + '\' + FindRec.Name, True, True, True);
|
|
end
|
|
else
|
|
begin
|
|
DeleteFile(Path + '\' + FindRec.Name);
|
|
end;
|
|
end;
|
|
until not FindNext(FindRec);
|
|
finally
|
|
FindClose(FindRec);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure CurStepChanged(CurStep: TSetupStep);
|
|
var
|
|
ResultCode: Integer;
|
|
begin
|
|
if CurStep = ssInstall then
|
|
begin
|
|
Exec(
|
|
'taskkill',
|
|
'/F /IM {#MyAppExeName}',
|
|
'',
|
|
SW_HIDE,
|
|
ewWaitUntilTerminated,
|
|
ResultCode
|
|
);
|
|
|
|
CleanApplicationDirectory();
|
|
end;
|
|
end;
|