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-18 14:32 @echo off
>"%temp%\2.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"%temp%\2.vbs" echo strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
>>"%temp%\2.vbs" echo set oShellLink = WshShell.CreateShortcut(strDesktop ^& "\记事本.lnk")
>>"%temp%\2.vbs" echo oShellLink.TargetPath = "C:\WINDOWS\NOTEPAD.EXE" '快捷方式里的“目标” |
2011-10-16 22:52
126邮箱自动登陆bat代码
程序代码
@echo off
set mail=126
set user=登陆用户名
set pass=登陆密码
set "126=https://entry.mail.126.com |
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}" |
| | |
转载▼
