Indigo Rose AutoPlay Media Studio (часть 2) - [91] :: Программы

парни посмотрите плиз где я ошибся
код значит делает следующее, проверяет какой windows установлен, затем проверяет установлены ли Adobe Acrobat Reader, Internet Explorer и Windows Media Player и какая версия установлена если все норм то запускает приложение

одним словом вот код

Код:

instances_of_file = 0;
file_to_check_for = "7z460.exe";
processes = Window.EnumerateProcesses();
for j, file_path in processes do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
instances_of_file = instances_of_file + 1;
hWnd = j;
break;
end
end
strAcrobatVer = ir_GetAcrobatVersion();
strIEVer = ir_GetIEVersion()
strWMPVer = ir_GetWMPVersion()
OS_Name = System.GetOSName();
if (os_name =="Windows Vista") or (os_name =="Windows Server 2008") or (os_name =="Windows XP") or (os_name =="Windows Server 2003") or (os_name =="Windows 2000") then
    if (strAcrobatVer == "0.0.0.0") or (String.CompareFileVersions(strAcrobatVer, "7.0.9.0") == -1) or (strWMPVer == "0.0.0.0") or (String.CompareFileVersions(strWMPVer, "7.1.0.0") == -1) or (strIEVer == "0.0.0.0") or (String.CompareFileVersions(strIEVer, "5.5.0.0") == -1) then
        result = DialogEx.Show("Dialog1", true, nil, nil);
    else
        if instances_of_file > 0 then
            Window.SetOrder(hWnd, HWND_TOP);
        else
            File.Run("AutoPlay\\Docs\\7z460.exe", "", "", SW_SHOWNORMAL, false);
        end
        Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);
    end
elseif (os_name =="Windows NT 4") or (os_name =="Windows NT 3") or (os_name =="Windows ME") or (os_name =="Windows 98") or (os_name =="Windows 95") then
    result = Dialog.Message("Error", "Your message here.", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
    if (result == IDOK) then
        Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);
    end
else
    if (strAcrobatVer == "0.0.0.0") or (String.CompareFileVersions(strAcrobatVer, "7.0.9.0") == -1) and (strWMPVer == "0.0.0.0") or (String.CompareFileVersions(strWMPVer, "7.1.0.0") == -1) and (strIEVer == "0.0.0.0") or (String.CompareFileVersions(strIEVer, "5.5.0.0") == -1) then
        result = DialogEx.Show("Dialog1", true, nil, nil);
    else
        if instances_of_file > 0 then
            Window.SetOrder(hWnd, HWND_TOP);
        else
            File.Run("AutoPlay\\Docs\\7z460.exe", "", "", SW_SHOWNORMAL, false);
        end
        Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);
    end
end

Модерирует : gyra, Maz
Widok (30-01-2009 12:11): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102