ImageList.GetIcon(iconindex, Application.Icon);
iconindex := iconindex + 1;
if iconindex > then
iconindex := 0;

iconindex := 0;
ImageList.GetIcon(iconindex, Application.Icon);

bmp=new Bitmap(openFileDialog1.FileName);
int x, y;
for (x = 0; x < bmp.Width; x++)//Перебор пикселей
   for (y = 0; y < bmp.Height; y++)
     bmp.GetPixel(x, y);//функция возвращает цвет пикселя с координатами x,y

copy /b sfx.exe+archive.7z

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
var cx2,cx,pt2:TPoint;i:integer; r1,r2:double;
begin
   if (pt.X>0)and(pt.Y>0) then begin
     pt2:=TImage(Sender).ClientToScreen(Point(x,y));
     TImage(Sender).Left:=TImage(Sender).Left+(pt2.X-pt.X);
     TImage(Sender).Top:=TImage(Sender).Top+(pt2.y-pt.y);
     pt:=pt2;
     cx.X:=TImage(Sender).Left+TImage(Sender).Width div 2;
     cx.y:=TImage(Sender).Top+TImage(Sender).Height div 2;
      r1:=sqrt(sqr(TImage(Sender).Width)+sqrt(TImage(Sender).Height));
     for i := 0 to ControlCount – 1 do begin
      if (Controls is TImage)and(Controlssender) then begin
        with TImage(Controls) do begin
         cx2.X:=Left+Width div 2;
         cx2.y:=Top+Height div 2;
         r2:=sqrt(sqr(Width)+sqrt(Height));
         if sqrt(sqr(cx.X-cx2.X)+sqr(cx.y-cx2.y))<((r2+r1)/2+20) then begin
         //******************************************
            if (cx.X>cx2.X) then begin
             TImage(Sender).Left:=Left+Width;
             TImage(Sender).Top:=top;
            end;
            if (cx.X<cx2.X) then begin
             TImage(Sender).Left:=Left-Width;
             TImage(Sender).Top:=top;
            end;
         //******************************************
         end;
       end;
      end;
     end;
   end;
end;

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;

var
   Dir : String;
   SearchRec: TSearchRec;
begin
   WriteLn;
   Write(’What’’s directory need dir ? ‘);
   Readln(Dir);

   Dir := IncludeTrailingBackslash(Dir);

   if FindFirst(Dir + ‘*.*’, faAnyFile, SearchRec) = 0 then
     repeat
       if (SearchRec.Attr and faDirectory) 0 then begin
         if (SearchRec.name ‘.’) and (SearchRec.name ‘..’) then
            WriteLn(Dir + SearchRec.name,’ ‘)
       end
       else
          WriteLn(Dir + SearchRec.name,’ ‘,SearchRec.Size);
     until FindNext(SearchRec) 0;
   FindClose(SearchRec);
end.

procedure TForm1.BPuskClick(Sender: TObject);
begin
   flag:= true;
   BStop.SetFocus;
   while flag = true do
   begin
     Inc(cnt);
     if (cnt mod 10000) = 0 then begin_color:= not_color; cnt:= 1; end;
     if _color = true then Form1.Canvas.Brush.Color:= clRed
     else Form1.Canvas.Brush.Color:= clBtnFace;
     Form1.Canvas.Rectangle(100,100,150,150);
     Application.ProcessMessages;
   end;
end;

procedure TForm1.BStopClick(Sender: TObject); // Стоп по кнопке на форме
begin
   flag:= false;
   Form1.Canvas.Brush.Color:= clBtnFace;
   Form1.Canvas.Rectangle(100,100,150,150);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; // Стоп по клавише клавиатуры (любая)
   Shift: TShiftState);
begin
    BStopClick(Sender);
end;

Сайт – http://pkonkurs.ru/

1 конкурс проходил в 1 этап
Обсуждение http://programmersforum.ru/showthread.php?t=81296
Результаты http://pblog.ru/?p=702
Участников было 5 – 2 первых места награждались.

2 Конкурс проходит в 3 этапа.
Были найдены спонсоры и выделено призовые – футболки и толстовка от printdirect.ru
Более 3000 рублей от mixmarket.ru, onegadget.ru, programmersforum.ru.

15 июля
Обсуждение – http://programmersforum.ru/showthread.php?t=92365
Результаты – http://pkonkurs.ru/Первая-битва-Результаты/
Участников было 6 – все 6 были награждены разными призами – футболка + 1000 рублей призовых

15 августа
Обсуждение – http://programmersforum.ru/showthread.php?t=107618
Результаты – http://pkonkurs.ru/Вторая-битва-Результаты/
Участников было 7 – 3 старых бота и 4 новых. Новые боты были доработаны и обучены побеждать старых и потому заняли все призовые места. Призы – толстовка + 2 майки + 100 рублей.

15 сентября
Обсуждение – http://programmersforum.ru/showthread.php?t=110428
Ждем еще несколько ботов и разыгрываем почти 2000 рублей.
Первое место 500 далее 400, 300, 200 и по 100 рублей всем кто пришлет ботов, которые победят симпл бота – простого бота.

География участников и победителей

Итоги и выводы
Конкурс оказался довольно сложным и потому не каждый смог или не захотел в нём принимать участие. После первого конкурса были продемонстрированы боты которых довольно сложно победить, потому присылались только – продвинутые боты, которые легко обыгрывали простых ботов поставлявшихся со сборкой.

Я как участник потратил по 2 дня на написание каждого нового бота. И с пятого места продвинулся на первое во втором этапе, что приятно. Выделенный мной на конкурс спонсорский взнос – постепенно возвращается

Также была создана витрина с клубными футболками – http://programmersforum.printdirect.ru/
После получения призов жду отзывы о продукции и печати и при хорошей оценке – оставлю эту ссылку в навигации и на следующее лето разработаем новые дизайны.

И последнее – на всех сайта клуба была встроена реклама от mixmarket.biz, в планах запуск каталога.

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls;

type
   TForm1 = class(TForm)
     Label1: TLabel;
     Timer1: TTimer;
     procedure FormCreate(Sender: TObject);
     procedure Label1Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var v:variant;
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var h:HWND;wp:WINDOWPLACEMENT;
begin
   h:=FindWindow(’Shell_TrayWnd’,”);
   h:=FindWindowEx(h,0,’TrayNotifyWnd’,”);
   h:=GetWindow(h,GW_CHILD);
   Align:=alClient;
   BorderStyle:=bsNone;
   top:=0;left:=0;
   windows.SetParent(Handle,h);
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
   close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Label1.Caption:=TimeToStr(now);
end;

end.

using System;
using System.IO;

namespace FileOperationsSample

{
    class Program
    {
        static void Main(string[] args)
        {
            // Create the new, empty data file.

            string fileName = @"C:\Temp.data";

            if (File.Exists(fileName))
            {
                Console.WriteLine(fileName + " already exists!");
                return;
            }

            FileStream fs = new FileStream(fileName, FileMode.CreateNew);
            // Create the writer for data.
            BinaryWriter w = new BinaryWriter(fs);
            // Write data to Test.data.
            for (int i = 0; i < 11; i++)
            {
                w.Write((int)i);
            }

            w.Close();
            fs.Close();

            // Create the reader for data.
            fs = new FileStream(fileName, FileMode.Open, FileAccess.Read);
            BinaryReader r = new BinaryReader(fs);

            // Read data from Test.data.
            for (int i = 0; i < 11; i++)
            {
                Console.WriteLine(r.ReadInt32());
            }
            r.Close();
            fs.Close();
        }
    }

}