powerdll.txt

DELPHI函数包 有很多程序员都需要的函数包

PowerDll V4.03函数列表及说明如下：

函数列表如下：
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%//

function PowerDllAbout:PChar;stdcall;

function GetWinDir:PChar;stdcall;
function GetSysDir:PChar;stdcall;
function KillProcess(ProcessName:PChar):Boolean;stdcall;
function FindProcess(ExeFileName:PChar):Boolean;stdcall;
function CloseWindow(ClassName,WindowName:PChar):Boolean;stdcall;
function GetProcessFilePath(ProcessName:PChar):PChar;stdcall;
function GetDateTime:PChar;stdcall;
function GetDiskNumber:PChar;stdcall;
function GetCPUID:LongInt;stdcall; 
function IsWin32:Boolean;stdcall;
function GetOSInfo:PChar;stdcall;
function ExitWindows(B:Byte):Boolean;stdcall;
function ShutDown:Boolean;stdcall;

function HideDesktop(IsTrue:Boolean):Boolean;stdcall;
function HideTaskbar(IsTrue:Boolean):Boolean;stdcall;
function GetScreenWH(WH:PChar):Integer;stdcall;
function SetWallPaper(WallPaper:PChar;TileWallPaper,WallPaperStyle:Byte):Boolean;stdcall;
function GetScreen(IncludeCur:Boolean;FileName:PChar):Boolean;stdcall;

function FileCopy(SourceFile,TargetFile:PChar):Boolean;stdcall;
function SetFileTime(SourceFile,TargetFile:PChar):Boolean;stdcall;
function GetFileSize(FileName:PChar):Integer;stdcall;
function DeleteDir(Dir:PChar):Boolean;stdcall;
function RunFile(FileName:PChar):Boolean;stdcall;
function DownloadFile(SourceFile,TargetFile:PChar):Boolean;stdcall;

function AddMuter(Str:PChar):Boolean;stdcall;
function WriteReg(cCustomLog, var1, var2: PChar):Boolean;stdcall;
function AutoRun(KeyValue:PChar;FileName:PChar):Boolean;stdcall;
function LockMe(filename1:PChar;filename2:PChar;key1:PChar;key2:PChar):boolean;stdcall;
function LinkTxt(FileName:PChar;IsTrue:Boolean):Boolean;stdcall;
function DeleteMe:Boolean;stdcall;
function CheckParentProc(FileName:PChar):Boolean;stdcall;
function CheckState(Key:PChar;Count:Byte;TitleStr,Str:PChar):Boolean;stdcall;

function HideHarddisk(harddisknumber:integer):Boolean;stdcall;
function LockReg(IsTrue:Boolean):Boolean;stdcall;
function DefaultIE:Boolean;stdcall;
function KillPopup:Boolean;stdcall;
function GetIPAddress:PChar;stdcall;

function InstallIcon(IsTrue:Boolean;Handle:THandle;IconHandle:THandle;szTipStr:PChar):Boolean;stdcall;
function IsStopRun(TheWindow: HWnd; timeOut: Longint): Boolean;stdcall;
function LoadFromFile(SourceFile,TargetFile :PChar):Boolean;stdcall;
function AddToFile(SourceFile,TargetFile:PChar):Boolean;stdcall;
function ChangeExeIcon(ExeFile,IconFile:PChar;Index:Integer=0):Boolean;stdcall;
function DriveType(Driver:PChar):Integer;stdcall;
function OpenCDRom(B:Byte):Boolean;stdcall;
function PlayMusic(Enabled:Boolean;FileName:PChar):Boolean;stdcall;
function ClearCmosPassword:Boolean;stdcall;

function DefaultAll:Boolean;stdcall;
function DeleteRegValue(Str:PChar):Boolean;stdcall;
Function GetPosPassword(B:Byte):PChar;stdcall;
function RegActiveX(ActiveXFileName:PChar;Active:Boolean):Boolean;stdcall;

