Подскажите как зделать, что бы при запуске установки в пути установки были показанны только Flash устройства!!
Если Флешек нет то желательно, что-бы вылезло окошко с предупреждением.
*****
И помогите переделать этот скрипт суть его заключается в этом - (Проверка на присутствие и целостность определенного файла, находящего рядом с инсталлятором)
Можно зделать так, что бы инсталятор проверял MD5 не одного файла, а группы файлов!
...пробовал дописывать ещё несколько строк - при компиляции ошибки не выдаёт но работает проверка MD5 только на один файл.
читать дальше »
[code]
function InitializeSetup(): Boolean;
var
ResultCode: Integer;
MD5,ResultStr:string;
hWnd: Integer;
begin
Result:=True;
if not FileExists(ExpandConstant('{src}')+'\Kindly.nfo') then
begin
MsgBox('"Kindly.nfo" is not found in one dir with installer.'#13#13'Please place "Kindly.nfo" and run installer again.', mbError, mb_OK);
Result:= False;
end
else
begin
MD5 := GetMD5OfFile(ExpandConstant('{src}\Kindly.nfo'));
If not (MD5 = 'cee34d7975e3e97c6a8f50fe7276a8de') then
begin
MsgBox('MD5 hash of "Kindly.nfo" is not valid.'#13#13'You are probably using web shit!'#13#13'I''m closed now, bye-bye
.', mbCriticalError, mb_OK);
Result:=False;
end;
end;
end;
*****
