procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
   SearchRec: TSearchRec;
begin
   Dir := IncludeTrailingBackslash(Dir);

   if FindFirst(Dir + ‘*.*’, faAnyFile, SearchRec) = 0 then
     repeat
       Application.ProcessMessages;

       if (SearchRec.Attr and faDirectory) 0 then begin
         if (SearchRec.name ‘.’) and (SearchRec.name ‘..’) then
                 DirSearch(Dir + SearchRec.name, Mask, sl)
       end
       else
         if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
           Sl.Add(Dir + SearchRec.Name);
     until FindNext(SearchRec) 0;
   FindClose(SearchRec);
end;

// ИСПОЛЬЗОВАТЬ ТАК:
procedure TForm1.Button1Click(Sender: TObject);
begin
   DirSearch(’C:\TEMP’, ‘*.AVI’, Memo1.Lines);
end;

function readcom: string;
var RX_Count : cardinal;
     TempArray: array[1..255] of Byte;
     Count : Integer;
begin
  result:= ”;
  ReadFile(Com, TempArray, 255, RX_Count, nil);
  for Count:= 1 to RX_Count do result:= result + Chr(TempArray[Count])
end;

procedure sendcom(s: string);
var TempArray: array[1..255] of Byte;
     Count : Integer;
     TX_Count : cardinal;
begin
  for Count:= 1 to Length(S) do TempArray[Count]:= Ord(S[Count]);
  WriteFile(Com, TempArray,Length(S),TX_Count,nil)
end;

// или если компонентом пользуешся
type tb = array[1..255] of Char; //Определяем символьный массив
      pb = ^tb;
procedure Tmf.comReceiveData(Sender: TObject; Buffer: Pointer;
   BufferLength: Word);
var PX : pb;
     i : integer;
     str: string;
begin
  PX:= buffer; str:=”;
  for i:= 1 to BufferLength do
   str:=str+PX^;
  packet(str)
end;

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.

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();
        }
    }

}

const
  // Размер буфера, резервируемого для имени класса при
// использовании функций GetClassName и GetReadWindowClass
  ClassNameLen = 512;

function EnumWindowProc(Wind: HWND; LI: TListItem): BOOL; stdcall;
var
  Text: string;
  TextLen: Integer;
  ClassName: array[0..ClassNameLen - 1] of Char;
begin
  Result := True;
  TextLen := GetWindowTextLength(Wind);
  SetLength(Text, TextLen);
  if TextLen > 0 then
    GetWindowText(Wind, PChar(Text), TextLen + 1);
  if TextLen > 100 then
    Text := Copy(Text, 1, 100) + ' ...';
  GetClassName(Wind, ClassName, ClassNameLen);
  ClassName[ClassNameLen - 1] := #0;
  LI := AddAppForm.AppWindList.Items.add;
  LI.Caption := IntToStr(Wind);
  LI.SubItems.Add(ClassName);
  if Text = '' then
    LI.SubItems.Add('без имени')
  else
    LI.SubItems.Add(Text);
end;

function EnumTopWindowProc(Wind: HWND; PID: Cardinal): BOOL; stdcall;
var
  Text: string;
  TextLen: Integer;
  ClassName: array[0..ClassNameLen - 1] of Char;
  WindPID: Cardinal;
  LI: TListItem;
begin
  Result := True;
  GetWindowThreadProcessId(Wind, @WindPID);
  if WindPID = PID then
  begin
    TextLen := GetWindowTextLength(Wind);
    SetLength(Text, TextLen);
    if TextLen > 0 then
      GetWindowText(Wind, PChar(Text), TextLen + 1);
    if TextLen > 100 then
      Text := Copy(Text, 1, 100) + ' ...';
    GetClassName(Wind, ClassName, ClassNameLen);
    ClassName[ClassNameLen - 1] := #0;
    LI := AddAppForm.AppWindList.Items.add;
    LI.Caption := IntToStr(Wind);
    LI.SubItems.Add(ClassName);
    if Text = '' then
      LI.SubItems.Add('без имени')
    else
      LI.SubItems.Add(Text);
    //EnumChildWindows(Wind,@EnumWindowProc,LParam(LI));
  end;
end;

function GetProcessPID(ExeFileName: string): Cardinal;
var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile)) =
      AnsiUpperCase(ExeFileName)) or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
      AnsiUpperCase(ExeFileName))) then
      Result := FProcessEntry32.Th32ProcessID;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

function ProcessExists(ExeFileName: string): Boolean;
var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := False;
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile)) =
      AnsiUpperCase(ExeFileName)) or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
      AnsiUpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

procedure GetWindList(PID: Cardinal);
begin
  if PID = 0 then
    Exit;
  EnumWindows(@EnumTopWindowProc, PID);
end;