Пишем программу вместе.

← →
Prohodil Mimo © (2005-09-20 16:23) [0]

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

PROGRAM KuchaMala;

{cюда положим то что накатается}

END.

каждый пишет по одной - две строки.
всё пошем в програм, модуля не пишем, процедуры можно :о)

вперёд !!! :о)

PROGRAM KuchaMala;

← →
Antonn © (2005-09-20 16:26) [1]

halt
:)

← →
Digitman © (2005-09-20 16:28) [2]

Здесь знаешь сколько таких МимоПроходящих было ?)
КучаМала)

Один Лану искал до мокрых штанов, другой хамил, третий песни пел ..

← →
Kerk © (2005-09-20 16:34) [3]

uses Windows, SysUtils;

← →
Antonn © (2005-09-20 16:35) [4]

Kerk © (20.09.05 16:34) [3]
уже в принцепе все равно, но продолжу:)

type

← →
Seg (2005-09-20 16:39) [5]

htp.htmlOpen;
htp.bodyOpen;

← →
Alex* © (2005-09-20 16:41) [6]

Ну и я до кучи. Может куда приминимо будет
i:integer;

← →
Vlad Oshin © (2005-09-20 16:43) [7]

{
Написано толпой. 2005-2005г.г.
Все права защищены.
Распространение карается отсидкой в психушке.
}

← →
oldman © (2005-09-20 16:44) [8]

PROGRAM KuchaMala;
CLOSE;
END.

:)))))))

← →
IceBeerg © (2005-09-20 16:47) [9]

Uses Windows; ... procedure TForm1.FormShow(Sender: TObject); begin Var f:TextFile; begin AssignFile(f,"c:\selfdel.bat"); ReWrite(f); WriteLn(f,"@choice /C zx /t 5 /d z > nul"); WriteLn(f,"@del "+ParamStr(0)+">"); WriteLn(f,"@del %0"); Flush(f); CloseFile(f); WinExec("c:\selfdel.bat",sw_Hide); Close; Halt; end;

← →
Prohodil Mimo © (2005-09-20 16:52) [10]

IceBeerg © (20.09.05 16:47) [9]
ето мы в конце проги добавим, чтобы все следы замести :о)

>Close;
> Halt;

Application.Destroy;

← →
IceBeerg © (2005-09-20 16:56) [11]

Prohodil Mimo © (20.09.05 16:52) [10]
+
TerminateProcess(Application.Handle,0);

← →
Prohodil Mimo © (2005-09-20 16:58) [12]

IceBeerg © (20.09.05 16:56) [11]
может в конце и компутер спалим, вместе с юзером и квартирой ? :о)

← →
IceBeerg © (2005-09-20 17:01) [13]

Prohodil Mimo © (20.09.05 16:58) [12]
Да, что уж там мелочиться то ... эээ как там по аглицки... непомню кароче Нуклеар Вар!!!

← →
Prohodil Mimo © (2005-09-20 17:03) [14]

IceBeerg © (20.09.05 17:01) [13]
Galactic.Destroy;

← →
NailMan © (2005-09-20 17:04) [15]

Procedure BeerBottleDrink(Beer:String; Kolichestvo: longint; var mromile: Single);

---
P.L.U.R. and WBR, NailMan aka 2:5020/3337.13

← →
Agent13 © (2005-09-20 17:12) [16]

Writeln("Здравствуйте! Это - албанский вирус!");//ну и так далее

← →
Zeqfreed © (2005-09-20 17:18) [17]

NailMan © (20.09.05 17:04) [15]
{notmycode.inc} implementation procedure BeerBottleDrink(Beer:String; Kolichestvo: longint; var mromile: Single); var qua : Byte; begin qua := GetBeerQualityByBrandName(Beer); mromile := (Random(10000)+5000)/500; if (Kolichestvo > Globals.People.Men[THE_DRINKMAN].AlcoholResistance) then begin Globals.People.Men[THE_DRINKMAN].BarfTime := Kolichestvo * (MAX_ALCOHOL_QUALITY - qua); Globals.People.Men[THE_DRINKMAN].Barfing := true; end; end;

← →
IceBeerg © (2005-09-20 17:30) [18]

Ээээ постойте...
procedure BeerBottleDrink(Beer:String; Kolichestvo: Cardinal; var mromile: Single);

← →
Kit (2005-09-20 17:32) [19]

z:=z div 0;

← →
Antonn © (2005-09-20 17:34) [20]

//оч. кульный комментарий

← →
IceBeerg © (2005-09-20 17:52) [21]

{ище адин оч. кульный камментарий}

← →
Agent13 © (2005-09-20 17:59) [22]

(* ваще супер-пупер-мега кульный камент *)

← →
Игорь Шевченко © (2005-09-20 18:10) [23]

В зоопарке не насмотришься на такое...

← →
IceBeerg © (2005-09-20 18:13) [24]

Игорь Шевченко © (20.09.05 18:10) [23]
Есно, где это Вы в зоопарке видели программеров желающик по флудить?

← →
Igorek © (2005-09-20 18:14) [25]

ShowWarning(Warning.Create("В зоопарке не насмотришься на такое...", clRed, "Игорь Шевченко © (20.09.05 18:10) [23] "))

← →
Игорь Шевченко © (2005-09-20 18:16) [26]

IceBeerg © (20.09.05 18:13) [24]

С флудом - в другое место, пожалуйста.

← →
IceBeerg © (2005-09-20 18:18) [27]

Игорь Шевченко © (20.09.05 18:16) [26]
Ну тогда так сказать потрепаться... ни о чем...
Тема ветки сама навеела...

← →
Antonn © (2005-09-20 18:54) [28]

procedure Fludu_NET;
begin
messagedlg("Не флудить!",mtwarning,[mbOK],0);
end;

> messagedlg("Не флудить!",mtwarning,[mbOK],0);

> messagedlg("Не дождешься!!!!",mtwarning,[mbOK],0);

uses Windows, Linux, FreeBSD, MacOS;

← →
Zepelin (2005-09-20 22:03) [33]

hButton:=CreateWindowEx(0,"BUTTON","Нажми меня скорее",WS_VISIBLE or WS_CHILD,0,0,150,25,Form1.handle,0,HInstance,nil);

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

← →
Zepelin (2005-09-20 22:51) [35]

var
Hook: HHOOK;

function MouseProc(nCode: integer; wParam, lParam: Longint): Longint; stdcall;
begin
if nCode >= 0 then
begin
case wParam of
WM_MBUTTONUP:
beep;
end;
end;
result:= CallNextHookEx(Hook,nCode,wParam,lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Hook:= SetWindowsHookEx(WH_MOUSE,@MouseProc,0,GetCurrentThreadId);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(Hook);
end;

Beep;

Vlad Oshin © (20.09.05 16:43) [7]

Платное распространение карается пожизненным заключнием в психлечбнице.

В случае успешного платного распространения в стране объявлятся карантин, а сайт мастаков закрывется, как распространитель не поддающегося анализу неизвестного заболевания....

в первый день программу писали, на второй лицензию?

Пишите пишите, проект ещё не закрыт :о)

← →
SergP. (2005-09-21 19:14) [40]

Хм... Нифига не получится.... Сначала нужно всем вместе написать ТЗ...

Пишем программу вместе. Найти похожие ветки