RSS|Ͷ
λãվҳ > ϵͳ

delphi Win32_NetworkAdapter ˵

AdapterType--AdapterTypeID--IDAutoSense--Ϊ****ueԶжӻýٶAvailability--Ժ豸״̬Caption--豸ļConfigManagerErrorCode--Wi
ϵͳ ǩWMI ߣadmin ڣ2018-01-24 16.38.38

delphi Win32_DiskDrive Ӳ ˵

Availability--豸״̬BytesPerSector--ÿֽCapabilities--ý豸СCapabilityDe****ions--ϸĽΪκڹбʾķ豸ĹܵбCaption-
ϵͳ ǩWMI ߣadmin ڣ2018-01-24 09.21.08

DelphiͨWMIȡϵͳϢ

鷳£http://www.txttool.com/WenBen_AesDes.aspվܷŵ⣬ڽ¡U2FsdGVkX19prAltfuW7HxehMl7g0ebJJguTaaf0MvMrTjiFxyNFXlPJN5Vt7EaZRrDc5X/BICGZ3vVX0+4PJVjZHo5+P4
ϵͳ ǩWMI ߣadmin ڣ2018-01-23 23.27.46

delphi GetVolumeInformationȡӲ̷Ϣ

{//:GetVolumeIn****ation(lpRootPathName:PChar;{ַ}lpVolumeNameBuffer:PChar;{}nVolumeNameSize:DWORD;{Ƴ}lpVolumeSerialNumber:PDWORD;{
ϵͳ ǩ ߣadmin ڣ2018-01-23 15.46.41

delphi ϵͳAppData Local ·

showmessage(LocalAppDataPath_);functionLocalAppDataPath_:s****ing;constSHGFP_TYPE_CURRENT=0;varpath:array[0..MaxChar]ofchar;beginSHGetFolderPath(0,CSIDL_LOCAL_APPDATA,0,SHGFP_TYPE_CURRENT,@path[0]);Re
ϵͳ ǩ ߣadmin ڣ2018-01-23 10.36.49

delphi ȡϵͳMyDocumentsļ·

showmessage(My****s_);functionMy****s_:s****ing;constSHGFP_TYPE_CURRENT=0;varpath:array[0..MaxChar]ofchar;beginSHGetFolderPath(0,CSIDL_MY****S,0,SHGFP_TYPE_CURRENT,@path[0]);Result:=S****Pas(path);end
ϵͳ ǩ ߣadmin ڣ2018-01-23 10.35.39

Delphi Ѱװжؼ

{*******************************************************}{}{UWSStartupItemPanel}{Mail:uws2008@hotmail.com ...
ϵͳ ǩ ߣadmin ڣ2018-01-22 14.35.24

delphiСг򴰿С

1.гСusesComObj;varshell:OleVariant;beginshell:=CreateOleObject('Shell.Application');shell.minimizeAll;end;2.Сspy++ҪСijclassnamevarIndicador:Integer;begin ...
ϵͳ ǩ ߣadmin ڣ2018-01-17 20.50.09

delphi Hook APIOpenProcessTerminateProcessֹ

˼·ʵȽϼ򵥣DLLдAPIOpenProcessTerminateProcessĽṹѱдAPIһĺGetProcAddressȡϵͳAPIڵַWriteProcessMemoryд
ϵͳ ǩ ߣadmin ڣ2018-01-17 08.05.55

delphi ȡû

functionCurrentUserName:String;varnSize:DWord;beginnSize:=1024;SetLength(Result,nSize);ifGetUserName(PChar(Result),nSize)thenSetLength(Result,nSize-1)elseRaiseLastOSError;end;functionCurrentDomain:Str
ϵͳ ǩ ߣadmin ڣ2018-01-16 19.38.25

delphi GetProcessIdentity ȡǰ¼״̬ĹԱ

//ȡеûfunctionGetProcessIdentity():String;varhToken:THandle;UserName,UserDomain:String;cbName,cbDomainName:ULONG;ReturnLength:DWORD;Buff:arrayofByte;tu:PTokenUser;peUse:SID_NAME_USE;la
ϵͳ ǩ ߣadmin ڣ2018-01-16 16.33.06

delphi ϵͳ״̬ȡԱû

//==============================typeWTS_INFO_CLASS=(WTSInitialProgram,WTSApplicationName,WTSWorkingDirectory,WTSOEMId,WTSSessionId,WTSUserName,WTSWinStationName,WTSDomainName,WTSConnectState,...
ϵͳ ǩ ߣadmin ڣ2018-01-16 10.35.07

delphi ̹ӵļӦ

ǣWindowsϵͳǽ¼Ļϵģ˵˾ϵͳͨϢĴʵֵġWindowsϵͳзdzҪϵͳӿڣԽػ񲢴͸ӦóϢͨӦóʵ֡
ϵͳ ǩ ߣadmin ڣ2018-01-16 07.44.18

DelphiȫֹӺ;ֲ

1.װSetWindowsHookExfunctionʵ֣MSDNInstallsanapplication-definedhookprocedureintoahookchain.Youwouldinstallahookproceduretomonitorthesystemforcertaintypesofevents.Th
ϵͳ ǩ ߣadmin ڣ2018-01-16 07.39.28

delphi EmptyRecycle() ջվ

//usesfunctionSHEmptyRecycleBinA(Wnd:HWND;str:PChar;WRD:DWORD):Integer;stdcall;external'SHell32.dll';{ջվ}//EmptyRecycle();functionEmptyRecycle():boolean;beginResult:=true;tryifAp
ϵͳ ǩ ߣadmin ڣ2018-01-15 19.58.49

delphi getSys32Path()õϵͳSystem32·

{õϵͳC:\Windows\system32·}//Edit1.text:=getSys32Path();functiongetSys32Path():string;varsPath:PCHAR;beginGetMem(sPath,255);GetSystemDirectory(sPath,255);Result:=sPath;//C:\Windows\system32e
ϵͳ ǩ ߣadmin ڣ2018-01-15 19.57.45

delphi GetComputerName() GetUserName() ȡǰû

{ȡǰû}//÷ֵ:=GetUser();functionGetUserName():string;varBuffer:array[0..255]ofChar;Size:cardinal;beginSize:=256;ifGetUserName(Buffer,Size)thenbeginResult:=BufferendelsebeginResult:
ϵͳ ǩ ߣadmin ڣ2018-01-15 19.56.03

Delphi GetDriveTypeA() 鿴

{GetDriveType}//GetDriveTypeA(Memo1);procedureGetDriveTypeA(Memo:TMemo);vari:Integer;C:String;DType:Integer;DriveString:String;begin//ͨѭжϸ̷...
ϵͳ ǩ ߣadmin ڣ2018-01-15 19.55.34

delphi Ȩ޽ʵҷļ

Vista/Win7ϵͳУUACUIPIĴڣȨ޵Ľ޷Ȩ޵Ľ̷κθWM_USERϢWM_USERϢһҲΪȫԭ򱻽ֹɼUACǰͻܶ鷳
ϵͳ ǩ ߣadmin ڣ2018-01-15 16.39.41

delphi WIN10Message޷յ

win10ЩϢ޷Ľգ磺WM_COPYDATAݴWM_DROPFILESļקΪϵͳΪ˰ȫˣҪЩϢҪһAPIChangeWindowMessageFilterhttps://msdn.microsoft.com/en-us
ϵͳ ǩ ߣadmin ڣ2018-01-15 16.30.48