![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi\Windows编程
文章平均质量分 58
iteye_12363
这个作者很懒,什么都没留下…
展开
-
读写文本文件
//////////////读文本////////////function ReadText(filename:string):string;varS: String;AllText: String;F: TextFile;beginAssignFile(F, filename); // 将C:\MyFile.txt文件与F变量建立连接,后面可以使用F变量对文件进行操作。Reset(F); // ...原创 2010-06-11 09:46:50 · 63 阅读 · 0 评论 -
WindowsAPI - shellexecute
shellexecute(application.Handle,'open',PChar(runpath),nil,nil,SW_SHOWNORMAL); 比如我要打开c:\111.doc你可以这样写uses shellapiShellExecute(handle, 'open','winword.exe', '111.doc', 'c:\', SW_SHOWNORMAL);Shell...原创 2010-06-11 09:58:16 · 149 阅读 · 0 评论 -
在桌面上创建.lnk的方法
procedure createico(s:string;s1:string);//s:程序名称 s1:快捷方式名称var tmo:iunknown; tms:ishelllink; tmpf:ipersistfile; pidl:pitemidlist; sd:array[0..max_path] of char; sf,ss:string; linkf:widest...原创 2010-06-11 09:58:45 · 317 阅读 · 0 评论 -
下载文件 Get File From the Net
Get File From the Net Create a Delphi application that downloads files from the Internet; add an auto-update feature to your programs. <!-- BEGIN FREQUENCY TEMPLATE -->&l...原创 2010-06-11 09:59:26 · 122 阅读 · 0 评论 -
后缀名相关
知道了文件名怎么去掉后缀名?Function DelExt(str:string):string;begin delete(str,pos('.',str),length(str)-pos('.',str)+1); resault:=str;end;怎么判断后缀if UpperCase(ExtractFileExt(cobaddress.text)) &l...原创 2010-06-11 09:59:54 · 141 阅读 · 0 评论 -
如何让窗体总是显示在最上面?
问题:问个比较白的问题--如何让窗体总是显示在最上面? ( 积分:50, 回复:4, 阅读:24 )分类:控件 - 使用 ( 版主:amo, cAkk ) 来自:梅梅, 时间:2004-3-5 11:33:00, ID:2486067[显示:小字体 | 大字体] 同上 来自:jackchin, 时间:2004-3-5 11:38:32...原创 2010-06-11 10:00:32 · 659 阅读 · 0 评论 -
获得Windows系统路径
varwindir:array[0..255] of char;begingetwindowsdirectory(windir,sizeof(windir));end.原创 2010-06-11 10:01:11 · 86 阅读 · 0 评论 -
移动窗体自制
在private处输入: { Private declarations } FCanResize,FisDown:Boolean; FDetax,FDetaY:Integer; FP,FOldP:TPoint; {==============================================} procedure TForm1.Ima...原创 2010-06-11 10:01:37 · 91 阅读 · 0 评论 -
比较IP地址
问题:请问这样的字符串怎么比较? ( 积分:20, 回复:4, 阅读:32 )分类:Object Pascal ( 版主:menxin, cAkk ) 来自:fffddd, 时间:2004-8-1 21:34:00, ID:2742872[显示:小字体 | 大字体] 比如:IP1:=111.222.333.444IP2:=1?1.222.333.44...原创 2010-06-11 10:02:01 · 164 阅读 · 0 评论 -
API读取注册表
vartmp:string; const REG_INSTALL_PATH_ITEM='InstallPath'; REG_INSTALL_KEY='SOFTWARE\Blizzard Entertainment\World of Warcraft'; function readreg(sKey:string;var pBuffer:string;dwBufSize:dword...原创 2010-06-11 10:05:08 · 166 阅读 · 0 评论 -
Tray Menu 不点不消失的问题
问题:Tray Menu 问题 ( 积分:10, 回复:4, 阅读:34 )分类:Windows API ( 版主:amo, cAkk ) 来自:lordofbinladen, 时间:2004-8-7 13:04:00, ID:2753251[显示:小字体 | 大字体] 在 Tray 增加了一个自定义Icon, 可顺利popup menu。问题是当P...原创 2010-06-11 10:05:40 · 551 阅读 · 0 评论 -
INT 转 BOOL 值的方法
来自:独孤客, 时间:2004-8-9 19:10:58, ID:2756192RadioButton1.Checked := StrToBool(IntToStr(-1)); 来自:bjaman, 时间:2004-8-9 19:24:14, ID:2756214楼上兄弟正解。如此可以实现非0即true。 ...原创 2010-06-11 10:06:42 · 5071 阅读 · 0 评论 -
如何注册dll组件
问题:怎样注册dll组件? ( 积分:100, 回复:11, 阅读:101 )分类:控件 - 使用 ( 版主:amo, cAkk ) 来自:末熊, 时间:2001-12-18 11:45:00, ID:795857[显示:小字体 | 大字体] 怎样注册dll组件?请帮帮忙,我是初学者,大家不要见笑1 来自:zhihuali, 时间:2001-...原创 2010-06-11 09:57:47 · 600 阅读 · 0 评论 -
文件关联相关
问题:我想象Word和Excel一样。一双击文档文件就打开我的程序,并自动调用这个文档内容 ( 积分:200, 回复:5, 阅读:31 )分类:包装发布 ( 版主:雁孤行, OopsWare ) 来自:田伯光, 时间:2004-8-15 20:21:00, ID:2765310[显示:小字体 | 大字体] 不知道要如何处理,望各位大哥大姐给予指导,将...原创 2010-06-11 09:56:49 · 98 阅读 · 0 评论 -
下载文件的WindowsAPI - DownloadFile
uses urlmon; function DownloadFile(Source, Dest: string): Boolean; //下载文件的函数begintryResult := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;exceptResult := False;end;end;...原创 2010-06-11 09:56:13 · 681 阅读 · 0 评论 -
编程实现网页表单数据的自动提交
MSHTML是微软公司的一个COM组件,该组件封装了HTML语言中的所有元素及其属性,通过其提供的标准接口,可以访问指定网页的所有元素.MSHTML对象模型是由一些对象和集合组成的.处于根部的是HTML,描述了打开页面的1个窗口,包括一系列集合和对象。如Frames集合,History,Location,Navigator,Document,Vi—sum,Event对象等.其中描述呈现在客户窗口实...原创 2010-06-11 09:47:41 · 151 阅读 · 0 评论 -
Windows Hook 详解
基本概念 钩子(Hook),是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息,而且所监视的窗口可以是其他进程所创建的。当消息到达后,在目标窗口处理函数之前处理它。钩子机制允许应用程序截获处理window消息或特定事件。钩子实际上是一个处理消息的程序段,通过系统调用,把它挂入系统。每当特定的消息发出,在没有到达目的窗口前,钩子程序就先捕获该消息,亦即钩子函数...原创 2010-06-11 09:48:43 · 377 阅读 · 0 评论 -
陈前辈谈Delphi编程中“流”的应用
谈Delphi编程中“流”的应用 陈经韬 什么是流?流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具。在流中,定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员是对流进行所有操作的,而不用关心流的另一头数据的真正流向。流不但可以处理文件,还可以处理...原创 2010-06-11 09:49:52 · 182 阅读 · 0 评论 -
利用MPHexEditorEx控件实现2进制替换
窗体上放MPHexEditorEx控件用以下函数替换EXE文件字符 设置MPHexEditorEx的CrateBackup为False; function TFormMain.ReplacePass(Filename,Find, Replace: string): boolean;var LIntSize, LIntPos, LIntPos2: Integer; ...原创 2010-06-11 09:50:33 · 327 阅读 · 0 评论 -
准确探测进程存在否+列出所有进程
//不光可以用文件名来探测进程的存在,还能列出所有的进程列表。 uses TLHelp32; procedure TForm1.Button1Click(Sender: TObject); var FSnapshotHandle:THandle; FProcessEntry32:TProcessEntry32; Ret : BOOL; ProcessID : int...原创 2010-06-11 09:50:59 · 83 阅读 · 0 评论 -
给纯Pascal程序换图标(LoadIcon)
=====================程序代码============================== program aaaaa; {$R 'Icon.res'} //导入制作好的包含图标的资源文件 uses windows, SysUtils; begin { TODO -oUser -cConsole Main : Insert code here }...2010-06-11 09:51:38 · 149 阅读 · 0 评论 -
Windows API - MessageBox
if MessageBox(handle,'確定要刪除當前記錄?','確定',MB_IconQuestion+MB_YesNo)=IDNO then Abort; TApplication类中封装的MessageBox是直接调用Windows API的,两者的差别就是Tapplication省去了一个从String转到PChar的过程。这给调用者带来了一定的方便。以下是...原创 2010-06-11 09:52:35 · 92 阅读 · 0 评论 -
检查文件名&路径是否合法的函数
{===================================================功 能 : 检查文件路径和文件名是否合法 参 数 : Filename : string //文件名 返 回 值 : True : 合法 | False : 不合法 备 注 : 仅检查是否合法,不检测文件是否存在 作 者 :...原创 2010-06-11 09:53:06 · 922 阅读 · 0 评论 -
文件复制 CopyFile Functions
{This way uses a File stream.}Procedure FileCopy( Const sourcefilename, targetfilename: String );Var S, T: TFileStream;Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T := TFi...原创 2010-06-11 09:53:36 · 108 阅读 · 0 评论 -
如何捕捉WebBrowser中点击一个链接
问题:在WebBrowser中点击一个链接后,如何激活一个form? ( 积分:10, 回复:5, 阅读:33 )分类:控件 - 使用 ( 版主:amo, cAkk ) 来自:cfeeling, 时间:2004-7-15 20:17:00, ID:2714268[显示:小字体 | 大字体] 请教 来自:antong, 时间:2004-...原创 2010-06-11 09:54:51 · 360 阅读 · 0 评论 -
简介的读写 INI文件方法
with TInifile.Create(ExtractFilePath(Paramstr(0))+'设置.ini') do begin WriteString('服务器','版本号',edit1.text); Free; end; //OR// with TInifile.Create(ExtractFilePath(Paramstr(0))+'设置.ini')...原创 2010-06-11 09:55:26 · 106 阅读 · 0 评论 -
判断文件是否使用中 Checking If File Is In Use
Checking If File Is In UseFrom Zarko Gajic,Your Guide to Delphi Programming. FREE Newsletter. Sign up now!IsFileInUse will return true if the file is locked for exclusive access. It wo...原创 2010-06-11 10:07:10 · 219 阅读 · 0 评论