Source Code



Delete Folder

  • anonymous
  • Dec 01' 13
  • Delphi
  • 478
  • 34
  • United States

This is source code for deleting a 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.
  • Tags :
comments powered by Disqus

Related Code

Create Search and Get in The Middle String

Procedure For Search Name

Encrypt and Decrypt

SQL Server 2000 installation fails with "...previous program installation..." error message

Default Time Zone

Form Validation Function

Spell Text and Hear It

Create Symphony With Midi Sound

Get IP Address

Splash Screen



Category