RSS|Ͷ
λãվҳ > ϵͳ

DelphiͨWMIȡϵͳϢ

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

delphi GetVolumeInformationȡӲϢ

{//:GetVolumeInformation(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

delphi RunAsAdmin гԱȨ

procedureRunAsAdmin(constaFile:string;constaParameters:string='';Handle:HWND=0);varsei:TShellExecuteInfo;beginFillChar(sei,SizeOf(sei),0);sei.cbSize:=SizeOf(sei);sei.Wnd:=Handle;sei.fMask:=SEE_MASK_FL
ϵͳ ǩ ߣadmin ڣ2018-01-15 14.52.10

delphiִcmdbatļ

cmd:='echod|Xcopy'+BasePath+''+TargetPath+'/s/e';i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/K'+cmd),nil,SW_HIDE);ShellExecute(Handle,nil,'cmd.exe',pchar('/C'+GetCurrentDir+'\build.bat'),nil,SW_HIDE)
ϵͳ ǩ ߣadmin ڣ2018-01-15 13.38.01