2022-12-28 38 0

procedure TForm1.RzBitBtn1Click(Sender: TObject);vartpldate ,s: AnsiString; //ansistringptpl:PAnsiString; //指针类型，其实就是个内存地址begins:= AnsiString('whoami'); //定义个ansistringptpl:=@s; //把ansi的指针地址给ptpltpldate:= ptpl^ ;

2022-12-28 62 0

防止重复在应用程序中按下按钮的一种方法是，例如，在特定时间段内禁用按钮。procedure TForm1.Button1Click(Sender: TObject);begin Button1.Enabled := False; Sleep(1000); Button1.Enabled := True;end; 另外一个办法：procedure TForm1.Timer1Timer(Sender: TObject);begin Button1.Enabled := True; Button1

2022-12-28 172 0

功能：获取windows系统的缩放比例vardc:HDC;scale:Double;begin dc:= GetDC(0); scale := GetDeviceCaps(dc,LOGPIXELSX)/0.96/100; if scale <> 1 then begin FrmDPIError.Show; end;end;

2022-12-28 32 0

作者： AnchepTerminateProcess(OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessId()), 0); //线程中关闭主进程

2022-12-28 53 0

例如，当您的计算机被游戏应用程序损坏时，您希望产生振动效果。要在Delphi中使用Android振动器，请使用Android Vibrator类。使用Android振动器时，您需要设置权限。样例代码在窗体上放置两个按钮按下按钮振动500毫秒当按下按钮时，它会在100毫秒后振动500毫秒；在200毫秒后会振动1000毫秒。描述该过程。（已通过10.2 Tokyo，Nexus 5和Android 5.1.1确认）unit Unit1;interfaceuses System.SysUtils, Syste

2022-12-28 103 0

屏幕变黑时，通常无法读取读取终端上显示的条形码的应用程序。在这种情况下，执行增加应用侧装置的亮度的方法。使用WindowManager.Layoutparams可以控制Delphi中的亮度。样例代码将一个按钮放在窗体上按下按钮以最大化亮度。再次按下以最小化亮度。描述该过程。（已与Nexus 5（Android 5.1.1确认））unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes,

2022-12-28 35 0

您可能想知道电池的电量。在Android上，电池管理器会广播有关电池的意图信息。要找出电量，请获取电池电量和电量并计算百分比。该代码基于Android开发人员培训文章“监视电池电量和充电状态”。样例代码将按钮和列表框放在表单上只需按一下按钮即可检测电量将检测到的％值写入列表框描述该过程。（已通过10.2 Tokyo，Nexus 5和Android 5.1.1确认）unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes

2022-12-28 36 0

这是先前发布在EDN（Embarcadero开发人员网络）上的文章的抄录。对于播放视频的应用，您可能不想让屏幕进入休眠状态。在Android上，可以使用Power Manager从应用程序一侧打开/关闭睡眠状态。笔记由于从睡眠中唤醒会影响电池消耗，因此应用必须始终考虑唤醒逻辑。此外，为此，您需要在项目选项中选中WakeLock并设置权限。unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Clas