RSS|Ͷ
λãվҳ > ϵͳ

delphi ݻָа

unitclipbak;interfaceusesSysUtils,Classes,Clipbrd,Windows,Contnrs;typeTClipData=classFormat:WORD;Data:THANDLE;end;TClipBackuper=classprivateClipList:TList;public...
ϵͳ ǩ ߣadmin ڣ2016-01-20 10.21.36

delphi.about.comһӵʵִ

delphi.about.comһӵʵִ룬дúܲϧ֧64λһ˵οclassesԪĸģԼһ£ڷ޸IJCODEϲ鿴ƬҵĴƬconst{$IFDefi
ϵͳ ǩ ߣadmin ڣ2016-01-20 10.16.56

DelphiʵļϷŹ

unituDropFile;{СʵֵDZȽϼ򵥵,ѶһЩ,RichEditڲ,ʵֶѡֵϷ=========================Delphi֧ıϷ========================}//֧ļϷŹؼ
ϵͳ ǩ ߣadmin ڣ2015-05-12 09.43.55

delphiļɾվ

delphiļɾվļɾվǵӦóУơΪʹɾļָܱҲɾվwindowsAPISHFileOperationShellAPIԪУҵ
ϵͳ ǩ ߣadmin ڣ2015-04-27 20.26.49

delphiĿ¼ɾվ

ShellAPIеĺSHFileOperation,ԽָĿ¼ɾվҪʹSHFileOperationõSHFILEOPSTRUCTҪʵijֹܣҪΪýṹӦֵнĿ¼c:teposվҪ̡
ϵͳ ǩ ߣadmin ڣ2015-04-27 20.26.20

delphiieķ

//ôfunctionChangeProxy(constProxy,ByPass:string;constbEnabled:boolean=True):boolean;varreg:Tregistry;info:INTERNET_PROXY_INFO;Fproxy:string;beginResult:=False;//FProxy:=Format('%s:%s',[Proxy,Po
ϵͳ ǩ ߣadmin ڣ2015-04-27 20.23.43

Delphi ΰѳ򶤵Windows7()

CSDN̳ΰѳ򶤵Windows7ccrun()ܸȤgoogleһ£ûҵصAPIϣڹһվ㿴FolderItemVerbʵֵķھϡ
ϵͳ ǩ ߣadmin ڣ2015-04-27 20.14.10

delphi ȡǰ뷨

TScreen-ȡǰ뷨뷨б//ȡ뷨бbeginMemo1.Lines:=Screen.Imes;end;//ȡǰ뷨varkl:HKL;i:Integer;beginkl:=GetKeyboardLayout(0);fori:=0toScreen.Imes.Count-1doifHKL(Screen.Imes.
ϵͳ ǩ ߣadmin ڣ2015-04-26 14.16.54

Delphi뷨ģʽImemodeԵĽ

Delphi뷨ģʽImemodeԵĽImemodeԣimCloseʾ뷨ڹر״̬ImOpenʾ뷨ڴ״̬ImChineseʾ뷨״̬ImDontCareʾ뷨ڹر״̬һʹù䡭
ϵͳ ǩ ߣadmin ڣ2015-04-26 13.25.13

Delphi дLogĴ()

UsesSysutils,FileCtrl{,System};procedureWriteRunlog(sLogStr:string;sPath:string='';sFileName:string='');varF:TextFile;sNow:string;begin//·ļsNow:=FormatDateTime('yyyy.mm.ddHH:NN:ss',Now);
ϵͳ ǩ ߣadmin ڣ2015-04-25 22.34.33

Delphi XE7ֱԹԱģʽCMDн

ܱ½DelphiXE7ֱԹԱģʽCMDԻһwin7ĵԣڿʼcmdͨģʽcmd棬ҪԱģʽҪʼ˵ҵʾȻҼùܡ
ϵͳ ǩ ߣadmin ڣ2015-04-16 15.40.01

Delphi XE ؼӴֱɫе

TextAlign:=TTextAlign(0);//0,1,2ҸƴTextAlign:=TTextAlign(0);//룺0,1,2StyledSettings:=[];Font.Size:=12;//ִСFont.Style:=[TFontStyle.fsBold];//ʽ,Ӵ֡
ϵͳ ǩ ߣadmin ڣ2015-04-16 14.16.44

Delphi XE5ʵDateTimeToUnix/UnixToDateTimeһСĽ

ܱ½DelphiXE5ʵDateTimeToUnix/UnixToDateTimeһСĽԭĺDelphiDateTimeToUnix/UnixToDateTimeתʱ䲢ûпǵʱ͸ʱIJ,йʱͲ8Сʱ
ϵͳ ǩ ߣadmin ڣ2015-04-16 14.13.53

Delphi ʵֽá

usesRegistry//һǶĹprocedureDisableTaskmgr(Key:Boolean);BeginReg:=TRegistry.Create;tryReg.RootKey:=HKEY_CURRENT_USER;ifReg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\
ϵͳ ǩ ߣadmin ڣ2014-08-15 07.57.01

Delphiû5ûв̻

procedureTForm1.Timer1Timer(Sender:TObject);varvLastInputInfo:TLastInputInfo;beginvLastInputInfo.cbSize:=SizeOf(vLastInputInfo);GetLastInputInfo(vLastInputInfo);ifGetTickCount-vLastInputInfo.dwTime>50
ϵͳ ǩ ߣadmin ڣ2014-08-13 23.35.59

delphi Shutdown() ػ

delphiShutdown()ػ{shutdown-s-t0رռshutdown-lעshutdown-r-t0shutdown-aȡرռ}{usesShellAPI}usesShellAPI;{ػ}////Shutdown(0);procedureSh
ϵͳ ǩ ߣadmin ڣ2014-08-08 20.35.59

Delphi

usesShellApi;procedureTForm1.Button1Click(Sender:TObject);varfilename,Path:string;beginfilename:='D:\WmgjServer146\server\start.bat';&nbs...
ϵͳ ǩ ߣadmin ڣ2014-08-08 20.32.18

Delphi ȡӲ̷

GetDriveType(·)жһͷһ0Ͳȷ1ϵͳĿ¼2DRIVE_REMOVABLEǿƶ3DRIVE_FIXEDǹ̶4DRIVE_REMOTE5DRIVE_CDROMCD-...
ϵͳ ǩ ߣadmin ڣ2014-07-29 17.50.40

Delphiдϵͳ

Delphi༭ѡ˵еFile|New|Other...NewItemѡServiceApplicationDelphiԶΪ㽨һTServiceApplication¹̣TserviceApplicationһװNT࣬һTS
ϵͳ ǩ ߣadmin ڣ2014-07-29 17.48.00

DelphiȡϵͳĬϵUserAgentķ

//////ȡϵͳĬϵUserAgent///usesSHDocVw,MSHTML;///functionGetUserAgent:string;varDoc:IHTMLDocument2;win:IHTMLWindow2;wb:TWebBrowser;beginResult:='';trywb:=TWebBrowser.Create(nil);trywb.Naviga...
ϵͳ ǩUserAgent ߣadmin ڣ2014-05-06 20.15.43