[TROY Diamond]

Как добавить "задание" в "Назначенные задания" - файл .job (Windows\Tasks)?

[Gnom_aka_Lexander]

Ну как, ну как, сделать так: »

Очень просто. Неужели это у когото может вызывать трудности?

читать дальше »

Код:

AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[*Code]
procedure InitializeWizard();
begin
  WizardForm.WizardBitmapImage.Align := alClient;

  WizardForm.WelcomeLabel1.Hide;
  WizardForm.WelcomeLabel2.Hide;

  with TLabel.Create(WizardForm) do
  begin
    Parent := WizardForm.WelcomePage;
    Caption := WizardForm.WelcomeLabel2.Caption;
    Font := WizardForm.WelcomeLabel2.Font;
    Font.Color := clWhite;
    WordWrap := True;
    Transparent := True;
    SetBounds(ScaleX(40),ScaleY(79),ScaleX(301),ScaleY(92));
  end;

  with TLabel.Create(WizardForm) do
  begin
    Parent := WizardForm.WelcomePage;
    Caption := WizardForm.WelcomeLabel1.Caption;
    Font := WizardForm.WelcomeLabel1.Font;
    Font.Color := clWhite;
    WordWrap := True;
    Transparent := True;
    SetBounds(ScaleX(40),ScaleY(24),ScaleX(301),ScaleY(35));
  end;
end;

А вообще - неужели трудно почитать справку? ее уже и на русский перевели вполне грамотно, по моему.

[TROY Diamond]

1. Значение "AppMutex", - дайте, пожалуйста, полный скрипт с его использованием!

Читай справку, типа скажете...

Вот, что это такое и куда вставлять, - я вообще не понял:

CreateMutex(nil, False, 'MyProgramsMutexName');

CreateMutex(NULL, FALSE, "MyProgramsMutexName");

2. "Определение класса приложения", как это как его определить?

Что это:

читать дальше »

Код:

function NextButtonClick(CurPage: Integer): Boolean; 
var 
sz:Integer; 
s:string; 
h:Longint; 
begin 
Result:=True; 
If CurPage=1 
then 
begin 
h:=FindWindowByClassName('My-Program-WINDOW'); 
If h<>0 then 
SendMessage(h, 16, 0, 0); //Вот это и есть закрытие программы 
end 
else 
If CurPage=6 then

Как мне название своего приложения записать и куда?

Мне нужно, чтобы если приложение запущено появлялось сообщение "Один экземпляр уже запущен", с предложением его закрыть.

А ещё лучше, чтобы приложение ЗАКРЫВАЛОСЬ САМО - ВООБЩЕ БЕЗ ЗАПРОСА, как при установке, так и при удалении...

[TROY Diamond]

Очень просто. Неужели это у когото может вызывать трудности?

А как "наоборот" наложить на все, НО КРОМЕ ПЕРВОЙ И ПОСЛЕДНЕЙ? Один вариант: одну и туже картинку, второй на каждую страницу разные...

СПАСИБО! Да, возникают может с остальными вопросами поможете?!

А вообще - неужели трудно почитать справку? ее уже и на русский перевели вполне грамотно, по моему.

Читал... и вообще не понял:

читать дальше »

CreateMutex(nil, False, 'MyProgramsMutexName');

CreateMutex(NULL, FALSE, "MyProgramsMutexName");

И это, что:

Код:

function NextButtonClick(CurPage: Integer): Boolean; 
var 
sz:Integer; 
s:string; 
h:Longint; 
begin 
Result:=True; 
If CurPage=1 
then 
begin 
h:=FindWindowByClassName('My-Program-WINDOW'); 
If h<>0 then 
SendMessage(h, 16, 0, 0); //Вот это и есть закрытие программы 
end 
else 
If CurPage=6 then

[TROY Diamond]

Где взять дополнительные языки: Украинский, белорусский, например?

и почему когда я добавляю множество языков в секцию Lahguages, при установке можно выбрать, только Английский и русский?

[olmak]

Есть такая задача - перепаковать дистрибутив flylinkdc++(FlylinkDC-x86-r407-build-8559) c тем , чтобы удалить из него ненужный Yandex Bar . Распаковал его c помощью Universal Extractor 1.61 , нашел в папке tmp YandexPackSetup-flylinkdc2-20111031.exe - его удаляем . Но вот проблема , при попытке перекомпилировать (использую Inno Setup v 5.4.2 RUS Portable) ругается Required function or procedure 'Postfix' no found в строке AppName=FlylinkDC++{code:Postfix| }
Ссылок на postfix немало . Что-то внятное по поводу где взять функцию postfix точно подходящую в данном случае в Сети не нашел. Может опытные товарищи будут так добры направить на путь истинный ?

[R.i.m.s.k.y.]

olmak, Postfix - это процедура из секции Code, она вытаскивается в лучшем случае бинарником
короче никак

[XXXler]

olmak
Гугл

Код:

function Postfix(Separator: String): String; 
 begin 
   if Is64BitInstallMode then begin 
     Separator := Separator + 'x64'; 
     Result := Separator; 
   end; 
 end;
end;

[TROY Diamond]

Очень просто. Неужели это у кого-то может вызывать трудности?

читать дальше »

AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[*Code]
procedure InitializeWizard();
begin
WizardForm.WizardBitmapImage.Align := alClient;

WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;

with TLabel.Create(WizardForm) do
begin
Parent := WizardForm.WelcomePage;
Caption := WizardForm.WelcomeLabel2.Caption;
Font := WizardForm.WelcomeLabel2.Font;
Font.Color := clWhite;
WordWrap := True;
Transparent := True;
SetBounds(ScaleX(40),ScaleY(79),ScaleX(301),ScaleY(92));
end;

with TLabel.Create(WizardForm) do
begin
Parent := WizardForm.WelcomePage;
Caption := WizardForm.WelcomeLabel1.Caption;
Font := WizardForm.WelcomeLabel1.Font;
Font.Color := clWhite;
WordWrap := True;
Transparent := True;
SetBounds(ScaleX(40),ScaleY(24),ScaleX(301),ScaleY(35));
end;
end;

А на последней странице?! Там ведь должно быть как "обычно" или же эту картинку надо "подгонять"!

Нужно, чтобы, либо эта же картинка была, либо "обычная" (164x314) А то сплюснуто получилось - используется большая картинка, но подогнана под стандарт.

НАВЕРНОЕ, НАДО, НАОБОРОТ, ЧТОБЫ ОБЫЧНАЯ, "ТАК И БЫЛА", А "БОЛЬШАЯ" - ПОДГРУЖАЛАСЬ, НАПРИМЕР ИЗ TEMP...

Или одну и туже большую, но в начале и в конце и надо учитывать, что в конце всё "по-другому" и "Запустить программу" ещё есть!

[Gnom_aka_Lexander]

А на последней странице?! Там ведь должно быть как "обычно" или же эту картинку надо "подгонять"! »

Ты сам хоть чего-нибудь делать будешь? Если не видишь, чего в трех строчках написано, брось это дело, ты не хочешь учится. А без желания ничего не получится. программирование не дом - дом можно из кусков наляпать как попало, и пускай стоит. Программу из кусков не наляпаешь, нужно ЧИТАТЬ И ПОНИМАТЬ то. что читаешь.
Делай так-же, как на первой сделано. Для этого есть абсолютно все, что тебе нужно в приведенном коде.