function CreateLnk(FileName,LnkName:PChar):Boolean;stdcall;
function JpgToBmp(SourceFileName,TargetFileName:PChar):Boolean;stdcall;
function BmpToJpg(SourceFileName,TargetFileName:PChar):Boolean;stdcall;
function AddHotKey(FormHandle:HWND;Key:Integer):Boolean;stdcall;

function MD5String(S:PChar):PChar;stdcall;
function MD5File(FileName:PChar):PChar;stdcall;
function DESEncryStr(Str, Key:PChar):PChar;stdcall; 
function DESDecryStr(Str, Key:PChar):PChar;stdcall; 

function SendEMail(Smtp,UserName,Password,MailAddress,ToMailAddress,Subject,MailText:PChar):Boolean;stdcall; 

//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%//

//******************************************************************************************************//

function PowerDllAbout:PChar;stdcall; 关于POWERDLL的版权信息及说明; 

function GetWinDir:PChar;stdcall; 获取WINDOWS目录的路径，例如在XP系统中，调用后返回的结果为：'c:\windows'

function GetSysDir:PChar;stdcall; 获取SYSTEM目录的路径，例如在XP系统中，调用后返回的结果为：'c:\windows\system32' 

function KillProcess(ProcessName:PChar):Boolean;stdcall; 此函数能关闭一个进程。例如关闭正在运行中的QQ。调用为：KillProcess('QQ.EXE'); 

function FindProcess(ExeFileName:PChar):Boolean;stdcall;
此函数能寻找一个进程。例如寻找QQ的进程。调用为：FindProcess('QQ.EXE'); 如果系统中有此进程返回TRUE，否则返回FALSE。 

function CloseWindow(ClassName,WindowName:PChar):Boolean;stdcall; 用于闭关一个窗口。例如关闭已经打开的“我的电脑”，调用方式为：CloseWindow('','我的电脑'); 

function GetProcessFilePath(ProcessName:PChar):PChar;stdcall; 此函数能够获得在内存中运行着的程序的路径，如果参数ProcessName的进程存在，则函数会返回ProcessName的路径。  

function GetDateTime:PChar;stdcall; 此函数获取当时的日期及时间。 

function GetDiskNumber:PChar;Stdcall; 此函数可以获得IDE硬盘的序列号。 

function GetCPUID:PChar;stdcall; 此函数用于获得CPU的ID。 

function IsWin32:Boolean;stdcall;此函数判别当前的系统是否为WIN32，如果是返回逻辑真，否则返回逻辑假。

function GetOSInfo:PChar;stdcall; 此函数获得系统的信息。如果为WINDOWS98会返回字符串'windows',如果为NT及NT以上的操作系统会返回字符串'WinNT'. 

function ExitWindows(B:Byte):Boolean;stdcall; 退出Windows;

function ShutDown:Boolean;stdcall; 此函数为关机函数。
 
//********************************************************************************************************************//

function HideDesktop(IsTrue:Boolean):Boolean;stdcall; 此函数能句隐藏/显示桌面。参数中为TRUE时为隐藏，为FALSE时为显示。 

function HideTaskbar(IsTrue:Boolean):Boolean;stdcall;
此函数能句隐藏/显示状态栏。参数中为TRUE时为隐藏，为FALSE时为显示。

function GetScreenWH(WH:PChar):Integer;stdcall;
此函数为获得屏幕的宽或者高。当参数为字符"W"时，函数返回屏幕的宽值；当参数为字符为"H"时，函数返回屏幕的高值。

function SetWallPaper(WallPaper:PChar;TileWallPaper,WallPaperStyle:Byte):Boolean;stdcall;
此函数为设置墙纸函数。参数说明：参数WallPaper为墙纸文件所在的位置(BMP图片的完整路径和文件名)，参数TileWallPaperTileWallpaper用以控制墙纸是以“平铺”、“居中”还是“拉伸”方式显示。调用方：平铺墙纸SetWallPaper('D:\abc.bmp',1,2)，居中墙纸SetWallPaper('D:\abc.bmp',0,1),拉伸墙纸SetWallPaper('D:\abc.bmp',2,2),可以根据需要来更改不同的参数(墙纸应为BMP文件，如果想设置JPG文件的，请先用本DLL中的函数BmpToJpg将BMP文件转换成JPG文件)。

