测试软件的中间健是什么,中间件测试工具

朱雀 2022-08-31 14:17 230阅读 0赞

中间件测试工具

object Form3: TForm3

Left = 978

Top = 563

Width = 376

Height = 110

BorderIcons = \[biSystemMenu\]

Caption = \#27979\#35797\#24037\#20855

Color = clBtnFace

Font.Charset = DEFAULT\_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Tahoma'

Font.Style = \[\]

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object Label1: TLabel

Left = 24

Top = 16

Width = 72

Height = 13

Caption = \#23458\#25143\#31471\#25968\#37327\#65306

end

object Label2: TLabel

Left = 24

Top = 48

Width = 48

Height = 13

Caption = \#31243\#24207\#21517\#65306

end

object Edit1: TEdit

Left = 112

Top = 13

Width = 65

Height = 21

TabOrder = 0

Text = '1'

end

object Button1: TButton

Left = 183

Top = 11

Width = 75

Height = 25

Caption = \#24320\#21551

TabOrder = 1

OnClick = Button1Click

end

object Button2: TButton

Left = 272

Top = 11

Width = 75

Height = 25

Caption = \#20851\#38381\#25152\#26377

TabOrder = 2

OnClick = Button2Click

end

object Edit2: TEdit

Left = 112

Top = 40

Width = 121

Height = 21

TabOrder = 3

Text = 'd7client.exe'

end

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants,

Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, Tlhelp32

;

type

TForm3 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Edit2: TEdit;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

\{ Private declarations \}

public

\{ Public declarations \}

end;

var

Form3: TForm3;

implementation

\{$R \*.dfm\}

function EndProcess(ExeFileName: string): integer;

const

PROCESS\_TERMINATE = $0001;

var

ContinueLoop: BOOLean;

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 TForm3.Button1Click(Sender: TObject);

var

i: integer;

p: PAnsiChar;

begin

p := PAnsiChar(Edit2.Text);

for i := 1 to StrToIntDef(Edit1.Text, 0) do

WinExec(p, SW\_NORMAL)

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

EndProcess(Edit2.Text);

end;

end.

测试软件的中间健是什么,中间件测试工具

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关 Koa2 中间件的作用是什么？如何编写一个中间件？

相关什么是中间件？

相关消息中间件：什么是消息中间件。

相关什么是软件测试？进行软件测试的目的是什么？

相关测试软件的中间健是什么,中间件测试工具

相关中间件是什么,常用的中间件有哪些

相关中间件测试的一些要点

相关 php中间件是什么？

相关消息中间件:什么是JMS

相关什么是中间件？