Регистрация Вход 

Имя пользователя:   Пароль:   Автоматически входить при каждом посещении  

Начать новую тему Ответить на тему
Найти:




Автор Сообщение
 Заголовок сообщения: Прикольные программы на Delphi + исходники
СообщениеДобавлено: 14 мар 2006 20:36 pm 
Не в сети
Постоянный посетитель
Аватар пользователя

Зарегистрирован: 04 июл 2005 16:14 pm
Сообщений: 522
Откуда: Щёкино
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
Выкладываем свои проги... 8)


Вложения:
Прикольная прога.rar [53.9 KiB]
Скачиваний: 245
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 14 мар 2006 22:44 pm 
Не в сети
Аксакал
Аватар пользователя

Зарегистрирован: 08 мар 2006 18:27 pm
Сообщений: 2154
Пункты репутации: 30

Добавить пункт репутацииВычесть пункт репутации
Сначало ничего не понял, вроде все как было так и осталось, но при попытке найти в панеле задач нужное приложение возникло двоякое чувство. Сначала высказал в твой адрес пару не очень культурных слов (после закрытия проги кстати тоже, мог бы сделать чтоб после жавершения процесса все возвращалось в первоначальное состояние) а вообще и правда прикольно. Думаю больше говорить не стоит, а то другим будет не интересно, только совет перед запуском проги откройте побольше окон :)

PS тема вроде называется "Прикольные программы на Delphi + исходники ". Что-то я их не заметил, хотя можно устроить конкурс кто напишет тоже самое, но при меньшем объеме файла, а потом поделимся опытом.


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 15 мар 2006 23:14 pm 
Не в сети
Постоянный посетитель
Аватар пользователя

Зарегистрирован: 27 ноя 2005 12:04 pm
Сообщений: 641
Откуда: Щёкино, старый город
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
Конечно не в тему, но я модератор, так что меня никто не забанит. И так....
Сегодня стучится ко мне в МАгент парень, 17 лет от роду с ником, webmaster01@mail.ru и спрашивает "Хакер ли я", на что я ему честно отвечаю что нет. Он пишет: "Хочешь посмотреть программу которую я вчера написал". На мой резонный вопрос, о том какая программа, он говорит что это архив программы, написанной на днлфи размером 1кб. Т.е. он меня за идиота держит. Я включаю дурака и начинаю у него выяснять как он смог написать на delphi программу такого размера и в чём её суть. После нескольких вопросов он раскололся: "Я хакер и вчера написал программу которая 1500 запускает nfs most wanted и заставляет зависнуть компьютер". На резонный вопрос, о том, как быть если у меня нетnfs? Он пробубнил про то что у всех она стоит, а у кого не стоит - те слабаки. Ещё оказалось что программа из себя представляет .bat файл и что самое смешное руками прописанно 1500 запусков :) Про цикл парень не слышал :) Но на этом всё не закончилось :) Я у него спрашиваю в чём заключается его хакерство. На что он просит мой ip. Смеха ради отсылаю ему 127.0.0.1. Он что-то пыхтел минут 10, после чего спросил как у меня дела, услышав что у менё всё нормально, обиделся и сказал что я назвал ему неправильный ip :) Но и на этом он не успокойлся. Когда я сказал ему что знаю delphi, он слёзно умоляя сделать и прислать ему текстовый файл с последовательностью чисел от 0000 до 9999. Оказалось, это ему потредовалось для взлома почтового ящика друга :) Жаль потом он пропал в оффлайн :( Наверно время в интрнете закончилось. Оставил только адрес своего сайта. Но это отдельный разговор.... Не буду адрес пиарить. Вот та молодая шпана, что сотрёт нас с лица земли :)

_________________
Смешная надпись в подписи.


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 16 мар 2006 01:04 am 
Не в сети
Профессор Мориарти
Аватар пользователя

Зарегистрирован: 07 май 2005 21:17 pm
Сообщений: 6624
Пункты репутации: 123

Добавить пункт репутацииВычесть пункт репутации
Alex
убери урл из подписи сам...

_________________
Ведь родился и вырос на улице Ленина И меня зарубает время от времени. (с) Ноль


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 16 мар 2006 01:29 am 
Не в сети
Профессор Мориарти
Аватар пользователя

Зарегистрирован: 07 май 2005 21:17 pm
Сообщений: 6624
Пункты репутации: 123

Добавить пункт репутацииВычесть пункт репутации
Oleg писал(а):
"Я хакер и вчера написал программу которая 1500 запускает nfs most wanted и заставляет зависнуть компьютер".


Помню, помню.

Как раз где-то на этом уровне 15 - 17 лет я тоже хотел, что бы у всех окон были эллипсообразные формы и просто доставал всех вопросом как же это сделать на Delphi?

Однажды один человек по сети ФИДО удовлетворил мое любопытство...

( человек удоволетворил по фидо! жуть... )

...он прислал код программы аж на 2х страницах (экранах)

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

Я был просто на 7-ом небе от счастья, когда наконец-то мне удалось сделать круглое окно.
Настоящее. Не квадратное, не прямоугольное, а круглое! И даже эллипсообразное!!!

