您正在查看 "默认分类" 分类下的文章 2012-05-09 8:20 procedure TForm1.FormCreate(Sender: TObject);
var
num1, num2: integer;
reg: Tregistry;
nums1: Tstringlist;
nums2: Tstringlist;
I: integer;
begin |
2012-05-09 8:18 首先你在窗体FORM1 上添加2个BUTTON按钮和一个MEMO1 ，把握的单元代码替换掉你的单元全部代码，运行后单击BUTTON1 就可以满足你的要求。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,registry;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { |
2012-05-09 8:16 DELPHI如何判断服务是否安装？如果安装如果判断其当前状态？运行？停止？暂停？ 正好前段时间用到这些功能，以下为示例代码，希望对你有用！
记得use WinSvc; //-------------------------------------
// 获取某个系统服务的当前状态
//
// return status code if successful
// -1 if not
//
// return codes:
// SERVICE_STOPPED
// SERVICE_RUNNING
// SERVICE_PAUSED |
2012-05-08 22:24 delphi 日期相减 比较大小 过期时间函数 (2012-04-08 19:39:12) |
2012-03-11 17:42 2011-11-19 23:34 1 volo view express ： autodesk Volo View Express是一个非常实用的免费工具，用来查看DWG格式的文件。安装时点击Next，可查看由官方提供的免费序列号。不过volo view express 只支持 autoCad 2004 及以下版本的 dwg格式文件。
2 whip4.exe
3 Free DWG Viewer： 现在版本是 7.0 ，支持现在所有autoCad版本的dwg格式文件。并且可以在软件中设置关联浏览器。
|
2011-11-16 19:33 ;laymod.lsp
;__________________________
;解决R14“bonus”工具的移植
;图层管理工具
; left2r
;2004.12.18
;lleft@126.com
;浙江杭州
;-------------------------------------------
;图层对象选择,将标注归入dim层,文字归入txt层
;___________________________________________
(defun C:laymod(/ lm_ssd lm_sst)
(if (not (tblsearch "layer" "DIM")) |
2011-10-16 22:45 将以下代码保存为qqlogin.vbs
Dim WshShell, QQPath, QQselect
QQPath="C:\Progra~1\Tencent\QQ\Bin\QQ.exe"
'第一个QQ登陆
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath,1,ture
WScript.Sleep 2000
WshShell.AppActivate "第一个QQ登陆"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "这里改成ＱＱ号码"
WScript.Sleep 500
WshShell.SendKeys "{TAB}" |
2011-10-13 22:20 将下面程序保存为"ccc.vbs",加入启动项。
'==================================
Dim a,b,c
c=Time'系统时间
Set ObjWsh = CreateObject("Wscript.Shell")
a=#09:30:00# '定义时间段
b=#18:30:00# '定义时间段
'就是说从09:30:00到18:30:00这段时间，开机启动，电脑就会自己关闭。 |
2011-07-30 7:40
安装一个网络爸爸就可以限制时间
不太可能在运行里输入什么命令行就搞定的
这个软件百度上搜索一下，下载一个就OK了。
参考：
建立一个普通新用户
在MS-DOS提示符中输入如下命令：“net user john 123 /add”，回车。即可新建一个名为“John”，密码为“123”的新用户。Add参数表示新建用户。
值得注意的是：用户名最多可有 20 个字符，密码最多可有 127 个字符。
建立一个登录时间受限制的用户
用以下方法可实现对电脑使用时间的控制。比如， |
| | |
转载▼
