morgan/Grinch-AP
1
0
Fork 0
mirror of https://github.com/MarioSpore/Grinch-AP.git synced 2025-10-21 20:21:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

rom validation in setup. Will warn about headered files for now. Someone who wants to deal with pascal is welcome to add a check for it.

Browse Source
This commit is contained in:
Fabian Dill
2020-04-07 05:41:44 +02:00
parent e209f00881
commit b427f03e5f
1 changed files with 116 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
inno_setup.iss
View File

@@ -85,8 +85,8 @@ begin
end; end;
end; end;
var var ROMFilePage: TInputFileWizardPage;
ROMFilePage: TInputFileWizardPage; var R : longint;
procedure InitializeWizard(); procedure InitializeWizard();
begin begin
@@ -105,8 +105,12 @@ end;
function GetROMPath(Param: string): string; function GetROMPath(Param: string): string;
begin begin
if Assigned(RomFilePage) then if Assigned(RomFilePage) then
begin
R := CompareStr(GetMD5OfFile(ROMFilePage.Values[0]), '03a63945398191337e896e5771f77173')
if R <> 0 then
MsgBox('ROM validation failed. Very likely wrong file.', mbInformation, MB_OK); MsgBox('ROM validation failed. Very likely wrong file.', mbInformation, MB_OK);
Result := ROMFilePage.Values[0] Result := ROMFilePage.Values[0]
end end
else else