哈哈Delphi学习空间

program XX；{$APPTYPE CONSOLE}usesSysUtils,Windows,ShellApi,TlHelp32;//-----------------------DETERMINE PROCESS EXISTANCE-----------------------------function process_exists(exeFileName: string): Boole

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, ComCtrls;typeTForm1 = class(TForm) Timer1: TTimer;

//具体使用方法如下,另外还附有源代码: //* ///1、 MD5String、MD5File、MD5Print、MD5Match这四个函数是供调用的。其他是用来辅助这几个函///////数//的子函数。 //2、MD5String为加密字符串。 3、MD5File为加密这个文件。 4、MD5Print是将加密后的密文转换成字符串。 5、MD5Match是用来比较密文是否