Delphi Memo的记事本功能           下载地址 : http://download.csdn.net/detail/teststudio/6412883 这个代码实现了Windows记事本的主要功能. 新建,打开,保存,另存,退出. 文件拖拽打开文件 这主要是判断Memo内容是否修改过     unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

pidof命令用于查找指定名称的进程的进程号id号. 语法 pidof(选项)(参数) 选项 -s:仅返回一个进程号: -c:仅显示具有相同“root”目录的进程: -x:显示由脚本开启的进程: -o:指定不显示的进程ID. 参数 进程名称:指定要查找的进程名称. 实例 pidof nginx 13312 5371 pidof crond 1509 pidof init 1

C#中可以通过反射分析元数据来解决这个问题,示例代码如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 using System; using System.Reflection;   namespace Hello {     class Program     {

意:本篇文章仅适用于mysql和postgre这两种数据库 1.查询数据库中所有表名及对应表的详细信息 select * from INFORMATION_SCHEMA.tables 2.根据指定名称查询表名(也可模糊查询,可查询表的详细信息) select *  from INFORMATION_SCHEMA.tables where table_name = 'eguid'; select * from INFORMATION_SCHEMA.tables where table_name l

sub 批量新建指定名称的工作表() Dim i As Integer For i = 2 To 10    '根据实际情况修改i大小 Worksheets.Add after:=Worksheets(ThisWorkbook.Worksheets.Count) ActiveSheet.Name = Sheets(1).Cells(1, i) Next End Sub

package com.lzw.b2b.soap; import java.io.ByteArrayInputStream;import java.io.InputStream;import java.util.HashMap;import java.util.Iterator;import java.util.List;import java.util.Map;import java.util.Set; import org.apache.commons.httpclient.HttpClie

实际应用中可能有这样的场景:给定一个进程名称特征串,查找所有匹配该进程名称的进程的详细信息. 解决的办法是: (1) 先用pgrep [str] 命令进行模糊匹配,找到匹配该特征串的进程ID: (2) 其次根据进程ID显示指定的进程信息,ps --pid [pid]: (3) 因为查找出来的进程ID需要被作为参数传递给ps命令,故使用xargs命令,通过管道符号连接: (4) 最后显示进程详细信息,需要加上-u参数. 最终命令形如: pgrep Java | xargs ps -u --pid

1.FindName()说明,可以用来获取已经注册名称的元素或标签 // // 摘要: // 查找具有提供的标识符名的元素. // // 参数: // name: // 所请求元素的名称. // // 返回结果: // 请求的元素.如果未找到匹配的元素,该值将为 null. public object FindName(string name); 但是后台添加名称注册的方式是使用RegisterName(),而不是直接给Name赋值 // // 摘要: // 提供一个可简化对 System.Wi

作用:在 OSX 图标下方显示 App 中文繁体或简体的名称(系统自动选取) 适用:XE7, XE8 for OSX 操作: 创建一个新工程. 在工程目录下创建二个文件夹(zh_??.lproj)文件(InfoPlist.strings)及内容: zh_CN.lproj InfoPlist.strings CFBundleName = "中文测试"; CFBundleDisplayName = "中文测试"; zh_TW.lproj InfoPlist.string

// 重启指定服务 void CPSSDPrinterCtrlPlug::RestartService(const wchar_t* nswServiceName) { SC_HANDLE schSCManager = NULL; SC_HANDLE schService = NULL; do { // -------------------------------------------------------------------------------------------------

请问我知道控件的名称如何得到这个控件对象呢? var button = this.FindName("button1") as Button; Button button = this.FindName("button1") as Button;

在Windows高级设置中的视觉效果中可以设置是否开启“平滑屏幕字休边缘”,可以通过编程的方式来实现: if SystemParametersInfo(SPI_SETFONTSMOOTHING, 1, nil, SPIF_UPDATEINIFILE or SPIF_SENDCHANGE) then begin SHChangeNotify(SHCNE_ASSOCCHANGED,0,nil,nil); end; SystemParametersInfo的第二个参数为1表示开启,0表示关闭.

一.环境 发行版:Ubuntu 18.04.1 LTS 代号:bionic 内核版本:4.15.0-30-generic 二.背景 每次通过ssh登陆服务器,但是超时后自动断开了与服务器的连接,因此在上次虚拟终端中启动的进程都没有退出,遂作此文!!! 三.解决 使用pkill工具强制退出伪终端即可 3.1 先查看当前伪终端情况 who 3.2 根据伪终端情况关掉指定伪终端 pkill -kill -t 某个用户登陆所使用的虚拟终端 (如用户所使用虚拟终端为pts/10,那么命令为pkill -k

遍历指定目录下指定类型文件的函数// ================================================================// 遍历某个文件夹下某种文件,// 使用说明//  _GetFileList(ListBox1.Items,'c:\*.doc');// _GetFileList(MyTStringList,'c:\*.exe');// =====================================================

获取指定文件的版本号 方式一: function GetFileVersion(FileName: string): string; type PVerInfo = ^TVS_FIXEDFILEINFO; TVS_FIXEDFILEINFO = record dwSignature: longint; dwStrucVersion: longint; dwFileVersionMS: longint; dwFileVersionLS: longint; dwFileFlagsMask: long

异常处理汇总-数据库系列  http://www.cnblogs.com/dunitian/p/4522990.html 先看看啥情况 复制查询到的数据,粘贴一下看看啥情况 那就批量处理一下~ 就这样?NONONO,衍伸一下~我们的各种偷懒(世界就是懒人改变的) 先简单封装 --初步封装declare @cloumnName varchar(100)='TName'update ShopMenuType set @cloumnName=replace(@cloumnName,char(10),'

#!/bin/sh #根据进程名杀死进程 ] then echo "缺少参数:procedure_name" exit fi PROCESS=`|grep -v grep|grep -v PPID|awk '{ print $2}'` for i in $PROCESS do echo "Kill the $1 process [ $i ]" $i done 引自:http://www.fengdingbo.com/shell-stop-procedure.html

function TFtpContentThd.DeleteDirectory(NowPath: string): Boolean; var search: TSearchRec; ret: integer; key: string; begin if NowPath[Length(NowPath)] <> '\' then NowPath := NowPath + '\'; key := NowPath + '*.*'; ret := findFirst(key, faanyfile, se

class jsonModel{ public string md5 { get; set; } public object report { get; set; } public string @version { get; set; } [JsonProperty(PropertyName = "@timestamp")] public string @timestamp { get; set; } /// <summary> /// 危险等级 /// </sum

unit Unit1; interface uses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type  TForm1 = class(TForm)    test: TMemo;    Button1: TButton;    Memo

procedure KillProcess(ExeName: string); const PROCESS_TERMINATE = $0001; //进程的PROCESS_TERMINATE访问权限 var ContinueLoop: Boolean; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin //获取系统所有进程快照 FSnapshotHandle := CreateToolhelp32Snapshot(