Shell脚本源码如下： #!/bin/sh #根据进程名杀死进程 if [ $# -lt 1 ] then echo "缺少参数：procedure_name" exit 1 fi PROCESS=`ps -ef|grep $1|grep -v grep|grep -v PPID|awk '{ p ...
分类：
系统相关 时间：
2019-09-04 13:43:30
阅读次数：
97
段代码手工折叠 昨天同事问到，delphi里exe文件如何传递参数？ 因为手头装了Delphi,PowerBuilder 以下就是代码： Delphi: procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i ...
分类：
其他好文 时间：
2019-09-04 09:40:11
阅读次数：
123
使用 InputBox、InputQuery 的启发 看了 InputBox、InputQuery 函数实现的源码, 有些收获与心得... 通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str ...
原文链接：http://www.cnblogs.com/hnxxcxg/archive/2012/12/29/2839358.html procedure TFrmMain.btnUpdateFilesClick(Sender: TObject);begin try if Assigned(gEXE ...
分类：
其他好文 时间：
2019-09-04 00:26:47
阅读次数：
94
实现多标签的动态添加,切换,关闭 使用RzPageControl来实现多标签页使用菜单来打开标签页,通过标签页的caption来判断将标签页是否已经被打开过了.1.创建标签页,并判断是否是已经打开过的页面 procedure TFmain.Page1Click(Sender: TObject); v ...
分类：
其他好文 时间：
2019-09-03 16:55:33
阅读次数：
79
type personInfo=Record //定义Record Name:String[10]; Age:integer; end; //写记录包括新键与添加记录 procedure WriteRec; var NewRec:PersonInfo; //声明Rec变量 F:File of Per... ...
方法1： uses comobj; procedure TForm1.Button1Click(Sender: TObject); var v:variant; begin v:=CreateOleObject('ShockwaveFlash.ShockwaveFlash'); if not Var ...
分类：
其他好文 时间：
2019-09-03 16:30:14
阅读次数：
96
procedure TForm1.FormCreate(Sender: TObject); var hr :thandle; begin hr:=createroundrectrgn(1,1,width-2,height-2,5,5); setwindowrgn(handle,hr,true); e ...
1.Centos5.6的启动流程linux：kernel+rootfs+（int）kernel:进程管理（系统调用），内存管理，网络管理，驱动程序，文件系统。安全功能。rootfs：glibc标准库库：函数集合，function：调用接口库文件（二进制程序）没有自我独立的运行的入口，只能在被调用时使用。过程调用：procedure不返回值，只是做了一些事函数调用：function必须有返回值程序：
分类：
其他好文 时间：
2019-09-01 12:33:25
阅读次数：
102
函数是什么? 函数一词来源于数学，但编程中的「函数」概念，与数学中的函数是有很大不同的，具体区别，我们后面会讲，编程中的函数在英文中也有很多不同的叫法。在BASIC中叫做subroutine(子过程或子程序)，在Pascal中叫做procedure(过程)和function，在C中只有functio ...
分类：
编程语言 时间：
2019-08-31 15:01:16
阅读次数：
85
