mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-05 08:25:32 +00:00
34 lines
525 B
ObjectPascal
34 lines
525 B
ObjectPascal
unit DevReleaseBuildCheck;
|
|
|
|
interface
|
|
|
|
type
|
|
TReleaseBuildCheck = class
|
|
class function Run: Boolean;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Registry,
|
|
RegistryKeys;
|
|
|
|
{ TReleaseBuildCheck }
|
|
|
|
class function TReleaseBuildCheck.Run: Boolean;
|
|
begin
|
|
with TRegistry.Create do
|
|
try
|
|
if KeyExists(SRegKey_KeymanDebug_CU) then
|
|
begin
|
|
writeln('HKCU\'+SRegKey_KeymanDebug_CU+' key exists. Rename or delete before build.');
|
|
Result := False;
|
|
end
|
|
else
|
|
Result := True;
|
|
finally
|
|
Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|