iglezz, всеравно ничерта у меня не получается, инсталятор всьо время ругается, я методом перебора пробую чот сочинить, а понять как оно работает не могу, ети все (if, if not, then, begin, else, var, и другие)
code
[code]
function GetSHA1OfFile(const S: String): String;
var SHA1: String;
begin
SHA1 := GetSHA1OfFile('{reg:HKLM\SOFTWARE\Code,PATH_APPLICATION}') +'\Test.exe';
if SHA1 = '9ab696a37604d665dc97134dbee44cfe70451b1a' then
begin
Result:= True;
end
else
begin
MsgBox('что делать?', mbCriticalError, MB_OK);
Result:= False;
end;
end;
тут два варианта, или не компилируется, или устанавливается без проверки хеш сум.... может поможеш разобратся.
