Testudo

摘要： 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); 阅读全文

摘要： 附件：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... 阅读全文

摘要： EXE: http://files.cnblogs.com/xe2011/spt.rarpascal DELPHI 2010: http://files.cnblogs.com/xe2011/wmgj2014-4-9-183216.7z【2014-1-8】[2014-1-2][2014-1-1] 1 unit Unit1; 2 3 interface 4 uses 5 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 6 Dialogs, StdCtrls, ExtCtrl... 阅读全文

摘要： TMS Component Pack v7.0.0.0 TMS Component Pack 版本为Delphi和C++ Builder提供了超过350个VCL组件，用以创建功能丰富的、现代的和原生Windows应用程序。www.tmssoftware.comDemo http://www.tmssoftware.com/site/tmspcksamples.asp支持delphi 版本：Delphi 7~Delphi XE5 附件：http://yunpan.cn/QDP5pIs9HXQzA44.6 MB Raize Components 6.1.5.7zwww.raize.comRaize 阅读全文

摘要： //判断文件是否正在被使用 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... 阅读全文

摘要： 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 阅读全文

摘要： 获取一个文件夹下的所有文件 //不包括文件夹里面的文件 获取一个文件夹下的所有文件 //包括文件夹里面的文件 阅读全文

摘要： 方法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; 阅读全文

摘要： 选中第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.. 阅读全文

摘要： 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, ... 阅读全文

摘要： 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... 阅读全文

摘要： if (richTextBox1.SelectedRtf.IndexOf(@"{\pict") > -1) { Text = "Img"; } else { Text = "Form1"; } 阅读全文

摘要： 数组 arr = { 9,2,42,12,34,0,-11,45};数组的长度 = 8(个元素)数组的第0个元素为 9数组的第1个元素为2...数组的第N个元素为 N-1using System;namespace ConsoleApplication1{ class Program { static void Main(string[] args) { int[] arr = { 9,2,42,12,34,0,-11,45}; Console.WriteLine("arr={ 9,2,42,12,34,0,-... 阅读全文

摘要： using System;using System.Data;using System.Windows.Forms;namespace WindowsFormsApplication1{ public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { DataTabl... 阅读全文

摘要： 附件：http://files.cnblogs.com/xe2011/CSHARP_RichTextBoxEditor.rar完整的转到这里 http://chuna2.787528.xyz/xe2011/p/3449333.html主要的类 1 using System; 2 //using System.Collections.Generic; 3 //using System.Linq; 4 using System.Text; 5 using System.Drawing; 6 //using System.Windows.Forms; 7 using System.Runt... 阅读全文