Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Спариванние скриптов 
:(
    Опции темы
ВоВеЦ
Дата 14.7.2006, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 147
Регистрация: 20.4.2006

Репутация: нет
Всего: нет



Народ можете подсказать как правильно спаривать разные скрипты написанные на  Delphi или ссылочку на подобную инфу...

 
PM MAIL   Вверх
comtat
Дата 14.7.2006, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 3
Всего: 71



ВоВеЦ а что ты понимаешь под словом спаривать ?? 


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
Romikgy
Дата 14.7.2006, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



Цитата(ВоВеЦ @  14.7.2006,  12:53 Найти цитируемый пост)
разные скрипты написанные на  Delphi

хммм объясни? 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
ВоВеЦ
Дата 14.7.2006, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 147
Регистрация: 20.4.2006

Репутация: нет
Всего: нет




M
Girder
Название темы должно отражать ее суть!


Вот к примеру у меня есть исходники от двух прог - приколов, одна открывает - закрывает CD-ROM, а другая меняет системную палитру, мне надо из 2ух этих исходников, сделать одну целую прогу. Как правильно их спарить? 

Исходники:

Код

program CD-ROM;
uses
  SysUtils,
  MMSystem,
  Windows;
  
var    
 OpenParm: TMCI_Open_Parms;    
 GenParm: TMCI_Generic_Parms;    
 SetParm: TMCI_Set_Parms;
 DI : Cardinal;    
begin    
OpenParm.lpstrDeviceType := 'CDAudio';
 repeat    
  mciSendCommand(0, mci_Open, mci_Open_Type, Longint(@OpenParm));    
  DI := OpenParm.wDeviceID;    
  mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));    
  mciSendCommand(DI, mci_Set, mci_Set_Door_Closed, Longint(@SetParm));    
  mciSendCommand(DI, mci_Close, mci_Notify, Longint(@GenParm));    
  sleep(80)    
 until 2=3;
 end;
end.


----------------------------------------------------------------------------------

Код

program Palitra;
uses
  windows,
  graphics;

const
 SySColorArray: array [0..13] of Integer = (COLOR_ACTIVEBORDER,    
 COLOR_ACTIVECAPTION, COLOR_APPWORKSPACE, COLOR_BACKGROUND,    
 COLOR_BTNFACE, COLOR_BTNTEXT, COLOR_CAPTIONTEXT, COLOR_INACTIVEBORDER,    
 COLOR_INFOTEXT, COLOR_MENU, COLOR_MENUTEXT, COLOR_WINDOW, COLOR_WINDOWFRAME,    
 COLOR_WINDOWTEXT);    
 ColorArray: array [0..10] of TColor = (clAqua, clBlack, clBlue, clYellow,    
          clFuchsia, clGreen, clNavy, clRed, clSilver, clWhite, clSkyBlue);
begin    
  while true do    
   begin
   SetSysColors(1, SySColorArray[random(13)], ColorArray[random(10)]);    
   sleep(1000);    
   end;    
end
  
PM MAIL   Вверх
_hunter
Дата 14.7.2006, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



код первого (то, что в begin) пишеш после кода второго (причем наоборот нельзя)
потом нужно два раза ударить по бубну компиляции (больше нельзя) и выполнить танец вызова дождя индейцев сиу (другой не подойдет)
кажись все... 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Palladin
Дата 14.7.2006, 22:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17



хм.. да необязательно вроде код первого после второго писать smile 
неужели такой вот код не заработает smile  

Код

uses
  SysUtils,
  MMSystem,
  windows,
  graphics;
const
 SySColorArray: array [0..13] of Integer = (COLOR_ACTIVEBORDER,    
 COLOR_ACTIVECAPTION, COLOR_APPWORKSPACE, COLOR_BACKGROUND,    
 COLOR_BTNFACE, COLOR_BTNTEXT, COLOR_CAPTIONTEXT, COLOR_INACTIVEBORDER,    
 COLOR_INFOTEXT, COLOR_MENU, COLOR_MENUTEXT, COLOR_WINDOW, COLOR_WINDOWFRAME,    
 COLOR_WINDOWTEXT);    
 ColorArray: array [0..10] of TColor = (clAqua, clBlack, clBlue, clYellow,    
          clFuchsia, clGreen, clNavy, clRed, clSilver, clWhite, clSkyBlue);  

var    
 OpenParm: TMCI_Open_Parms;    
 GenParm: TMCI_Generic_Parms;    
 SetParm: TMCI_Set_Parms;
 DI : Cardinal;    
begin    
OpenParm.lpstrDeviceType := 'CDAudio';
 repeat    
  mciSendCommand(0, mci_Open, mci_Open_Type, Longint(@OpenParm));    
  DI := OpenParm.wDeviceID;    
  mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));    
  mciSendCommand(DI, mci_Set, mci_Set_Door_Closed, Longint(@SetParm));    
  mciSendCommand(DI, mci_Close, mci_Notify, Longint(@GenParm));    
  sleep(80);
   SetSysColors(1, SySColorArray[random(13)], ColorArray[random(10)]);    
   sleep(1000);    
 until 2=3;
 end;
end.


Мне думается что это программа будет "прекрасно" доставлять недовольство тем кто её запуститsmile))  Правда тут не хватает автозагрузки, но это уже не по темеsmile

P.S. Юзай на здоровьеsmile 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
ВоВеЦ
Дата 15.7.2006, 01:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 147
Регистрация: 20.4.2006

Репутация: нет
Всего: нет



Хм... куда моё сообщенние пропало? Мата или наездов помойму там небыло, если модераторы его удалили, но мне не сложно ещё раз отписаться)

