HP\李良庭
2025-07-08 868daf94f29ce1ffdd799a68c07bb668cd373bcd
1
2
3
4
5
6
7
8
9
߉؅JZ^ñ˜–<p    Unit1.pasօJZr    Unit1.dfmٔGZdActiveXÈCÒïcdComObjÈCÒïcdShellAPIÈCÒïg ShellExecuteÔÑ3ÌcdTlHelp32ÈCÒïfTProcessEntry32z×igCreateToolhelp32Snapshot;²XgTH32CS_SNAPPROCESSçœàÝgProcess32First”Á\yg Process32Next”Á\ycdStdCtrlsÈCÒïfTButton7êÈefTEdit5$Pÿg.TButtonx;Hg.TEdit²ÂácdDialogsÈCÒïcdFormsÈCÒïfTFormè±Ig.TFormïu$,gTCustomForm.AlignControlsmgaÈgTCustomForm.CreateParamspgaÈgTCustomForm.CreateWindowHandleqgaÈgTCustomForm.CreateWndrgaÈgTCustomForm.DefinePropertiestgaÈgTCustomForm.DestroyWindowHandleugaÈgTCustomForm.DoCreatewgaÈgTCustomForm.DoDestroyxgaÈgTCustomForm.GetClientRect{gaÈgTCustomForm.GetFloating}gaÈgTCustomForm.LoadedgaÈgTCustomForm.Notification€gaÈgTCustomForm.PaintWindow‚gaÈgTCustomForm.QueryInterface„gaÈgTCustomForm.ReadState…gaÈgTCustomForm.SetParentBiDiModeˆgaÈgTCustomForm.SetParentŠgaÈgTCustomForm.UpdateActions‹gaÈgTCustomForm.ValidateRenamegaÈgTCustomForm.WndProcgaÈgTCustomForm.ResizinggaÈgTCustomForm.CreateÇgaÈgTCustomForm.CreateNewÈgaÈgTCustomForm.DestroyÉgaÈgTCustomForm.AfterConstructionÊgaÈgTCustomForm.BeforeDestructionËgaÈgTCustomForm.CloseQueryÍgaÈgTCustomForm.DefaultHandlerÎgaÈgTCustomForm.SetFocusÚgaÈgTCustomForm.SetFocusedControlÛgaÈgTCustomForm.ShowModalÝgaÈgTCustomForm.WantChildKeyÞgaÈg%TScrollingWinControl.AdjustClientRect¸(#g&TScrollingWinControl.AutoScrollEnabledº(#g%TScrollingWinControl.AutoScrollInView»(#cdControlsÈCÒïgTWinControl.AssignToê.¯gTWinControl.CanAutoSize“ê.¯gTWinControl.CanResize”ê.¯gTWinControl.ConstrainedResize–ê.¯gTWinControl.CreateHandle™ê.¯g#TWinControl.CustomAlignInsertBeforežê.¯gTWinControl.CustomAlignPositionŸê.¯gTWinControl.DestroyWnd£ê.¯gTWinControl.GetClientOrigin³ê.¯gTWinControl.GetControlExtentsµê.¯gTWinControl.GetDeviceContext¶ê.¯gTWinControl.SetParentBackgroundÏê.¯gTWinControl.ShowControlÑê.¯gTWinControl.Invalidateë.¯gTWinControl.Repaintë.¯gTWinControl.SetBounds ë.¯gTWinControl.Update ë.¯gTControl.GetAction6†`)gTControl.GetDragImages<†`)gTControl.GetEnabled=†`)g!TControl.GetFloatingDockSiteClass?†`)gTControl.SetAutoSizeN†`)gTControl.SetDragModeO†`)gTControl.SetEnabledP†`)gTControl.SetNameQ†`)gTControl.SetBiDiModeU†`)gTControl.InitiateAction”†`)cdGraphicsÈCÒïcdClassesÈCÒïgTComponent.UpdateRegistryŽŽòìgTComponent.WriteState’ŽòìgTComponent.SafeCallExceptionªŽòìgTPersistent.Assign§N`cdVariantsÈCÒïcdSysUtilsÈCÒïcdMessagesÈCÒïcdWindowsÈCÒïfBOOL˜«é»fTHandleöß"—gINVALID_HANDLE_VALUEM‰—?g OpenProcess Öý'gPROCESS_TERMINATEæœàÝgTerminateProcessV¦jïg CloseHandle½MÅ7g SW_SHOWNORMALæœàÝcdSysInitÈCÒïcdSystemÈCÒïfTObject¼„©_gTObject.DispatchÀG—ƒgTObject.NewInstanceÂG—ƒgTObject.FreeInstanceÃG—ƒgSizeOffStringÔÿ×f
AnsiStringÔÿ×gFalse¯¹òàg@LStrFromArrayŸ}Îg@LStrCmpEóa‚g@LStrClrѨ}µg@HandleFinallyEóa‚f    PAnsiCharrugc4Unit1€iif@c4Windowsºc4Messages¸c4SysUtils¶c4Variants´c4Classesªc4Graphics¨c4Controlspc4Forms$c4Dialogs"c4StdCtrlsc4TlHelp32 c4ShellAPIc4ComObjc4ActiveXc&.TForm1€³¢X³*TForm1ˆÌæÐ Form1æÚzÿÐ, .2f(KillTabTipProcessÑ  ContinueLoop
 FSnapshotHandle  FProcessEntry32faû hProcess
c(TForm1.Button1Click€¾×ÓôH!Self!Senderc( Finalization€Eóa‚\! cž(Unit1€!cžþGF< z©þ¼&,Button1á ,Edit1ñ - Button1Clickî5cD€ÿÿÿP@lÉ L@`u|øButton1üEdit1 Button1ClickTForm1TForm1L^Unit1U‹ìÄÔþÿÿSVW3À‰…Ôþÿÿ3ÀUhÒdÿ0d‰ 3Ò¸è‹Øƒûÿ„€Ç…Øþÿÿ(•Øþÿÿ‹Ãè‹ðë[…Ôþÿÿ•üþÿÿ¹苕Ôþÿÿ¸èèu$‹…àþÿÿPjjè‹ø…ÿtjWèW荕Øþÿÿ‹Ãè‹ð…öu¡Sè3ÀZYYd‰hٍ…ÔþÿÿèÃéëí_^[‹å]Ãÿÿÿÿ
TabTip.exejjjhjjèÃOpenTabTipU‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-ÃmÜ (°Z\Ò`ÔÖXr2²>@F¢¬N®DTvtx”‚:†–˜<šœž JH¤P¦ŒŽ’j*z,.0|~4€„BˆŠblnR68LV^dfh D54 &!0!$D4à!
â$ÂÆ ÈÈ!ä æB55
(AAA æ $D‘D"P$ êL
6(|‘‚’“"5t,!8%<)>-@1B9=tA€”!€±p)`19
1þ%½%Íþ)eþ5 A  a