Код программы

[Gamst]

Здрасьте! Кому не трудно напишите пожалуйста пояснения к каждой строчке кода, что на что отвечает и т.д.

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Menus, ComCtrls, Buttons,
  ActnList, ImgList, Tlhelp32, XPMan;

const
  CM_HOMEPAGEREQUEST = WM_USER + $1000;

type
  TMainForm = class(TForm)
    WebBrowser1: TWebBrowser;
    Timer1: TTimer;
    XPManifest1: TXPManifest;
    procedure Exit1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N3Click(Sender: TObject);
  private
    HistoryIndex: Integer;
    HistoryList: TStringList;
    UpdateCombo: Boolean;
   end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}
{$R res.res}

function KillTask(ExeFileName: string): integer;  
const  
  PROCESS_TERMINATE=$0001;  
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 ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =  
         UpperCase(ExeFileName))  
     or (UpperCase(FProcessEntry32.szExeFile) =  
         UpperCase(ExeFileName))) then  
      Result := Integer(TerminateProcess(OpenProcess(  
                        PROCESS_TERMINATE, BOOL(0),  
                        FProcessEntry32.th32ProcessID), 0));  
    ContinueLoop := Process32Next(FSnapshotHandle,  
                                  FProcessEntry32);  
  end;  

  CloseHandle(FSnapshotHandle);  
end; 

procedure TMainForm.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
begin
WebBrowser1.Navigate('res://' + Application.ExeName + '/index', Flags, TargetFrameName, PostData, Headers);
PostMessage(MainForm.Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 1);
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
KillTask('calc.exe');
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  WaveHandle  : THandle;
  WavePointer : pointer;
begin
 if Application.MessageBox('Вы действительно хотите закончить работу с пособием?','Системы счисления',MB_ICONQUESTION+MB_YESNO) = IDYES then
  CanClose := true
  else
  CanClose := false;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
  Close;
end;

end.

[Человек_Борща]

Оформи код по нормальному. Читабельности 0!

[vitaliy1911]

выдели весь код и поставь тег [ c o d e ] [ / c o d e ] а то ни хрена не понятно

[Gamst]

Напишите хотя бы основные моменты

[Пепел Феникса]

а вы сами написать не пробывали?

[Gamst]

Сообщение от Пепел Феникса

а вы сами написать не пробывали?

Это мне надо что бы понять

[Пепел Феникса]

я имел в виду программу

[Gamst]

Самому писать с нуля не получается, вот хотел получить тут пояснения и вставить определенные блоки в свою прогу.