RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数

delphi 获取/设置桌面窗口样式的Delphi代码

varhWin:HWND;lStyle:LongInt;lExStyle:LongInt;beginhWin:=65632;//$00010060//获取和设置该窗口的样式lStyle:=GetWindowLong(hWin,GWL_STYLE);SetWindowLong(hWin,GWL_STYLE,lStyle);//获取和设置该窗口的扩展样式…
类别:函数 标签: 作者:admin 日期:2018-01-28 11.40.01

delphi HTML document接口获取网页中所有图片

usesmshtml,ActiveX,COMObj,IdHTTP,idURI;{....}procedureGetImageLinks(AURL:string;AList:TStrings);varIDoc:IHTMLDocument2;strHTML:string;v:Variant;x:Integer;ovLinks:OleVariant;DocURL:string;URI:TidURI;&n…
类别:函数 标签: 作者:admin 日期:2018-01-27 22.48.02

Delphi 获取外部程序句柄与发送消息

源码unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ShellAPI,StdCtrls;typeTForm1=class(TForm)btn1:TButton;mmo1:TMemo;procedurebtn1Click(Sender:TObject…
类别:函数 标签: 作者:admin 日期:2018-01-27 18.37.01

DELPHI GetWindowText - 获取窗口标题

//声明:GetWindowText(hWnd:HWND;{窗口句柄}lpString:PChar;{接收文本的缓冲区的指针}nMaxCount:Integer{指定缓冲区大小,其中包含NULL字符;如果文本超出,会被被截断}):Integer;{返回字符个数,不包括中断的空字符;如…
类别:函数 标签: 作者:admin 日期:2018-01-27 18.34.39

delphi ReadProcessMemory 输入进程ID 输入读取地址

procedureTForm6.Button1Click(Sender:TObject);varGhwnd:HWND;ProcID:Cardinal;Process:THandle;lpBaseAddress:Pointer;nSize:SIZE_T;lpNumberOfBytesRead:SIZE_T;//lpBuffer:array[0..500]ofChar;//读取字符串正常…
类别:函数 标签: 作者:admin 日期:2018-01-27 17.59.18

delphi XE Berlin ReadProcessMemory WriteProcessMemory

delphiXEBerlinReadProcessMemoryWriteProcessMemorydelphiXE,Berlin[dcc32Error]Unit9.pas(93):E2033TypesofactualandformalvarparametersmustbeidenticalfunctionReadProcessMemory(hProcess:THandle;constlpBase…
类别:函数 标签: 作者:admin 日期:2018-01-27 17.56.08

delphi IsIPAdress 非正则表达式验证IP的方法

functionIsIPAdress(constValue:String):Boolean;varn,x,i:Integer;Posi:Array[1..4]ofInteger;Oktet:Array[1..4]ofString;beginResult:=true;x:=0;//esdürfennurZahlenundPunktevorhandenseinforn:=1toLength(Valu…
类别:函数 标签: 作者:admin 日期:2018-01-26 16.27.28

delphi 网卡MAC地址随机生成函数

用法://RandomMacAdressGenerator(':');//RandomMacAdressGenerator('-');//RandomMacAdressGenerator('.');functionRandomMacAdressGenerator(Separator:String):String;varSymbol:PChar;MAC:String;I:Integer;beg…
类别:函数 标签: 作者:admin 日期:2018-01-26 16.22.53

delphi GetFileVersion 获取文件版本

usesShellApi,ShlObj,ComObj,ActiveX;functionGetFileVersion(constFileName:string):string;varFSO:OleVariant;beginFSO:=CreateOleObject('Scripting.FileSystemObject');Result:=FSO.GetFileVersion(FileName);en…
类别:函数 标签: 作者:admin 日期:2018-01-25 09.02.30

delphi 复制拷贝文件目录函数

usesShellApi;functionCopyDir(constfromDir,toDir:s****ing):boolean;varlpFileOp:TSHFileOpS****uct;beginZeroMemory(@lpFileOp,SizeOf(lpFileOp));withlpFileOpdobeginwFunc:=FO_COPY;fFlags:=FOF_FILESONLY+FOF_…
类别:函数 标签:CopyDir 作者:admin 日期:2018-01-25 08.53.06

Delphi XE StrPas 遇到的问题

DelphiXE里的StrPas要注意哦废话不多说了,直接上例子解说:procedureTForm1.Button1Click(Sender:TObject);varaa:array[0..1]ofAnsiChar;bb1:string;beginaa[0]:=AnsiChar('1');aa[1]:=AnsiChar('2');bb1:=StrPas(a…
类别:函数 标签: 作者:admin 日期:2018-01-23 13.20.22

delphi中的strpas功能

delphi中的strpas功能Delphi中的strpas是将指针型数据转换为字符串varmystr:array[0..20]ofchar;beginmystr:='我的程序';showmessage(strpas(@mystr));end;显示出的信息就是‘我的程序’
类别:函数 标签: 作者:admin 日期:2018-01-23 13.19.37

delphi 调用浏览文件夹 SelectDirectory

单元:Vcl.FileCtrlvarStoreDir:String;beginif(SelectDirectory('Selectoutputdirectory','',StoreDir))thenbeginEditDestDir.Text:=StoreDir+'\';end;
类别:函数 标签: 作者:admin 日期:2018-01-23 11.49.46

delphi StopProcess 进程关闭函数

单元:TlHelp32functionStopProcess(ExeFileName:string):Integer;constPROCESS_TERMINATE=$0001;varContinueLoop:BOOL;FSnapshotHandle:THandle;FProcessEntry32:TProcessEntry32;beginResult:=0;FSnapshotHandle:=…
类别:函数 标签: 作者:admin 日期:2018-01-23 10.53.16

Delphi 四舍五入含小数点函数

要先useSystem.Math;然後記得輸入的是extended,如果是double的話,小數位數就會有誤差//MyRound四捨五入//input//amt金額//iprecision小數位數(預設0)//ouput//string文字FunctionMyRound(amt:extended;iPrecision:…
类别:函数 标签: 作者:admin 日期:2018-01-21 00.55.24

delphi中move函数的正确理解

我们能看到以下代码varpSource,pDest:PChar;len:integer;.......................//一些代码Move(pSource,pDest,len);//错误Move(pSource^,pDest^,len);//正确看起来确实好像是传值,而不是传地址,但是各位别忘了,…
类别:函数 标签: 作者:admin 日期:2018-01-20 17.16.03

Delphi 文件大小 显示k kb mb gb tb

functionSizeToStr(Size:int64):string;constK=int64(1024);M=K*K;G=K*M;T=K*G;beginifsize<KthenResult:=Format('%dbytes',[size])elseifsize<MthenResult:=Format('%fKB',[size/K])<div...
类别:函数 标签: 作者:admin 日期:2018-01-16 18.32.25

delphi Types of actual and formal var parameters must be identical

delphiXEBerlinReadProcessMemoryWriteProcessMemorydelphiXE,Berlin[dcc32Error]Unit9.pas(93):E2033Typesofactualandformalvarparametersmustbeidentical形参实参functionReadProcessMemory(hProcess:THandle;con…
类别:函数 标签: 作者:admin 日期:2018-01-16 17.51.31

delphi CreateProcessWithLogonW用法

{functionCreateProcessWithLogonW(lpUsername,//user'snamelpDomain,//user'sdomainlpPassword:PWideChar;//user'spassworddwLogonFlags:dword;//logonoptionlpApplicationName:PWideChar;lpCo...
类别:函数 标签: 作者:admin 日期:2018-01-16 15.57.53

delphi GetSessionUserName通过会话ID得到会话名称

//通过会话ID得到会话名称procedureGetSessionUserName(dwSessionId:dword;varUserName:string);varbRes:boolean;dwBufferLen:dword;Ptr:LPTSTR;beginbRes:=WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE,d…
类别:函数 标签: 作者:admin 日期:2018-01-16 13.12.41