ComradG
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:
Увы, но как раз наоборот. В самой винде даже при отсутсвии определенного скина можно рисовать умопомрачительные интерфейсы как для инсталлеров, так для приложений. Если ты не сталкивался с С++, наверное, с моей стороны это будет литьем воды и  рассказывать тебе че к чему, так что хочешь подробностей пиши в личку. Отвечу. Тем более, что уже в сентябре-октябре я выложу свою программку написанную для инно - очень смахивает на визуальную среду разработки с базой данных. Но так как мне все наотрез отказались (исключая Dobrov и Kindly) помогать, то... сам понимаешь.
Добавлено:
Цитата:| И в случае положительного результата, предлагал удалить или обновить. |
function InitializeSetup(): Boolean;
var
ResultCode: Integer;
ResultStr:string;
begin
Result:=True;
begin
If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My program_is1', 'UninstallString', ResultStr)
then
begin
If ResultStr<>''
then
begin
ResultStr:=RemoveQuotes(ResultStr);
if MsgBox('Setup has detected that this program is already installed.' #13#13 'Would you like to uninstall the existing copy before continuing?', mbConfirmation, MB_YESNO) = idYes
then
if not Exec(ResultStr, '/silent', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
then
MsgBox('Uninstall Error. ' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Probably, uninstall files was moved, removed or renamed.', mbError, MB_OK);
end;
end;
end;
end;
|
