摘要：
7za.exe x-aoa完美国际补丁.7z7za.exe x -aoa 完美国际补丁.7z -o"C:\Users\Admin\AppData\Local\Temp\完美国际补丁"来自为知笔记(Wiz) 阅读全文
摘要：
procedure TForm1.FormShow(Sender: TObject);begin ShowWindow(Application.handle, SW_HIDE); SetWindowLong(Self.handle, GWL_EXSTYLE, GetWindowLong(Self.handle, GWL_EXSTYLE) ); // 不在alt+tab中出现end;来自为... 阅读全文
摘要：
对文件和文件夹都有效FileSetAttr('D:\Administrator\Desktop\patcher\Win32\Release\config\element\update',faHidden);声明：function FileSetAttr ( const FileName : string; Attributes : Integer ) : Integer;描述：FileSetA... 阅读全文
摘要：
procedure TForm1.FormCreate(Sender: TObject);begin Label1.AutoSize := False; Label1.WordWrap := True; Label1.Text := 'This is my caption that I would like to be wrappedThis is my caption ... 阅读全文
摘要：
//MmSystem播放Wav格式声音//MmSystem 支持 *.wav声音格式 snd ->SoundRecorderuses MmSystem; //引用MmSystem//播放系统声音{.Default //这个只要是字符串('str')就好MailBeepSystemExclamationSystemExitSystemHand}PlaySound ('SystemExit',0,... 阅读全文
摘要：
uses shlobj;function GetDesktopFolder():string;var pItem: PItemIDList; temp: array[0..MAX_PATH] of Char;begin SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, pItem); //CSIDL_DESKTOP：桌面； FillChar(temp... 阅读全文
摘要：
关键点
控制滚动条在最下面 实现过程 SendMessage(form1.Memo1.Handle,WM_VSCROLL,SB_BOTTOM,0); 图 备注 相关链接 来自为知笔记(Wiz) 阅读全文
摘要：
procedure TForm1.Button1Click(Sender: TObject);Var OSVI:OSVERSIONINFO;begin OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO); GetVersionEx(OSVI); Caption:=IntToStr(OSVI.dwMinorVersion)+','... 阅读全文
摘要：
program Manager;uses Forms,Windows,Messages, Unit1 in 'Unit1.pas' {WMGJ_SERVERFORM1}, Unit2 in 'Unit2.pas' {Form2}, Unit3 in 'Unit3.pas' {Form3}, Unit4 in 'Unit4.pas' {Form4};{$R *.res}var AppT... 阅读全文
摘要：
{ 1 h=1*60 m=1*60*60 s=1*60*60*1000 hs=3600000hs}function StartCount():string;{$j+}consth:Integer=0;m:Integer=0;s:integer=0;{$j-}begininc(s);if s>=60 thenbeginInc(m);... 阅读全文
摘要：
procedure TForm1.FormCreate(Sender: TObject);beginedtHour.Clear;edtMinutes.Clear;edtHs.Clear;edtSec.Clear;end;procedure TForm1.Button1Click(Sender: TObject);begintryif edtHou... 阅读全文
摘要：
//判断文件是否正在被使用function FileINUse(filename:String):boolean;varusein:file;beginresult:=false;assignfile(usein,FileName);tryreset(Usein);excepton E:EInOutError dobeginif e.Er... 阅读全文
摘要：
step1 在窗体上打个矩形的洞｛鼠标可以穿透这个窗体｝procedure MakeRectHole(Ctrl:TWinControl;Form:TForm);var Rgn1, Rgn2: HRGN;begin Rgn1 := CreateRectRgn(0,0, Form.Width, Form.Height); Rgn2 := CreateRectRgn(Ctrl.Left, Ctrl... 阅读全文
摘要：
遍历目录及子目录 unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Memo1:TMemo; Button1:... 阅读全文
摘要：
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = clas... 阅读全文