阳光有点冷

DELPHI高精度计时方法//取毫秒级时间精度(方法一)：　　var　　t1,t2:int64;　　r1:int64;　　begin　　t1:=GetTickCount;//获取开始计数 WINDOWS API　　sleep(1000);{do...}//执行要计时的代码 　　t2:=GetTickCount;//获取结束计数值　　 r1:=t2-t1;//取得计时时间，Y\`国4~络(}.u_%t"hV单位毫秒(ms)　　 showmessage(inttos...

输入procedure TypeKeyString(s: string);var c: Char; i: integer; off: integer; vkw: Word;begin for i := 1 to Length(s) do begin c := s[i]; if (c < #128) then begin vkw := VkKeyScan(c); off := 0; if vkw and $10...

下面的是返回CMD命令自定义函数//返回DOS运行命令信息function RunDosGetStr(Command: string): string;var hReadPipe: THandle; hWritePipe: THandle; SI: TStartUpInfo; PI: TProcessInformation; SA: TSecurityAttributes; // SD : TSecurityDescriptor; BytesRead: D...

Delphi中，执行命令或者运行一个程序有2个函数，一个是winexec，一个是shellexecute。这两个大家应该都见过，其中，winexec比较简单，可以直接运行一个外部程序，shellexecute则更高级一些，除了可以运行外部exe，还可以执行特殊命令。下面我们就分别举例子说明：我们先来看看运行一个exe程序，以记事本为例：WinExec(PChar(' notepad .exe'),SW_NORMAL);//正常模式打开WinExec(PChar(' notepad .exe'),

第一种方法，使用“过程调用”procedure Del; // 自定义过程var Mutex: THandle;begin Mutex := CreateMutex(nil, True, PChar(Application.Title)); if GetLastError = ERROR_ALREADY_EXISTS then begin Application.MessageBox('重复登录！','系统提示', MB_ICONERROR); ReleaseMut...