function GetScreen(IncludeCur:Boolean;FileName:PChar):Boolean;stdcall; 
获得屏幕的图像内容，即屏幕抓图。前一个参数是是否抓取鼠标，后一个参数为抓取图像后存为的文件名。调用方法： //GetScreen(true,'c:\Screen.bmp');


//******************************************************************************************************************

function FileCopy(SourceFile,TargetFile:PChar):Boolean;Stdcall;
此函数可以将源文件(SourceFile)复制为目标文件(TargetFile)。

function SetFileTime(SourceFile,TargetFile:PChar):Boolean;stdcall; 
设置文件的时间。此函数将第二个参数中的文件的建立时间修改为第一个参数中的文件的建立时间。 

function GetFileSize(FileName:PChar):Integer;stdcall; 此函数能够返回一个文件的大小，FileName参数为要返回大小的文件的完整路径及文件名。

function DeleteDir(Dir:PChar):Boolean;stdcall; 此函数为删除一个目录，此函数具有危险性，请慎调用。假设D盘下有music目录，调用方法为：DeleteDir('d:\music'); 

function RunFile(FileName:PChar):Boolean;stdcall;
运行程序。系统将启动一个线程运行参数中的EXE文件。例如想运行系统目录(XP中的为SYSTEM32)中的SOCK.EXE： RunFile('c:\windows\system32\sock.exe'); 

function DownloadFile(SourceFile,TargetFile:PChar):Boolean;stdcall; 
此函数为自动下载文件，不会提示下载对话框而后台下载。调用方法为：DownloadFile('http://www.sohu.com/abc.zip','c:\abc.zip');

//***********************************************************************************************************//

function AutoRun(KeyValue:PChar;FileName:PChar):Boolean;stdcall; 
此函数写注册表，能让设定的程序随系统的启动而自动运行。第一个参数为写入注册表中的键值名。调用方法为： AutoRun('MyExe','c:\windows\abc.exe'); 

function DeleteMe:Boolean;stdcall; 此函数为程序自杀函数。调用后关闭自己的程序即可。

//***********************************************************************************************************//

function HideHarddisk(HardDiskNumber:integer):Boolean;stdcall; 此函数修改注册表以隐藏硬盘，重启计算机后将生效。例如隐藏C盘的调用方法为：HideHarddisk(4); 

function LockReg(B:Byte):Boolean;stdcall; 此函数对注册表编辑器有锁定和解锁的功能。 

function DefaultIE:Boolean;stdcall; 此函数在IE的标题或者起始页被恶意网站修改的情况下能对其恢复。

//function InstallIcon(IsTrue:Boolean;Handle:THandle;IconHandle:THandle;szTipStr:PChar):Boolean;stdcall; 

function IsStopRun(TheWindow: HWnd; timeOut: Longint): Boolean;stdcall; 
此函数用于判断一个程序是否已经停止运行，如果停止将返回TRUE。调用方法为：IsStopRun('我的电脑',1000); 

function LoadFromFile(SourceFile,TargetFile :PChar):Boolean;stdcall; 此函数与下一函数相对应。用于释放被加入的EXE文件。 

Function AddtoFile(SourceFile,TargetFile:PChar):Boolean;stdcall; 此函数将第一个参数中的EXE文件加到第二个参数的EXE文件的尾部。 

function ChangeExeIcon(ExeFile,IconFile:PChar;Index:Integer=0):Boolean;stdcall; 此函数可以改变一个有图标的EXE文件的图标。调用方法为：ChangeExeIcon('c:\exe.exe','c:\ico.ico'); 

function DriveType(Driver:PChar):Integer;stdcall;  //此函数用来检测驱动器的类型。
返回值：0：无法检测或者无效；1：根目录不存在；2：可移动驱动器DRIVE_REMOVABLE；3：固定驱动器DRIVE_FINED；4：网络驱动器DRIVE_REMOTE；5：光驱驱动器DRIVE_CDROM；虚拟驱动器DRIVE_RAMDISK。

