随笔分类 - Delphi

摘要:DELPHI XE6 FMX 附件:http://files.cnblogs.com/xe2011/IDHttp_fmx.7z 1 unit Unit1; 2 3 interface 4 5 uses 6 //引用 Vcl.ExtActns 7 Vcl.ExtActns, 8 9 System.Sy 阅读全文
posted @ 2014-05-09 18:45 XE2011 阅读(1059) 评论(0) 推荐(1) 编辑
摘要:程序:http://files.cnblogs.com/xe2011/EXE_iWeb2014-4-9-185315.7z源码:http://files.cnblogs.com/xe2011/Pascal_iWeb2014-4-9-185315.7z 1 function CaptureScreenRect(ARect: TRect): TBitmap; 2 var 3 ScreenDC: HDC; // 设备描述表的句柄 4 begin 5 result := TBitmap.Create; 6 with result, ARect do 7 begin 8 Widt... 阅读全文
posted @ 2014-04-09 18:57 XE2011 阅读(172) 评论(0) 推荐(0) 编辑
摘要:procedure CloseGameSver();var H1, h2: HWND;begin H1 := FindWindow('TForm1', nil); h2 := FindWindowEx(H1, 0, 'ConsoleWindowClass', nil); // ShowMessage(Inttostr(h2)); SendMessage(h2, WM_CLOSE, 0, 0);end; 阅读全文
posted @ 2014-01-21 20:28 XE2011 阅读(124) 评论(0) 推荐(0) 编辑
摘要:uses ShellApi;procedure TForm1.Button1Click(Sender: TObject);var filename, Path: string;begin filename := 'D:\WmgjServer146\server\start.bat'; Path := ExtractFilePath(filename); SetCurrentDir(Path); ShellExecute(Handle, 'open', PWideChar(filename), 'run', nil, SW_SHOWNORMAL); 阅读全文
posted @ 2014-01-21 15:13 XE2011 阅读(430) 评论(0) 推荐(0) 编辑
摘要:附件:http://files.cnblogs.com/xe2011/OnMinsize.rarunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) TrayIcon1: TTrayIcon; procedure TrayIcon1Click(Sender: TObject); private procedure OnMinsize(v... 阅读全文
posted @ 2014-01-05 12:17 XE2011 阅读(91) 评论(0) 推荐(0) 编辑
摘要://判断文件是否正在被使用 function FileINUse(filename:String):boolean;var usein:file;begin result:=false; assignfile(usein,FileName); try reset(Usein); except on E:EInOutError do begin if e.ErrorCode=32 then begin result:=true; exit; end; end; end; closefile(usein... 阅读全文
posted @ 2013-12-21 14:26 XE2011 阅读(192) 评论(2) 推荐(0) 编辑
摘要:WINDOWS发送消息This function sends the specified message to a window or windows. SendMessage calls the window procedure for the specified window and does not return until the window procedure has processed the message. The PostMessage function, in contrast, posts a message to a thread's message queu 阅读全文
posted @ 2013-12-21 13:59 XE2011 阅读(403) 评论(0) 推荐(0) 编辑
摘要:获取一个文件夹下的所有文件 //不包括文件夹里面的文件 获取一个文件夹下的所有文件 //包括文件夹里面的文件 阅读全文
posted @ 2013-12-21 12:11 XE2011 阅读(174) 评论(0) 推荐(0) 编辑
摘要:方法1procedure TForm2.Button1Click(Sender: TObject);var Pt: TPoint;begin GetCursorPos(Pt); PopupMenu1.Popup(Pt.X, Pt.Y);end;方法2设置控件的DropDownMenu 为右键单击(可手动设置) 这个功能只对ToolBar的 Button有效PopMenu为右键单击procedure TForm1.Button1Click(Sender: TObject);begin ToolButton1.DropdownMenu := PopupMenu1;end; 阅读全文
posted @ 2013-12-21 11:51 XE2011 阅读(94) 评论(0) 推荐(0) 编辑
摘要:选中第5行//转到指定行并选中这行的文本procedure SelectLine(Memo1: TMemo; ln: Integer);begin Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, ln - 1, 0); Memo1.SelLength := Length(Memo1.Lines[ln - 1]);end;http://bbs.csdn.net/topics/110143548//将滚动条定位到指定行procedure ScrollToLine(Memo1: TMemo; ln: Integer);begin.. 阅读全文
posted @ 2013-12-20 17:15 XE2011 阅读(322) 评论(0) 推荐(0) 编辑
摘要:EXE:http://files.cnblogs.com/xe2011/Text_EditorRelease2013-12-20-185320.rarDelphi XE5 PAS:http://files.cnblogs.com/xe2011/Text_Editor_Pascal2013-12-20-185320.rar字符处理单元 1 // 字符串处理功能 2 3 unit StringFunctions; 4 5 interface 6 7 uses 8 Windows, Messages, SysUtils, Variants, Classes, Forms, ... 阅读全文
posted @ 2013-12-20 14:27 XE2011 阅读(523) 评论(0) 推荐(0) 编辑
摘要:EXE: http://files.cnblogs.com/xe2011/FamousWord-Release-2013-12-22-113350.rarPASCAL: http://files.cnblogs.com/xe2011/FamousWord-Pascal-2013-12-22-113350.rarDELPHI XE5【2013年12月21日 19:10:12】【2013-12-20 23:01:37】【2013-12-20 18:01:37】 1 unit Unit2; 2 3 interface 4 5 uses 6 Winapi.Windows, Win... 阅读全文
posted @ 2013-12-19 20:17 XE2011 阅读(587) 评论(0) 推荐(0) 编辑
摘要:http://files.cnblogs.com/xe2011/ScreenLight_pas.rar窗体文件object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 220 ClientWidth = 447 Color = clBtnFace TransparentColor = True TransparentColorValue = clPurple Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Heig... 阅读全文
posted @ 2013-11-16 18:43 XE2011 阅读(195) 评论(0) 推荐(0) 编辑
摘要://光标在控件不同位置时的样式 //改变控件的大小 使用 阅读全文
posted @ 2013-11-16 11:00 XE2011 阅读(237) 评论(2) 推荐(0) 编辑
摘要:下面这2种方法都能实现对控件和窗体的拖拽 方法1 阅读全文
posted @ 2013-11-16 00:12 XE2011 阅读(746) 评论(0) 推荐(0) 编辑
摘要:http://files.cnblogs.com/xe2011/StringToColor.rarunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Butt... 阅读全文
posted @ 2013-11-15 23:23 XE2011 阅读(273) 评论(0) 推荐(0) 编辑
摘要:附件 http://download.csdn.net/detail/teststudio/6575241主窗体UNITunit MainForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls;type TFormMain = class(TForm) Button2: TButton; Button1: TButton; Panel1: TPanel; p... 阅读全文
posted @ 2013-11-11 18:04 XE2011 阅读(303) 评论(0) 推荐(0) 编辑
摘要:uses CommCtrl, httpApp, ShellApi;{GetWebPath(WebBrowser1);}function GetWebPath(web: TWebBrowser): string;var item: TLvItem; clsName: array [0 .. MAX_PATH] of char; hwndLv: HWND; selCount, fileCount, selMark: Integer; fileName: array [0 .. MAX_PATH] of char;begin hwndLv := GetWindow(web.Handle, GW_CH 阅读全文
posted @ 2013-10-29 10:48 XE2011 阅读(206) 评论(0) 推荐(0) 编辑
摘要:繁体与简体之间的转换DELPHI XE5测试通过 http://download.csdn.net/detail/teststudio/6464553 类unit SimpleConvert;interfaceuses Classes, Windows;type TTraditional = class(TObject) public function ConvertComplex(Text: String): AnsiString; function ConvertSimple(Text: String): AnsiString; end;implementation{ ... 阅读全文
posted @ 2013-10-28 12:39 XE2011 阅读(337) 评论(0) 推荐(0) 编辑
摘要:http://files.cnblogs.com/xe2011/VCL_TColorPB12.rar在DELPHI7中可以正常使用 在DELPHI XE5中 下面会有些问题安装方法 打开 DELPHI 新建 - Package选中Package.BPL,右键 ADD找到本并添加.PAS源文件选中Package.BPL,右键 Compile选中Package.BPL,右键 Instal 卸载这个组件的时候,找到这个安装包 选中Package.BPL,右键 UnInstal 说明TColorPickerButton is a special speed button which can be us 阅读全文
posted @ 2013-10-27 11:20 XE2011 阅读(272) 评论(0) 推荐(0) 编辑
摘要:DELPHI TreeView 文件目录树和 设置节点图标 下载地址 http://download.csdn.net/detail/teststudio/6448293 需要制作文档管理软件 这个非常有用的 <!--more--> 1 文件夹 设置图标为 2 文件夹里没有文件的文件夹 设置图标为  阅读全文
posted @ 2013-10-24 16:02 XE2011 阅读(1433) 评论(0) 推荐(0) 编辑
摘要:procedure TForm1.Button1Click(Sender: TObject);var Dir, FileTitle, FileExt: string; s,s1: string; j:Integer;begin Dir := 'C:\'; FileTitle := '新建 文本文档'; FileExt := '.txt'; s1:=Dir+FileTitle+FileExt; j:=2; if FileExists(s1) then //C:\新建 文本文档.txt begin s:=Format('%s%s(%d)%s& 阅读全文
posted @ 2013-10-23 15:21 XE2011 阅读(710) 评论(0) 推荐(0) 编辑
摘要:unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); proc... 阅读全文
posted @ 2013-10-22 21:38 XE2011 阅读(105) 评论(0) 推荐(0) 编辑
摘要:Windows记事本记事本描述:用Delphi模仿的Windows记事本 界面和功能都和Windows的记事本一样,是用Memo实现的而不是RichEdit可以执行以下功能 文件 打开,保存,打印, 页面设置,撤销,复制,粘贴,查找,替换,插入时间日期,转到行,保存窗体大小 位置 和读取配置信息支持拖拽文件到记事本中...下载地址:http://download.csdn.net/detail/teststudio/6414215难点 对文件的新建 打开 保存 另存 退出文件件是否保存的判断 TMemo的打印和页面设置TMemo的文字查找和替换Memo的常用属性 property A... 阅读全文
posted @ 2013-10-17 16:28 XE2011 阅读(2567) 评论(6) 推荐(1) 编辑
摘要:加入Printers单元,varLeft,Top,PageHeight,i,x,y,LineSpace : integer;beginTop := 20;Left := 20;y := Top;//Top 起始行的位置,比如设置 Top := 20;x := Left;//Left 左边的起始位置,比如设置:Left := 20;PageHeight := 2600;//A4得纸张大概是这么多,我既不太清,你可以通过某个过程先得到这个数据,LineSpace := 24;//行间距Printer.BeginDoc;for i := 0 to Memo1.Lines.Count - 1 dobe 阅读全文
posted @ 2013-10-17 15:07 XE2011 阅读(140) 评论(0) 推荐(0) 编辑
摘要:Delphi 打印Memo里面的内容 实现的功能和记事本的打印的功能一样打印保存为文件时此时的文件名如何设置?当Memo里的文本数量巨大时 窗体正在打印会出现点数字显示问题 闪烁PageSetup没做任何功能unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;Button1: TButton;PrinterSetupDialog1: TPri 阅读全文
posted @ 2013-10-17 15:07 XE2011 阅读(413) 评论(1) 推荐(0) 编辑
摘要:Delphi Memo的记事本功能下载地址 : http://download.csdn.net/detail/teststudio/6412883这个代码实现了Windows记事本的主要功能。新建,打开,保存,另存,退出。文件拖拽打开文件 这主要是判断Memo内容是否修改过unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialog... 阅读全文
posted @ 2013-10-17 13:53 XE2011 阅读(792) 评论(0) 推荐(0) 编辑
摘要:Delphi TFindDialog TReplaceDialog对话框的使用下载地址1: http://download.csdn.net/detail/teststudio/6408383下面这段代码已经完全的解决Memo的查找对话框 和 替换对话框功能 的所有功能查找对话框部件 查找对话框部件为应用程序提供查找对话框,用户可使用查找对话框在文本文件中查找字符串。 可用Execult方法显示查找对话框,如图4.8。应用程序要查找的字符放到FindText属性中。Options 属性可决定查找对话框中有哪些选项。例如,用户可选择是否显示匹配检查框。Options的常用选项如表4.2所示。.. 阅读全文
posted @ 2013-10-15 19:12 XE2011 阅读(1285) 评论(1) 推荐(0) 编辑
摘要:Delphi Format中的换行符号是什么vars,s1,s2,s3:string;begins:='Hello';s1:=' World';s2:=format('%s%s%s',[s,#13#10,s1]);s3:=Format('%s'#13#10'%s',[s,s1]);ShowMessage(s2);ShowMessage(s3);end;#13#10两边都是有单引号的#13#10在这里不能用\n无效ShowMessage( Format('%s,%s,%s',['hello&# 阅读全文
posted @ 2013-07-07 14:25 XE2011 阅读(481) 评论(0) 推荐(0) 编辑
摘要:源码地址 :http://450640526.ys168.com/编辑器是WEBBWOSER制作的 你的Internet Explorer的版本至少要是8.0的否则用不了还有很多BUG 很多功能没有完成Delphi版本:Delphi XE4 update1来自为知笔记(Wiz) 阅读全文
posted @ 2013-07-07 13:47 XE2011 阅读(431) 评论(2) 推荐(0) 编辑
摘要://转换 TColor 到 HTML 颜色串 function ColorToHtml(color:TColor):string; var RgbColor : TColorRef; begin RgbColor := ColorToRGB(color); Result:=Format('#%.2x 阅读全文
posted @ 2013-06-29 12:28 XE2011 阅读(120) 评论(0) 推荐(0) 编辑
摘要:Delphi QQ表情的实现QQ表情描述蓝框提示信息鼠标在这个表情上面 这个表情才动可以增加表情表情打包单击这个表情插入表情 关闭本窗体 主要使用Webbrowsr来实现的--------------------------------------------------------------------------------//调用过程unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Cont 阅读全文
posted @ 2013-06-22 12:39 XE2011 阅读(373) 评论(0) 推荐(0) 编辑
摘要:Delphi WebBrowser控件的使用 WebBrowser控件属性:1、Application 如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效,程序将返回WebBrowser控件的自动化对象2、Parent 阅读全文
posted @ 2013-06-19 20:15 XE2011 阅读(2525) 评论(4) 推荐(1) 编辑
摘要:{ 1 h=1*60 m=1*60*60 s=1*60*60*1000 hs=3600000hs}{时间 计时器 00:01:14}//label1.Caption:= StartCount();function StartCount():string;{$j+}consth:Integer=0;m:Integer=0;s:integer=0;{$j-}begininc(s);if s>=60 thenbeginInc(m);s:=0;end;if m>=60 thenbeginInc(h);m:=0;end;Result:=Format('%.2d:%.2d:%.2d&# 阅读全文
posted @ 2012-07-26 08:56 XE2011 阅读(153) 评论(0) 推荐(0) 编辑
摘要:{获得磁盘驱动器序列号} function Get_HD_Serial(const Drivedir: Char): string; var Nu: DWORD; Vf: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; V_n: DWORD; begin 阅读全文
posted @ 2012-07-26 08:50 XE2011 阅读(181) 评论(0) 推荐(0) 编辑
摘要:{得到系统C:\Windows\system32 路径}//调用Edit1.text:=getSys32Path();function getSys32Path():string;varsPath : PCHAR ;beginGetMem(sPath,255);GetSystemDirectory(sPath,255);Result := sPath;//C:\Windows\system32end;通过 为知笔记 发布 阅读全文
posted @ 2012-07-26 08:50 XE2011 阅读(109) 评论(0) 推荐(0) 编辑
摘要:{GetDriveType} //调用GetDriveTypeA(Memo1); procedureGetDriveTypeA(Memo:TMemo); var i:Integer; C:String; DType:Integer; DriveString:String; begin //通过循环依次判断各盘符的类型 Memo.Clear; fori:=65to90do begin C:=chr(i)+':\'; DType:=GetDriveType(PChar(C)); caseDTypeof 0:DriveString:=C+'不能判断的驱动器类型.'; 阅读全文
posted @ 2012-07-26 08:50 XE2011 阅读(237) 评论(0) 推荐(0) 编辑
摘要:{获取本机当前用户名}//调用 返回值:= GetUser();function GetUserName(): string;varBuffer: array[0..255] of Char;Size: cardinal;beginSize := 256;if GetUserName(Buffer, Size) thenbeginResult := BufferendelsebeginResult := 'Unknown'end;end;{获取计算机名}//调用 返回值:= GetComputerName();function GetComputerName(): string 阅读全文
posted @ 2012-07-26 08:50 XE2011 阅读(126) 评论(0) 推荐(0) 编辑
摘要:usesShellAPI;{打开网址}//调用Link('www.baidu.com'); procedureLink(URL:string); begin ShellExecute(Application.Handle,nil,PChar(URL),0,0,SW_SHOWNORMAL); end; 通过 为知笔记 发布 阅读全文
posted @ 2012-07-26 08:50 XE2011 阅读(82) 评论(0) 推荐(0) 编辑
摘要:{取得汉字的第一个字母} //调用 edit1.text:=GetPYIndexChar('你')functionGetPYIndexChar(str:string):char; begin caseWORD(str[1])shl8+WORD(str[2])of $B0A1..$B0C4:result:='A'; $B0C5..$B2C0:result:='B'; $B2C1..$B4ED:result:='C'; $B4EE..$B6E9:result:='D'; $B6EA..$B7A1:result:= 阅读全文
posted @ 2012-07-26 08:50 XE2011 阅读(103) 评论(0) 推荐(0) 编辑
摘要://在uses下面引用function SHEmptyRecycleBinA(Wnd:HWND;str:PChar;WRD:DWORD):Integer;stdcall; external 'SHell32.dll';{清空回收站}//调用EmptyRecycle();functionEmptyRecycle():boolean; begin Result:=true; try ifApplication.MessageBox('确定要清空回收站吗?','提示',MB_YESNO)=ID_YESthen SHEmptyRecycleBinA(Ap 阅读全文
posted @ 2012-07-26 08:50 XE2011 阅读(80) 评论(0) 推荐(0) 编辑
摘要:{让窗体全屏显示} //SetFormFullScreen(Form1); procedureSetFormFullScreen(Form:TForm); begin Form.BorderStyle:=bsNone; Form.WindowState:=wsMaximized; Form.Color:=clBlack; end; 通过 为知笔记 发布 阅读全文
posted @ 2012-07-26 08:49 XE2011 阅读(137) 评论(0) 推荐(0) 编辑
摘要:{不重复添加Edit1.text到列表框中} //调用ListBoxAddItems(Edit1,ListBox1); procedureListBoxAddItems(Edit:TEdit;ListBox:TListBox); begin ifListBox.Items.IndexOf(Edit.Text)<0then begin ListBox.Items.Add(Edit.Text); Edit.SetFocus; end; end; 通过 为知笔记 发布 阅读全文
posted @ 2012-07-26 08:49 XE2011 阅读(110) 评论(0) 推荐(0) 编辑
摘要:{shutdown -s -t 0 立即关闭计算机shutdown -l 立即注销计算机shutdown -r -t 0 立即重启计算机shutdown -a 取消关闭计算机}{在uses中引入 ShellAPI} uses ShellAPI;{关机相关}//调用//Shutdown(0);procedure Shutdown(sType:integer);begincasesType of0: ShellExecute(Application.Handle, 'open', 'shutdown.exe', '-s -t 0', 0, SW_SH 阅读全文
posted @ 2012-07-26 08:49 XE2011 阅读(156) 评论(0) 推荐(0) 编辑
摘要://------------------------------------------function Enc(Str:String):String;{加密} function Dec(Str:String):String;{解密} //------------------------------------------{字符加密} //调用Edit1.Text:=Enc(Edit1.Text);//加密 functionEnc(Str:String):String; constXorKey:array[0..7]ofByte=($B2,$09,$AA,$55,$93,$6D,$84,$47 阅读全文
posted @ 2012-07-26 08:49 XE2011 阅读(271) 评论(0) 推荐(0) 编辑
摘要:procedure TForm1.Button1Click(Sender: TObject);{$j+}const i:integer=0;j:integer=0;{$j-}begininc(i);Dec(j);Self.Caption:=Format('Inc%d Dec%d',[i,j]);end;通过 Wiz 发布 阅读全文
posted @ 2012-06-10 09:12 XE2011 阅读(136) 评论(0) 推荐(0) 编辑
摘要://ShellExecuteShellExecute(hWnd: HWND; {指定父窗口句柄}Operation: PChar; {指定动作, 譬如: open、print}FileName: PChar; {指定要打开的文件或程序}Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil}Directory: PChar; {缺省目录}ShowCmd: Integer {打开选项}): HINST; {执行成功会返回应用程序句柄; 如果这个值 <= 32, 表示执行错误}//返回值可能的错误有:= 0 {内存不足}ERROR_FILE_NO 阅读全文
posted @ 2012-06-02 10:10 XE2011 阅读(228) 评论(0) 推荐(0) 编辑
摘要:SetWindowLong隐藏状态栏的图标//SetWindowLong隐藏状态栏的图标 //本程序在任务栏中不显示MSTaskListWClassprocedure TForm1.FormShow(Sender: TObject);begin ShowWindow(Application.handle,SW_HIDE);end;procedure TForm1.Button1Click(Sender: TObject);beginShowWindow(Application.Handle, SW_HIDE);//隐藏任务栏中的图标 SetWindowLong(Application.Han. 阅读全文
posted @ 2012-06-02 10:09 XE2011 阅读(568) 评论(0) 推荐(0) 编辑
摘要://TransparentFrm透明窗体透明窗体 控件正常显示{以图片的形状作为窗体形态}{使窗体透明透明的只剩下个控件} //调用setFormTransParent(Form1); proceduresetFormTransParent(Form:TForm); begin Form.BorderStyle:=bsNone; Form.TransparentColor:=True; Form.TransparentColorValue:=20; Form.Color:=Form.TransparentColorValue; end; 通过 为知笔记 发布 阅读全文
posted @ 2012-05-31 08:25 XE2011 阅读(141) 评论(0) 推荐(0) 编辑
摘要:本例 http://files.cnblogs.com/xe2011/Delphi_SPY.rar自用 http://files.cnblogs.com/xe2011/Debug_Delphi_Spy.rar {使用资源中的图标} Image1.Picture.Icon.LoadFromResourceName(HInstance,'DragIcon'); Image1.Picture.Icon.LoadFromResourceName(HInstance,'DefaultIcon'); {使用资源中的光标} var h: HCURSOR; begin h:= 阅读全文
posted @ 2012-05-31 08:21 XE2011 阅读(589) 评论(0) 推荐(0) 编辑