ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста. Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006

ckotick Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору RomanTim Цитата: Сделай передачу строк через PChar - как это в C делается Попробовал - че-то не так получилось. Хотя, наверное, переделаю в конце-концов. А вообще, после правильного подключения модуля все заработало корректно. Ну и FastShareMem тоже гораздо более универсален, чем ShareMem+borlndmm.dll   Всего записей: 158 | Зарегистр. 01-08-2005 | Отправлено: 11:46 26-06-2006

OOD Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору люди выручайте никогда неработал с генератором случайных чисел.... Как осуществить проверку с соответствием т.е. чтбы генератор RND генерировал числа в промежутке от 1 до 5 и в дальнейшем выпонял различный условия в зависимости от сгенерированного числа.. т.е. если 1 ,значит условия ..... если 2 , значит условие 2... если 5, значие условия 5...   Как это сделать помогите ведь для Вас -это 5 секунд я уверен Всего записей: 3393 | Зарегистр. 20-05-2006 | Отправлено: 09:51 27-06-2006

OrlangurStep Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Как программы заменяющие стандартный диспетчер задач заставляют винду запускать их? Можно реализовать это на Delphi 7. Конкретно для NT|2000|XP. Всего записей: 1392 | Зарегистр. 08-04-2006 | Отправлено: 10:20 27-06-2006

OdesitVadim Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору OrlangurStep Можно просто заменить старый taskmgr.exe своим, новым Правда старый лучше сохранить и в dllCache тоже посмотреть ---------- Press any key to continue or any other key to exit Пишите так, чтобы не было стыдно за нобелевскую премию. Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 12:14 27-06-2006

OOD Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Nightcrawler ckotick       Всё работает   Код:   procedure TForm1.FormCreate(Sender: TObject); var    r,s :Byte; begin  Randomize;   r := Random(5)+1;  case r of 1: begin ShowMessage('1') end; 2: begin ShowMessage('2') end; 3: begin ShowMessage('3') end; 4: begin ShowMessage('4') end; 5: begin ShowMessage('5') end; end;   end;   end.         Спасибо , а если сделать так, если сделать через массив :     Код:     procedure TForm1.FormCreate(Sender: TObject); var      a :array [1..5] of Byte;      r,i :Byte;      b :set of Byte; begin b := [];       i := 1;      repeat             r := Random(5)+1;             if not (r in b) then             begin                   Include(b, r);                   a[i] := r;                   Inc(i);             end;       until i = 6;   end;     Всего записей: 3393 | Зарегистр. 20-05-2006 | Отправлено: 13:22 27-06-2006 | Исправлено: OOD, 13:30 27-06-2006

OOD Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору greenpc Всё спасибо с а массивом перепудрил и так отлично работает Всего записей: 3393 | Зарегистр. 20-05-2006 | Отправлено: 15:23 27-06-2006

OOD Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору проблема такая существует приложение внутри него WebBrowser Со страничьками. Как передать WebBrowseru нажатие клавиш? пробовал так: Подробнее...   не получается   пробовал так:   Код:   WebBrowser1.Perform(WM_CHAR, Ord('3'), 0);   или   Код: SendMessage(WebBrowser1.Handle, WM_CHAR, Ord('A'), 0);   аднако если сделать так : SendMessage(memo1.Handle, WM_CHAR, Ord('A'), 0); то всё получаетя мемо принимает клавиши а вот браузер нет? почему? для кода используем тег [more] не ставь много переводов строк, а то слишком большой пост получается Всего записей: 3393 | Зарегистр. 20-05-2006 | Отправлено: 16:04 28-06-2006 | Исправлено: ShIvADeSt, 01:57 30-06-2006

ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста. ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:59 30-06-2006

Страницы: 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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование