RSS|Ͷ
λãվҳ > ϵͳ

DELPHIȡϵͳʱ

DelphiȡϵͳʱҪ룺functionGetLastInput:integer;//ȡʱvarLInput:TLastInputInfo;beginResult:=0;tryLInput.cbSize:=SizeOf(TLastInputInfo);GetLastInputI...
ϵͳ ǩ ߣadmin ڣ2017-01-25 21.45.50

delphi ͨ SHGetSpecialFolderLocationSHGetPathFromIDList ȡ·

ļ:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Memo1:TMemo;procedureFormCreate(Sender:TObject);end;var...
ϵͳ ǩ ߣadmin ڣ2016-01-26 22.37.07

delphi DOSӦóͬʱرDOSڱ

DOSӦóֻӦóļȫ·+ļɣ磬ڼ±룺mspaint.exeΪmp.batȻԴдmp.batɴWindowsͼ򣬹رWindowsͼִm
ϵͳ ǩ ߣadmin ڣ2016-01-26 22.01.42

Delphi XE7ʵֻȡǷѹԱģʽԼеwindowsû

ܱ½DelphiXE7ʵֻȡǷѹԱģʽԼеwindowsûQDACվϿһǷԹԱģʽеĴ룬C++ģое˼ͽתϵȻ
ϵͳ ǩ ߣadmin ڣ2016-01-24 11.44.07

delphi ExitWindows رϵͳ

typeTShutdownAction=(saLogoff,saReboot,saPoweroff);functionShutdown(Action:TShutdownAction;AForce:Boolean):Boolean;functionEnableShutdownPrivilege:Boolean;varhProcess,hToken:THandle;priv,lastpriv:TOKE
ϵͳ ǩ ߣadmin ڣ2016-01-23 23.40.09

DELPHIȡϵͳԴ״̬Ϣ

//GetSystemPowerStatus(varlpSystemPowerStatus:TSystemPowerStatus{TSystemPowerStatusṹ}):BOOL;//TSystemPowerStatus_SYSTEM_POWER_STATUSṹض:_SYSTEM_POWER_STATUS=packedrecordACLineStatus:
ϵͳ ǩ ߣadmin ڣ2016-01-20 22.25.57

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