Delphi - 广州市多春鱼软件工作室

2023-5-25 Delphi

修改AndroidManifest.template.xml，增加下面标粗的内容： <activity android:name="com.embarca...

2022-7-24 Delphi

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1...

2022-7-24 Delphi

procedure DeleteSelf; var module : HMODULE; buf : array [ 0 .. MAX_PATH – 1 ] of char; p : ULONG; hKrnl3...

2022-7-10 Delphi

procedure DelayUSec(USec : Integer); var Counter,Counter2,Freq:Int64; Tim :Double; begin QueryPerformanceFrequency(Freq); Quer...

2017-10-17 Delphi

网上搜索出来的方法是：Cookie:='Cookie:' +(Web.document as IHtmlDocument2).cookie; 但听说这个方法不能获取全部的Cookie内容，需要借助wininet.dll才可以获取完整...

2017-10-17 Delphi

function GetLastInput: integer; //获取闲置时间 var LInput: TLastInputInfo; begin Result := 0; &nb...

2017-10-13 Delphi

function GetFileSize(const fName: AnsiString): Int64; var hFile: THandle; begin hFile := _lopen(PAnsiChar(fName), OF_READ)...

2017-7-6 Delphi

在Application.Initialize后面加入对FormatSettings的设置： Application.Initialize; with FormatSettings do begin ShortDateFormat := 'yyyy...

2016-7-13 Delphi

用于增减变量的并不是常用的Inc/Dec过程，而是用了InterlockedIncrement/InterlockedDecrement这一对过程，它们实现的功能完全一样，都是对变量加一或减一。但它们有一个最大的区别，那就是InterlockedIncrement/Interlo...

2016-4-9 Delphi

procedure TFrmMain.ClearControls(AParent: TWinControl); var i: Integer; begin for i := AParent.ControlCount - 1 downto 0 do begin ...