-
Delphi 如何使程序不出现在任务栏上
Delphi 如何使程序不出现在任务栏上，常规情况下，运行的程序都会在任务栏有一个图标窗口，方便用户操作，不出现在任务栏上也可以，不过不太符合常规，有点隐藏程序的嫌疑，以下代码是实现此功能的：
procedure TForm1.FormCreate(Sender: TObject);
begin
with Application do
SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;
- 2023-03-26 04:55:03下载
- 积分：1
-
Delphi 获取服务器时间 更新本机时间
Delphi 通过时间服务器更新时间，包括了两个功能：1、获取服务器时间，2、更新本机时间。通过时间服务器，可一键自动更新日期时间，不过本实例连接的服务器已经失效了，程序不能连接，会假死，测试时候要注意。
- 2022-01-24 08:49:50下载
- 积分：1
-
Delphi 获得汉字区位码的源码
Delphi 获得汉字区位码的源码，输入指定汉字，将得到这些汉字的区位码，关键代码请参考以下的源码：
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
hi,lo:integer;
begin
str:=trim(edit2.Text);
hi:=byte(str[1])-$a0;
lo:=byte(str[2])-$a0;
edit1.Text:=inttostr(hi)+inttostr(lo);
end;
- 2022-02-21 00:07:08下载
- 积分：1
-
Delphi 全屏播放视频窗口
Delphi 全屏播放视频窗口，这是一个自动全屏的窗口，当你播放视频时，窗口会自动最大化，并且隐藏窗口的标题栏和状态栏，就像播放视频时的全屏效果一样。
- 2022-01-26 06:52:10下载
- 积分：1
-
delphi开发的谷歌翻译工具内含源码
delphi开发的谷歌翻译工具，使用该工具可以不用打开浏览器，然后输入谷歌翻译地址才能进行翻译工作，
而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。
同时，你拿到此源码还可以进行二次开发，以满足你更多需要和想象。
- 2022-01-25 22:56:02下载
- 积分：1
-
窗口中的弹出式右键菜单-delphi源码
窗口中的弹出式右键菜单-delphi PopupMenu源码,
procedure TForm1.Button1Click(Sender: TObject);
var
Poin:TPoint;
begin
Poin := Point(Button1.Left,Button1.Top+Button1.Height);
Poin := ClientToScreen(Poin);
PopupMenu1.Popup(Poin.X,Poin.Y);
end;
- 2022-07-24 15:12:59下载
- 积分：1
-
Delphi 定制自己的幽灵程序
Delphi 定制自己的幽灵程序，这个程序在Windows托盘处显示图标，而且退出后在进程中仍会运行，像幽灵一样，托盘处可右键弹出菜单，本程序主要是图标和菜单的一些操作，属于UI界面的范畴吧，这是我个人认为的，部分代码摘录：
NormalIcon,DisabledIcon:TIcon;
//正常和失效两种情况下的图标
Status:Boolean;
//标志"允许使用"还是"禁止使用"
procedure InstallIcon;
procedure ChangeIcon(s:Boolean);
procedure UnInstallIcon;
procedure IconOnClick(var message:TMessage); message MI_ICONEVENT;
//捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明
- 2023-04-07 01:50:03下载
- 积分：1
-
Delphi 【Frame3D】函数的应用实例-三维框源码
Delphi 函数【Frame3D】的应用，该函数用于在画布上绘制一个3维框图：
implementation
{$R *.dfm}
procedure TFrmFrame3D.FormCreate(Sender: TObject);
begin
Bc:=Rect(80,50,100,200);
end;
procedure TFrmFrame3D.FormPaint(Sender: TObject);
begin
Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);
end;
procedure TFrmFrame3D.Button1Click(Sender: TObject);
begin
Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text));
Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);
end;
- 2022-06-16 08:51:26下载
- 积分：1
-
Delphi 记录文件的读写
Delphi 记录文件的读写，这个程序非数据库程序，实际上也不是文件读写程序，只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据，确定后，会将数据添加到主窗口的StringGrid中，然后通过修改命令，从StringGrid中再读取出数据，进行修改保存，演示了文件内容的读取和写入的操作过程 。
- 2022-02-12 09:49:41下载
- 积分：1
-
Delphi7 获取文件的修改时间
Delphi7 获取文件的修改时间，这是一个文件操作实例源代码，获取到文件被修改的时间，代码简单，适合Delphi新手学习参考。
- 2022-03-25 03:51:22下载
- 积分：1
