Delete Folder

unit PasarKode;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, XpMan, ShellApi;

type

  TMainFrm = class(TForm)

    logo: TImage;

    tx1: TLabel;

    OK: TButton;

    Cancel: TButton;

    tx2: TLabel;

    tx3: TLabel;

    procedure OKClick(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormKeyDown(Sender: TObject; var Key: Word;

    Shift: TShiftState);

    procedure tx2Click(Sender: TObject);

  private

  public

  end;

var

  MainFrm: TMainFrm;

implementation

uses PP;

{$R *.dfm}

procedure TMainFrm.OKClick(Sender: TObject);

begin

MainFrm.Hide;

DelFrm.Position := poMainFormCenter;

DelFrm.Show;

DelFrm.Timer.Enabled := True;

end;

procedure TMainFrm.FormShow(Sender: TObject);

begin

ShowWindow(Application.Handle, Sw_Hide);

end;

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caNone;

end;

procedure TMainFrm.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = Vk_Escape then

OK.Click;

end;

procedure TMainFrm.tx2Click(Sender: TObject);

begin

ShellExecute(Handle, nil, "http://pasarkode.com/", nil, nil, Sw_ShowNormal);

end;

end.