么意思博客

先添加个常量，如下： {$R *.dfm} const cShellDesktop ='Desktop'; 再添加个函数： function TForm1.GetShellFolder(const folder: string): string; //获取桌面 const cWin32='SOFTWARE\Microsoft\Windows\CurrentVersion'; cSHellPrefix = '\Explorer\Shell Folders'; var r:TRegistry; begin ...

procedure TForm1.Button3Click(Sender: TObject); var sFolder: IShellFolder; pIDList: PITEMIDLIST; fullPath: WideString; Len: integer; buffer: array [0 .. MAX_PATH] of Char; pchEaten, Attributes: ULONG; begin Len := GetTempPathW(0, nil); SetLength(fullPath, Len); GetTe ...

先在WebBrowser 的事件中找到 OnDocumentComplete 并在里面写代码如下： 如下： procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin tag:=1 end; 在使用WebBrowser打开网站的同时加入以下代码： tag:=0; // 这里写打开web代码 w ...

自己写的程序，有时需要去迎合用户。我们不得不做些改变，使用户使用我们的软件更加方便。 下面就是创建快捷方式的代码： uses ShlObj, ActiveX, ComObj; function CreateShortcut(Exe:string; Lnk:string = ''; Dir:string = ''; ID:Integer = -1):Boolean; var IObj: IUnknown; ILnk: IShellLink; IPFile: IPersi ...

360是一款很操蛋的垃圾杀毒，他连金山都比不上。不是他先免费，他的用户肯定少得可怜！ delphi的程序编写的程序，如果你要在程序上放个BUTTON让用户打开指定的网站。360玩命的拦截，说你调用浏览器注入浏览器进程操作。 花了很多时间网上找资料，看哪种调用方式不被拦截。终于被我找到了，现在我分享给大家！ uses ComO ...

先将如下代码保存为 UAC.manifest <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3"> ...

有时候写程序需要判断某个进程是否已启动，这个函数就可以做到！ uses Tlhelp32 function CheckTask(ExeFileName: string): BOOLean; //监视进程 const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOLean; FSnapshotHandle: THandle; FProcessEntry32:TProcessEntry32; begin result :=false ; FSnapsh ...

在写程序时，可能会用到！在这里记录下，已经确认可用的代码！ uses Tlhelp32; function KillTask(ExeFileName: string): integer;//杀进程 const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOLean; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin Result := 0; FSnapshotHandle : ...

今天在针对淘宝开发时，遇到了问题！ 在delphi中使用TWebBrowser控件时无法复制和粘贴。。。 是件很头疼的事，于是找了很多资料。但能用的却是很少的，但还是被我找到了。 顺便在这里留个笔记，免得以后用到时又去找。 先在主窗体引用ActiveX单元。 uses Activex; 然后在主窗体的OnCreate事件中加入如下代码： oleiniti ...