摘要:Delphi源码,系统相关,模拟鼠标
Delphi模拟鼠标操作示例代码，可模拟以下鼠标功能：移动鼠标、左键双击、左键单击、右键单击。源码可直接编译，无需第三方控件支持。
运行环境：Windows/Delphi7
2023-12-17 20:48:41
6KB
1
主要介绍了Python实现的企业粉丝抽奖功能,涉及Python数值运算与随机数生成相关操作技巧,需要的朋友可以参考下
2023-12-15 09:37:53
80KB
1
刚刚帮朋友写的C#自动升级的软件，希望能帮到大家。界面和QQ升级是一样的。最重要的，为了方便朋友阅读，注释都写好了。
2023-12-13 05:02:07
142KB
1
DELPHI动态创建删除FRAME
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,FM;
type
TForm2 = class(TForm)
Panel1: TPanel;
Button2: TButton;
ScrollBox1: TScrollBox;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TFM = Array Of TFrame1;
var
Form2: TForm2;
aFM: TFM;
procedure DeleteArrItem(var arr: TFM ; Index: Integer);stdcall;
implementation
{$R *.dfm}
procedure DeleteArrItem(var arr: TFM ; Index: Integer);
var
Count: Cardinal;
i:integer;
begin
Count := Length(arr);
if (Count = 0) or (Index < 0) or (Index >= Count) then Exit;
Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0]));
SetLength(arr, Count - 1);
for I := 0 to Length(arr) - 1 do
begin
arr[i].Label1.Caption:=inttostr(i);
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
var
fram:TFrame1;
begin
SetLength(aFM,length(aFM)+1);
aFM[length(aFM)-1] :=TFrame1.Create(nil) ;
fram:=aFM[length(aFM)-1];
fram.Label1.Caption:=inttostr(length(aFM)-1);
fram.Parent:=ScrollBox1;
end;
end.
unit fm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFrame1 = class(TFrame)
GroupBox1: TGroupBox;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses unit2;
{$R *.dfm}
procedure TFrame1.Button1Click(Sender: TObject);
begin
DeleteArrItem(aFM,strtoint(label1.Caption));
( Sender as Tbutton ).Parent.Parent.Destroy;
end;
end.
2023-12-12 19:35:07
311KB
1