На этом не остановился и продолжал делать окна "ромбообразными" и в форме "звезд".
И главное, что было огромное желание всем это показать!
Помню Саше Ермолову показывал, а он наверное думал, что крыша у меня совсем едет.

_________________
Ведь родился и вырос на улице Ленина И меня зарубает время от времени. (с) Ноль


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 16 мар 2006 11:42 am 
Не в сети
Постоянный посетитель
Аватар пользователя

Зарегистрирован: 27 ноя 2005 12:04 pm
Сообщений: 641
Откуда: Щёкино, старый город
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
Так там же две строчки кода:CreateEllipticRGN и SetWindowRGN. Зачем два экрана кода? Он тебя напарил! Ты всю жизнь жил в обмане! Я открыл тебе глаза!

_________________
Смешная надпись в подписи.


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 19 мар 2006 05:48 am 
Не в сети
Постоянный посетитель
Аватар пользователя

Зарегистрирован: 04 июл 2005 16:14 pm
Сообщений: 522
Откуда: Щёкино
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
Да исходник забыл... скину... только ща делфа не стоит, поэтому могу перепутать... так что потом выложу... И ещё одну прогу добавляю... CrazyMouse... чё делает сами посмотрите... :-)


Вложения:
CrazyMouse.rar [162 KiB]
Скачиваний: 160
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 19 мар 2006 18:45 pm 
Не в сети
Аксакал
Аватар пользователя

Зарегистрирован: 08 мар 2006 18:27 pm
Сообщений: 2154
Пункты репутации: 30

Добавить пункт репутацииВычесть пункт репутации
Все тебе лишь бы людям систему попортить и заставить перезагружаться. Ведь была задумка поставить все на свои места
procedure TForm1.Button2Click(Sender: TObject);
begin
SetSystemCursor(GetCursor, OCR_NORMAL);
end;

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


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 22 мар 2006 23:26 pm 
Не в сети
Постоянный посетитель
Аватар пользователя

Зарегистрирован: 27 ноя 2005 12:04 pm
Сообщений: 641
Откуда: Щёкино, старый город
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
Serg2006
Вы, всё критикуете? Сами бы чем порадовали. Или вы из серии рыбаков-теоретиков? Или просто не до щалостей, базы серьёзные разрабатываете?

_________________
Смешная надпись в подписи.


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 24 мар 2006 21:39 pm 
Не в сети
Постоянный посетитель
Аватар пользователя

Зарегистрирован: 04 июл 2005 16:14 pm
Сообщений: 522
Откуда: Щёкино
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
Serg2006 писал(а):
Все тебе лишь бы людям систему попортить и заставить перезагружаться. Ведь была задумка поставить все на свои места
procedure TForm1.Button2Click(Sender: TObject);
begin
SetSystemCursor(GetCursor, OCR_NORMAL);
end;

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


Ну так сделай топик "Полезные проги" и выкладывай там свои, хоят я с трудом верю что ты там исходник оставишь... А этот раздел вроде как называется "Прикольные проги на Delphi".... Delphi кстати скоро сдохнит... точнее Pascal а делфи сомо собой... года через 2-3

Если бы хотел бы людям жизнь попортить, то наверное туда бы прилепил AutoRun... и расплодил бы его по всему компу... а так это даже шалостью не назовёшь... так детский лепет...


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 17 май 2006 19:56 pm 
Не в сети
Гость
Аватар пользователя

Зарегистрирован: 17 май 2006 19:18 pm
Сообщений: 4
Откуда: не помню...=)
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
Товарищ Alex таких прог по всей локалке рассовал.....
Особенно мне Matrix нравится.......


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 17 май 2006 21:22 pm 
Не в сети
Постоянный посетитель
Аватар пользователя

Зарегистрирован: 04 июл 2005 16:14 pm
Сообщений: 522
Откуда: Щёкино
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
Не по всей... а тока на компе у меня...
А вам дорогой SaToR нехуя запускать всё подрят... головой надо думать... :-)


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 17 май 2006 21:25 pm 
Не в сети
Гость
Аватар пользователя

Зарегистрирован: 17 май 2006 19:18 pm
Сообщений: 4
Откуда: не помню...=)
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
А вам товарищ Alex нехуй её рассовывать........


 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: 17 май 2006 21:28 pm 
Не в сети
Постоянный посетитель
Аватар пользователя

Зарегистрирован: 04 июл 2005 16:14 pm
Сообщений: 522
Откуда: Щёкино
Пункты репутации: 0

Добавить пункт репутацииВычесть пункт репутации
А я не рассовываю... я просто на компе держу исходник... а exe уже удалил... а то сестра такая же тупая как ты включит... а вырубить не знает...


 Профиль  
 

Начать новую тему Ответить на тему





Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0


cron

Город Щекино - Прикольные программы на Delphi + исходники - Интернет, программное обеспечение, компьютеры - Щекинский район, Тульская область

Сайт города Щекино, Щекинского района, Тульской области. На сайте города Щекино Вы найдете каталог предприятий и учреждений города. Посмотрите старые фотографии города Щекино. Найдете единомышленников для общения на любые темы. Ознакомитесь с последними новостями города Щекино и Щекинского района. www.schekino.net -- это территория свободного общения!