Delphi
2023-01-03
66
开源是软件开发中非常重要的部分。作为开发人员工具的创造者,这也使开源对我们也很重要。使用Delphi和C ++ Builder创建了各种各样的开源项目,这对我们的开发人员社区以及其他社区都是有利的。 流行的由Delphi驱动的开源项目的一些示例:HeidiSQL是一个非常受欢迎的客户端,用于管理用Delphi编写的MariaDB,MySQL,SQL Server,PostgreSQL和SQLite(当然是这样-Delphi使数据库的操作如此简单!)Pyscripter是一个非常流行的 功能丰富但轻量级的
2023-01-03
24
Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declaration
2023-01-03
35
//the system time of you PC has changed. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender
2023-01-02
43
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private decla
2023-01-02
71
安卓获得设备 ID使用移动设备时,程序员非常需要能够识别每台设备。为了执行此操作,我们有两种主要形式,一种是由移动设备本身的 IMEI,即设备制造商提供的 ID;或第二种方法是 Android 向已安装的应用程序提供的ID。就个人而言,我使用第二个选项,因为对于第一个获得IMEI,我们必须获得READ_PHONE_STATE的权限许可,因为它是一个危险的权限。从Delphi获取 Android 上的设备 ID要从Delphi获取Android ID,我们只需要几个声明如下几点:我们想澄清,这个Id可能会
2023-01-02
43
uses shellapi; procedure TForm1.Button1Click(Sender: TObject); var em_subject, em_body, em_mail : string; begin em_subject := 'Test Message'; em_body := 'Hello this is a test Message from Shell Execute Command to Open the Default Mail
2023-01-02
82
procedure TForm1.Button4Click(Sender: TObject);begin TrayIcon1.IconIndex := 0;end; procedure TForm1.Button5Click(Sender: TObject);begin TrayIcon1.IconIndex := 1;end;procedure TForm1.Button4Click(Sender: TObject);begin TrayIcon1.Visible := False; Tray
2023-01-02
36
首先单击项目->资源和图像:然后只需单击“添加”以添加图标或图像:对于图标,请确保使用所有大写字符。这是在trayicon中使用图标资源的示例:procedure TForm1.Button4Click(Sender: TObject);begin TrayIcon1.Visible := False; TrayIcon1.Icon.LoadFromResourceName(hInstance, 'ICON1'); TrayIcon1.Visible := True;end;