delphi中判断某个文件是否已经打开
if FileExists(FileName) then if (FileOpen(FileName, fmShareExclusive) < 0) then ShowMessage('文件已打开');
Delphi
Delphi创建桌面快捷方式及锁定任务栏等功能
Delphi创建桌面快捷方式、右键添加发送到...、添加快速启动栏、开始菜单、程序菜单、右键菜单、win7锁定任务栏{ ================================================================= 功 能: 创建 桌面、发送到...、快速启动栏、开始菜单、程序菜单、右键菜单 快捷方式 参 数: SourceFileName:string; //源程序的位置 ShortcutName : string; //快捷方式的名称
Delphi Treeview中显示Mainmenu菜单
在Treeview查看更多关于 Treeview 的文章中完整显示MainMeun菜单中的内容procedure MainMenuToTreeView(MenuItem:TMenuItem;PTreeview:TTreeView;PTreeNode:TTreeNode);var i:Integer; newNode:TTreeNode;begin for i:=0 to MenuItem.Count-1 do begin newNode:=PTreeview.Items.AddChild(PTre
delphi MediaPlayer 实现录音
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, MPlayer;typeTWavHeader = record //定义一个Wav文件头格式 rId : longint; rLen : longint; wId : longint; fId : longint; fLen : longint; wFormatTag : word; nCha
Delphi 取字符串中间
function GetMidString(s: string; d: string; c: string): string; // 取字符串中间var i, n: Integer;begin try i := pos(d, s); n := pos(c, copy(s, i + 1, Length(s) - i)); Result := copy(s, i + Length(d), n - Length(d)); except Result := '';
Delphi百度网盘真实地址解析
写在前边这里用Delphi演示下获取百度网盘的真实地址，里面一些参数拼接是根据浏览器抓包来的。这里给出了部分源码。url网址使用于百度分享的地址。暂时没有适配有提取码的地址。目前，获取查看更多关于 获取 的文章到百度网盘真实地址也会限速了，亲测用IDM下载工具最高到600+kb/s测试环境Delphi 10.2.3 TokyoWindows 7api地址var panUrlRe: string;begin try try panUrlRe := FIDHttp.Get(panUr
delphi安卓动态切换本地主题
procedure TForm1.btn1Click(Sender: TObject);beginToast('Toast信息', LongToast);end;procedure TForm1.btn2Click(Sender: TObject);begin ShowMessage('Atom Developer');end;procedure TForm1.btn4Click(Sender: TObject);begin MessageDlg('你真的想关
Delphi android下拉刷新
procedure TForm6.FormCreate(Sender: TObject);begin Image1.Position.Y := (0 - Image1.Height); lMovendoObjeto := False;end;procedure TForm6.Image2Click(Sender: TObject);begin {$IF DEFINED(ANDROID)} AbreYoutube; {$ENDIF}end;procedure TForm6.ListVi