[Flop88]

Короче говоря. На форме есть кнопка при нажатии на которую выводится сообщение в диалоге
Вот единственное, что написано в коде ;(

Код:

procedure TForm1.Button6Click(Sender: TObject);
begin
version;
end;

А сообщение есть при нажатии. Как изменить его. Друг прислал форму с кнопкой, а как текст изменить не говорит. Также это сообщение высвечивается, когда закрываешь приложение, но в FormClose и т.п не написано ничего

[angvelem]

Весь код давай.

[Flop88]

Код ниже Ну там не в коде походу

[Flop88]

Там не в коде. Уже 100 раз пересмотрел

[angvelem]

Воспользуйся кнопкой "КОД" - совсем не читабельно.

Этот код ни о чём не говорит?

Код:

procedure TForm1.btn6Click(Sender: TObject);
begin
MessageBox(Handle,PChar('Для изменения частоты флуда введите любое число[По умолчанию 1]'+#10#13+'Например: Если ввести число 1, то будет отправлено 1000 сообщений в 1 секунду.'+#10#13+
'Если ввести число 1000, то будет отправлено 1 сообщение в 1 секунду.'),title,MB_OK + MB_ICONINFORMATION);
end;

[Flop88]

Блин, научиться бы ещё удалять свои старые сообщения

[Flop88]

Сообщение от angvelem

Воспользуйся кнопкой "КОД" - совсем не читабельно.

Этот код ни о чём не говорит?

Код:

procedure TForm1.btn6Click(Sender: TObject);
begin
MessageBox(Handle,PChar('Для изменения частоты флуда введите любое число[По умолчанию 1]'+#10#13+'Например: Если ввести число 1, то будет отправлено 1000 сообщений в 1 секунду.'+#10#13+
'Если ввести число 1000, то будет отправлено 1 сообщение в 1 секунду.'),title,MB_OK + MB_ICONINFORMATION);
end;

btn6 и Button6 разные кнопки

[angvelem]

Вижу, но

Весь код давай.

это значит в архиве.

[Flop88]

http://rghost.ru/42769259

[angvelem]

Как же радостно взвыл антивирус.

Говоришь неизвестно откуда и что выводится? А это:

Код:

unit sends ;
interface
uses Windows;
procedure version;
const
ver = 'by okeeey^';
title = 'PROGRAM';
implementation

procedure version;
begin
 MessageBox(0,ver,title,MB_OK + MB_ICONINFORMATION);
end;

end.

[Flop88]

Там просто флудер и спамер для скайпа )) По информатике проект делал и просил друга чуть-чуть подредактировать, а он копирайт не хочет убирать

[Flop88]

Где ты это нашёл ?

[angvelem]

Я тебе выше написал, откуда берётся сообщение.

Юнит sends.pas. Эх - там же в первой строке это написано.

[Flop88]

Спасибо. Родина вас не забудет

[angvelem]

Насмешил...