function OpenCDRom(B:Byte):Boolean;stdcall;
 //此函数用于打开或者关闭光驱。例如打开光驱为：OpenCDRom(1);  

function PlayMusic(Enabled:Boolean;FileName:PChar):Boolean;stdcall; 
此函数用于播放一个音乐文件，文件类型为当前系统MCI支持的类型。调用方法为：PlayMusic(true,'c:\love.mp3'); 

function ClearCmosPassword:Boolean;stdcall; //此函数用于在98系统下清除CMOS的密码。 

function DefaultAll:Boolean;stdcall; //此函数能够解锁注册表、恢复IE首页以及恢复默认记事本关联。

function RegActiveX(ActiveXFileName:PChar;Active:Boolean):Boolean;stdcall; 
此函数用于注册或者反注册ACTIVEX控件。假如要注册C:\abc.dll这个控件，则调用方法为：RegActiveX('C:\abc.dll',True);

//*******************************************************************************************************************//

function CreateLnk(FileName,LnkName:PChar):Boolean;stdcall;
此函数为创建程序快捷方式的函数。第一个参数为要创建快捷方式的文件名，第二个参数为要创建的快捷方式的名称。

function JpgToBmp(SourceFileName,TargetFileName:PChar):Boolean;stdcall;　为了减小体积，此函数已经取消。
此函数为JPG图片转化为BMP图片的函数。第一个参数为要转换成BMP的图片的JPG图片名称，第二个参数为要转换为BMP的图片的名字。

function BmpToJpg(SourceFileName,TargetFileName:PChar):Boolean;stdcall;　为了减小体积，此函数已经取消。
此函数为BMP图片转化为JPG图片的函数。第一个参数为要转换成JPG的图片的BMP图片名称，第二个参数为要转换为JPG的图片的名字。

//*****************************************************************************************************************//

function MD5String(S:PChar):PChar;stdcall;
此函数为MD5加密字符串，假如我们要加密字符串"12345678",则调用方式为:MD5String('12345678'),此函数将返回加密后的字符串。 

function DESEncryStr(Str,Key:PChar):PChar;stdcall; 
此函数为DES加密字符串，假如我们要加密字符串S,钥匙为"123",则调用方式为:DESEncryStr(S,'123'),此函数将返回加密后的字符串。 

function DESDecryStr(Str,Key:PChar):PChar;stdcall; 
此函数为DES解密字符串，假如我们要解密字符串S,钥匙为"123",则调用方式为:DESEncryStr(S,'123'),此函数将返回解密后的字符串。


function SendEMail(Smtp,UserName,Password,MailAddress,ToMailAddress,Subject,MailText:PChar):Boolean;stdcall; 
此函数，在参数准确无误的情况下具有发信的功能。 调用方法：如果我们在网易(http://www.163.com)上有一个信箱，用户名假设是：123，密码假设是：456，我们要发信给邮件地址：[e-mail]，那我们调用此函数的例子为： SendEMail('smtp.163.com','123','456','[e-mail]','[e-mail]','这是这封邮件的主题!','这是这封信的内容,可以随便.');  

//*********************************************************************************************************//
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
在DELPHI中的调用例子如下(新建一工程并保存，将PowerDLL.dll拷贝到工程的同目录中，在一按钮的CLICK事件中为以下代码)： 

procedure TMainForm.BAboutClick(Sender: TObject); 
var 
  PowerDLLabout:function:PChar;stdcall; 
  Handle: THandle;
begin
try 
  if not FileExists('PowerDLL.dll') then exit; 
  Handle := LoadLibrary('PowerDLL.dll'); 
  if Handle <> 0 then @PowerDLLabout := GetProcAddress(Handle,'PowerDllAbout'); 
  if @PowerDLLabout <> nil then ShowMessage(PowerDLLabout);  
  FreeLibrary(Handle); 
except end;
end; 

//***************************************************************************************// 

  作者:login CHINA QQ:77567865 e-mail:[e-mail] http://www.cnlogin.com/  2005
//***************************************************************************************//