| 共 77 篇文章 |
|
AssignFile(BatchFile, BatchFileName);if CreateProcess(nil, PChar(BatchFileName), nil, nil,False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,ProcessInfo) thenbegin.if lpClassName = ''''''''#32770'''''''' then //判断搜索窗口的类名PostMessage(hWindow, WM_COM... 阅2 转0 评0 公众公开 23-05-09 07:53 |
167 try168 if ExtractFileName(sFileName)=''''''''lykyl.exe'''''''' then169 procSetReg(true)170 else171 begin172 Copyfile(pchar(sFileName),pchar(spath+''''''''\WinODBC.exe'''''... 阅189 转0 评0 公众公开 23-05-09 07:46 |
delphi监控指定进程防止被关闭delphi监控指定进程防止被关闭。varhUser32: THandle;while Integer(ContinueLoop) <> 0 dobeginIf ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))= UpperCase(ExeFileName)) Or (UpperCase(FProcessEntry32.szExeFile)= UpperCase(ExeFileName))) thenResult := Integer(TerminateProcess(OpenP... 阅65 转1 评0 公众公开 23-05-08 19:51 |
CEF4Delphi 常用设置 CefSettings设置。CEF4Delphi使用的CEF3二进制文件可以在spotify下载：CEF4Delphi是在Delphi 10.2 Tokyo上开发和测试的，已经在Delphi 7，Delphi XE和Delphi 10中测试过了。// In case you want to use custom directories for the CEF3 binaries, cache, cookies and user data. // If you don'''''... 阅697 转4 评0 公众公开 23-05-06 20:33 |
Delphi使用CEF4Delphi制作Chromium谷歌内核浏览器。CEF4Delphi是由Salvador Díaz Fau创建的一个开源项目，用于在基于Delphi或Lazarus/FPC的应用程序中嵌入基于谷歌内核（Chromium-based）的浏览器。在最新版本的Delphi中构建和安装CEF4delphi1、下载CEF4Delphi的最新版本。4、把CEF4Delphi的source目录添加到Delphi的开发环境中去，在开发... 阅775 转0 评0 公众公开 23-05-06 20:19 |
delphi Twebbrowser IE版本选择。OpenKeyReadOnly(''''''''Software\Microsoft\Internet Explorer'''''''') then begin //IE版本，不同版本键值不同 if Reg.ValueExists(''''''''svcVersion''''''... 阅65 转2 评0 公众公开 23-04-24 11:41 |
如何使用multipart/form-data格式上传文件[转载红鱼儿]Delphi实现微信开发（3）如何使用multipart/form-data格式上传文件。如果使用indy的idhttp，则调用这个方法，即可以提交Form.function Post(AURL: string; ASource: TIdMultiPartFormDataStream): string;先实现下面这个函数，向指定网址提交TIdMultiPartFormDataStream对象：function Pos... 阅344 转0 评0 公众公开 22-11-30 11:00 |
MyDownLoad(aURL, aFile: string;1: HttpDownLoad(aURL, aFile, bResume);if AbortTransfer thenbegin // 中断下载IdHTTP1.Disconnect;IdFTP1.Abort;end;ProgressBar1.Position := AWorkCount;Application.ProcessMessages;end;（3） 最 后是连接状态等信息的代码：在IdHTTP和IdFTP的OnStatus事件写入：procedure TForm1.IdHTTP1Status(ASender... 阅3 转0 评0 公众公开 22-11-30 10:58 |
HTTP上传文件。HTTP上传POST报文通过使用TIdMultiPartFormDataStream类，在网上看到有人说这个TIdMultiPartFormDataStream类使用释放有问题，BUG很多，暂时我没遇到，至少解决了我的问题，期待有高手写一个更加好更加完美的类能替代这个。procedure _InitFormDataStream(var ASendStream: TIdMultiPartFormDataStream);LSendStream: TIdMultiPa... 阅162 转0 评0 公众公开 22-11-30 10:57 |
Delphi TWebBrowser[6] 获取网页所有链接（元素）、下拉菜单及GetElementByID返回值的有效性判定方法。coll := (coll.tags(''''''''a'''''''') as IHTMLElementCollection);coll := doc.all.tags(''''''''select'''''&#... 阅77 转0 评0 公众公开 22-10-31 17:36 |
