Delphi演示如何一次删除网格数据表dbgrid中的多条记录，小技巧不过挺实用，希望对大家的Delphi编程有所帮助。以下是实现一次删除多条记录的相关代码供参考： if DBGrid1.SelectedRows.Count >1 then s:= 真的要删除这些记录吗?; if Application.MessageBox (Pchar(s),删除多条记录,mb_iconinformation mb_yesNo)=idYes then begin DBGrid
Delphi清空回收站源码，之前发过类似的代码，这个清空回收站代码同样超级简单，希望大家喜欢哦。 procedure TFrmEmpty.BtnEmptyClick(Sender: TObject); begin if Application.MessageBox(您确定要清空回收站吗？,提示,MB_ICONQUESTION MB_YESNO) = ID_YES then begin EmptyRecycle; end; end;
Delphi 提取指定文件夹目录，可设置掩码，可提取文件目录。具体实现思路： try s:=FileListBox1.Directory; for i:=0 to FileListBox1.Count-1 do begin memo1.Lines.Append(FileListBox1.Items.Strings[i]); end; Application.MessageBox(提取成功！,提示,0); except Applicati
Delphi编写的数据库系统初始化程序源码，Delphi7.0版本开发的，请将名为qygl的脚本文件拷贝到应用程序所在的目录，注意，初始化会清空数据表中所有数据，在使用时小心，建议在使用前进行数据备份，以防止误删除数据造成数据丢失。相关的源代码： if Application.MessageBox(确实要进行初始化吗?,提示,mb_YesNO) = Id_Yes then begin if FileExists(ExtractFilePath(application.Exe
Delphi通过修改Windows注册表的方法隐藏开始菜单中的“关机”命令，把关机的功能菜单隐藏起来，用户通过开始菜单找不到关机命令。隐藏开始菜单可执行以下命令： MyReg := TRegistry.Create; MyReg.RootKey := HKEY_CURRENT_USER; if MyReg.OpenKey(\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,True) then begin
Delphi 隐藏运行框,通过修改Windows7注册表的方法来隐藏运行框，用户打开开始菜单将看不到“运行”框，本代码将运行框隐藏了。隐藏运行框的代码如下： MyReg := TRegistry.Create; MyReg.RootKey := HKEY_CURRENT_USER; if MyReg.OpenKey(\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,True) then begin
将缓冲区中的内容写入文件中，学习Delphi中FileWrite的使用方法： begin H := FileOpen(d:\ini.txt,fmOpenWrite); if H -1 then begin FileSeek(H,0,2);//将文件指针定位到文件的末尾 buffer := 源码素材网是开源源代码下载网站; IntToStr(FileWrite(H,buffer^,Length(buffer))); CloseHandle(
Delphi改变IE主页URL的程序源码，也就是设置IE的首页，在窗口中输入指定的URL，点击确定即可。具体的修改代码如下： if Application.MessageBox(确定要更改吗？,提示,MB_YESNO)= ID_YES then begin MyReg := TRegistry.Create; MyReg.RootKey := HKEY_CURRENT_USER; if MyReg.OpenKey(\Software\Microsoft\In
