Delphi / Win32SDK
关注
分享
扫一扫
jondynet
这个作者很懒，什么都没留下…
展开
-
DELPHI加注册表自启动的最简单代码
program exe;uses windows;// 注册表新建键值的函数procedure CreateKey(const RootKey : HKey; Key, ValueName, Value: string);var Handle: HKey; Res, Disposition: Integer;begin Res := RegCreateKeyEx(RootKey, PCh原创 2005-04-20 20:42:00 · 1720 阅读 · 0 评论 -
HexToInt的几个函数速度比较
unit unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; pr转载 2005-04-21 09:51:00 · 2207 阅读 · 0 评论 -
Winsock API TCPServer
program exe;{$apptype console}uses Windows, Winsock, SysUtils;var FSocket,CSocket:TSocket; buf:array[0..255]of char; wsaData:TWSADATA; Server:TSockAddrIn; err,len,id:integer;const CRLF=#13#10;beg原创 2005-12-05 22:08:00 · 1053 阅读 · 0 评论 -
DELPHI抓图
//uses jpegprocedure TForm1.snapscreen();var bmpscreen:Tbitmap; jpegscreen:Tjpegimage; FullscreenCanvas:TCanvas; dc:HDC; sourceRect, destRect: TRect;begin try dc:=getdc(0); fullscreencanvas:=T原创 2005-12-16 07:35:00 · 1435 阅读 · 0 评论 -
lkJSON-Delphi下使用json数据格式
之前的一个项目要用delphi 做客户端与 python的服务端通信，之间传输的数据格式为 json 。这里用到 lkJSON这个 delphi 处理json的库。下边贴下使用方法program sample1;{$APPTYPE CONSOLE}uses SysUtils, uLkJSON in uLkJSON.pas;var js:TlkJSONo原创 2009-06-19 14:13:00 · 5138 阅读 · 1 评论 -
delphi xe7 fmx 复制到剪切板
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.Rtti, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrl原创 2015-03-04 20:16:30 · 4087 阅读 · 0 评论