unit1.~pas

延时操作 结束批定进程 ini文件操作

/////******************/////////
{ 这个程序用来延时结束指定进程名的进程
作者：蒋江银
QQ:59685078
免费：但不得修改汇编这个程序
}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,TLHelp32, StdCtrls,inifiles, SUIForm, SUIEdit;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    suiNumberEdit1: TsuiNumberEdit;
    suiEdit1: TsuiEdit;
    suiForm1: TsuiForm;
    Label1: TLabel;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  stime,sprocess:string;

implementation

{$R *.dfm}

//结速进程函数

procedure EndProcess(AFileName: string);
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapShotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
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(AFileName))
or (UpperCase(FProcessEntry32.szExeFile ) =
UpperCase(AFileName))) then
TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0);
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  EndProcess(sprocess);
  Application.Terminate;
 // showmessage('结束了看看！')
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ini:Tinifile;
begin
       ini:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'adset.ini');   //创建ini对象
       ini.WriteString('设置','进程名',suiedit1.Text);
       ini.WriteString('设置','结束延时分钟',suinumberedit1.Text);
       showmessage('设置保存成功！');
       ini.free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  ini:Tinifile;
begin

       ini:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'adset.ini');   //创建ini对象
       sprocess:=ini.readString('设置','进程名','');
       stime:=ini.ReadString('设置','结束延时分钟','') ;
       ini.Free;
       timer1.Interval:=60000*strtoint(stime);
       timer1.Enabled:=True;
end;

end.