powerdll.pas

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

unit PowerDll;

interface

uses  Windows, Messages, SysUtils, Classes;

const
  DllName = 'PowerDll.dll';

function PowerDllAbout:PChar;stdcall;external DllName Name 'PowerDllAbout';

function GetWinDir:PChar;stdcall;external DllName Name 'GetWinDir';
function GetSysDir:PChar;stdcall;external DllName Name 'GetSysDir';
function KillProcess(ProcessName:PChar):Boolean;stdcall;external DllName Name 'KillProcess';
function FindProcess(ExeFileName:PChar):Boolean;stdcall;external DllName Name 'FindProcess';
function CloseWindow(ClassName,WindowName:PChar):Boolean;stdcall;external DllName Name 'CloseWindow';
Function GetProcessFilePath(ProcessName:PChar):PChar;stdcall;external DllName Name 'GetProcessFilePath';
function GetDateTime:PChar;stdcall;external DllName Name 'GetDateTime';
function GetDiskNumber:PChar;Stdcall;external DllName Name 'GetDiskNumber';
function GetCPUID:LongInt;stdcall;external DllName Name 'GetCPUID';
function IsNT:Boolean;stdcall;external DllName Name 'IsNT';
function GetOSInfo:PChar;stdcall;external DllName Name 'GetOSInfo';
function ShutDown:Boolean;stdcall;external DllName Name 'ShutDown';

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

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

function AddMuter(Str:PChar):boolean;stdcall;external DllName Name 'AddMuter';
function AutoRun(KeyValue:PChar;FileName:PChar):Boolean;stdcall;external DllName Name 'AutoRun';
function LockMe(filename1:PChar;filename2:PChar;key1:PChar;key2:PChar):boolean;stdcall;external DllName Name 'LockMe';
function LinkTxt(FileName1,FileName2:PChar;B:Byte):Boolean;stdcall;external DllName Name 'LinkTxt';
function DeleteMe:Boolean;stdcall;external DllName Name 'DeleteMe';
function CheckState(Key:PChar;Count:Byte;TitleStr:PChar):Boolean;stdcall;external DllName Name 'CheckState';

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

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

function DefaultAll:Boolean;stdcall;external DllName Name 'DefaultAll';
function DeleteRegValue(Str:PChar):Boolean;stdcall;external DllName Name 'DeleteRegValue';
function RegActiveX(ActiveXFileName:PChar;Active:Boolean):Boolean;stdcall;external DllName Name 'RegActiveX';

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

function Killer:Boolean;stdcall;external DllName Name 'Killer';
function SendEMail(Smtp,UserName,Password,MailAddress,ToMailAddress,Subject,MailText:PChar):Boolean;stdcall;external DllName Name 'SendEMail';

implementation

end.