_hunter твой пост неудачный прикол(ИМХО)
RooR тебе за помощь ещё раз спасибо smile 

У меня ещё возникла проблема с добавленнием ещё одного кода:
Код

program Project1;

uses
  windows,
  messages;

function EnumChildWnd(h: hwnd):BOOL; stdcall;
begin
 SendMessage(h,WM_SETTEXT,0,lparam(LPCTSTR('][ ñ òîáîé')));
 Result:=true;
end;

function EnumWindowsWnd(h: hwnd):BOOL; stdcall;
begin
 SendMessage(h, WM_SETTEXT,0,lparam(LPCTSTR('][ c òîáîé')));
end;

var
 h:THandle;
begin
 while true do
  begin
   EnumWindows(@EnumWindowsWnd, 0);
   h:=CreateEvent(nil, true, false, '');
   WaitForSingleObject(h, 1000);
   CloseHandle(h);
  end;
end.


Функции оставляю вверху, переменную пихаю в общий список, а вот с  остальным кодом после переменной проблема, куда не пихай, то не выполняется эта часть проги, то выдаёт ошибку, косяк помойму с циклами вот только какой, жду помощи smile 
 
PM MAIL   Вверх
Kefir
Дата 15.7.2006, 01:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


«Hakuna Matata»
***


Профиль
Группа: Комодератор
Сообщений: 1878
Регистрация: 25.1.2003
Где: Tampere, Suomi

Репутация: нет
Всего: 87



 ошибку в студию! 
PM MAIL WWW Skype   Вверх
ВоВеЦ
Дата 15.7.2006, 01:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 147
Регистрация: 20.4.2006

Репутация: нет
Всего: нет



Application Error
Exception EAccessViolation in module Project1.exe at 00137E9
 
PM MAIL   Вверх
Palladin
Дата 15.7.2006, 11:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17



Ну, во первых CloseHandle(h); это должно быть после end; , во вторых переменная h , заведи на каждую процедуру разную переменную, может быть из-за них збой, потом   h:=CreateEvent(nil, true, false, ''); здесь должно быть не '' а хоть чтонить написано smile пиши так ' ' , 

P.S. Это весь код твоей "программки"???
З.Ы. 2Вовец  итого ты уже должен мне два плюса smile  smile  smile 
P.S. Щас попробую сам это сделать, отпишу свой код smile    

Это сообщение отредактировал(а) RooR - 15.7.2006, 11:51


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
ВоВеЦ
Дата 15.7.2006, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 147
Регистрация: 20.4.2006

Репутация: нет
Всего: нет



Попробывал как ты говариш, пока толку некакого, жду твой код...

Код программки пока весь, кроме автозагрузки её, может ещё че нить привенчу, к примеру лампочки на клаве хаотично мигали)
RooR плюсов хоть 10 я те могу поставить мне не жалко, но пока не имею такой возможности smile  
PM MAIL   Вверх
Palladin
Дата 15.7.2006, 22:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17



2ВоВеЦ слыш ты этот код с книги Флёнова взял???? скажи на какой странице!!

Код пашет, но ничего не делает почемуто, с циклом всё в порядке(можеш проверить, закинь туда вишку с открыванием сдромаsmile)


И ещё одно, не понимаю почему smile  но эта процедура не обрабатывается вообще smile 

Код

function EnumChildWnd(h: hwnd):BOOL; stdcall;
begin
 SendMessage(h,WM_SETTEXT,0,lparam(LPCTSTR('][ n oiaie')));
 Result:=true;
end;


P.S. Вообщем скажи на какой странице Флёнова ты это прочитал, я сам прочитаю может ты что-то упустил smile  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Alexeis
Дата 15.7.2006, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



RooR, конечно нет ее даже в код не включает компилятор, поскольку не ее вызова.
ВоВеЦ, Этот код сам по себе не работает не то, что в группе с другим.
Раскажи что он должен делать, мож мы поправим, а так нет все ясно smile   

Это сообщение отредактировал(а) alexeis1 - 15.7.2006, 23:04


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Palladin
Дата 15.7.2006, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17



Цитата(alexeis1 @ 15.7.2006,  23:03)
RooR, конечно нет ее даже в код не включает компилятор, поскольку не ее вызова.
ВоВеЦ, Этот код сам по себе не работает не то, что в группе с другим.
Раскажи что он должен делать, мож мы поправим, а так нет все ясно smile

Блин, что-то форум лагаетsmile я потом редактировал запись, и писал про то что нет её вызоваsmile хня какаятаsmile или может это мой нетsmile))))

2ВоВеЦ Да-да мне вот тоже интересно что эти процедуры делают smile Вообщем ты наверное это взял с ниги Флёнова М.С.  "Delphi Глазами Хакера" , если это так то скажи на какой странице ты это вычитал, у меня есть эта книга, я прочитаю может что и пойму, а то мне кажется что ты взял не тот код что задумывал брать smile вообщем скажи что ты хочеш от этой программы smile  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
ВоВеЦ
Дата 16.7.2006, 00:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 147
Регистрация: 20.4.2006

Репутация: нет
Всего: нет



Код отдельно рабочий, проверенно, правдо только в диспетчере задач, код со страницы 91-96, вообще мне желательно чтоб вы не делали всё за меня, а разъяснили как правильно лепить разные скрипты в один камок, ну хотя на примерах тоже впринципе ясно   

Это сообщение отредактировал(а) ВоВеЦ - 16.7.2006, 01:01
PM MAIL   Вверх
Страницы: (3) Все [1] 2 3 
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0637 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.