以下是引用片段： var hDesktop : THandle ; s : string ; function EnumChidProc(h:THandle;lp:DWORD):bool ; stdcall ; var cBuf : array[0..255] of char ; begin GetClassName(h,cBuf,255) ; if StrComp(cBuf,'SysListView32')=0 then begin hDes...
很不错的一个 3389 自动登陆器 ! 实现自动登录 ， 代码也很少 运行delphi--Components--Import Active Control，在列表中找到下面的Microsoft Terminal Services Active Client 1.0 Type Library (Version 1.0),点击ins...
DelphiXE8来了，FMX的性能有了巨大的提升，比如：XE7下ListBox上下滑动的卡顿已经不复存在，直接用xe8编译后，再上下划动ListBox，已经变的非常流畅。另外，也见到有网友说，通过测试内...
EARTH_RADIUS=6378137.0;//单位MfunctiongetRad(d:Double):Double;beginResult:=d*PI/180.0;end;functionGetFlatternDistance(lat1,lng1,lat2,lng2:Double):Double;varf,g,l:Double;sg,sl,sf:Double;s,c,w,r,d,h1,h2:Double;a,fl:Double;beginf:=getRad((la...
遇到这样一个问题，利用MainForm的OnShow事件，来显示LoginForm： procedure TMainForm.FormShow(Sender: TObject); begin LoginForm.Show; end; 运行的显示效果是预想的，运行应用，直接显示了LoginForm,但发现，...
unit Android.JNI.Toast; // Java bridge class imported by hand by Brian Long (http://blong.com) interface {$IFDEF ANDROID} uses Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText; {$ENDIF} {$IFDEF ANDROID}...
一、调用javascript的方法 两种： 第一种：采用自编函数的方法 function ExecuteJavaScript(WebBrowser:TWebBrowser; Code: string):Variant; var //发送脚本 Document:IHTMLDocument2; Window:IHTMLWindow2; begin // execute ja...
usesComObj; procedureCrnPinAppToWin7Taskbar(strPath,strApp:string); var vShell,vFolder,vFolderItem,vItemVerbs:Variant; vPath,vApp:Variant; i:Integer; str,strPinName:String; begin vShell:=CreateOleObject('Shell.Application'); vPath:=strPath;...
在项目的工程文件中勾选主题，设置缺省主题为Windows 部分代码如下： uses Vcl.Themes; procedureTfrmMain.Button1Click(Sender:TObject); begin TStyleManager.SetStyle(ComboBox1.Text); end; procedureTfrmMain.FormCreate(Se...
TMemo中的两个方法： TMemo.Lines.Add(stringxxx);意思是向TMemo中增加字符串stringxxx； TMemo.Lines.Text:=stringxxx，意思是清空了Memo1，然后写入stringxxx。 TMemo中的属性： TMemo的属性中没有Scrollbar这个...