Author: Drate Issue Date: July 23, 2003
Prevent DEDE Software Anti-compilation Delphi program This is to prevent DEDE software to reflect the Delphi program ~ "" is my comment, the rest is the original creation ~ Program Project1; Uses forms, windows, sysutils, unit1 in 'Unit1 .PAS '{Form1}, Unit2 in' unit2.pas' {form2}; Function RegisterServiceProcess (dwprocessid, dwtype: dword): integer; stdcall; external 'kernel32.dll' {$ r * .res} var hmutex: hwnd; RET: INTEGER; hwnd; // anti-compilation Sztext: array [0..254] of char; // Reflexible Begin Application.Initialize; Application.Title: = 'Delphi Sunflower Breakfast Design: Zhang Guopeng' RegisterServiceProcess (GetCurrentProcessid, 1); // Let the program disappear in CTL Alt DEL. "We can see the author registered as a Windows service program ~" "But everyone knows this function is included in Kernel32 And only in the 98 / ME tube ~ ", do not use this as a key to anti-compilation, it can be said that there is no ~" / / Prevent anti-compilation start hcurrentWindow: = getWindow (Application.Handle, GW_HWndFirst); "Before you know the author wants to know your program window is the top window. <> 0 THEN "If not, get the title of the top machine form, is not" Dede "Begin Application.MessageBox ('Thinking" Contact me? Not so easy! ',' Haha ... Your guy! ', MB_OK); // CloseWindow (HcURRENTWINDOW); // minimizes EnableWindow (HcURRENTWINDOW, FALSE); / / The program's window cannot be activated If you can get the thread ID number of the program, you can make This program can't be used, can't turn off, cool? "The above two sentences are the processing of Dede ~" "CloseWindow: To minimize the set window, but the window will not clear from memory ~" "EnableWindow: Allow / prohibit the mouse and keyboard in the specified window, False is definitely unable to be ~ "Halt; end; hcurrentwindow: = getWindow (hcurrentwindow, gw_hwndnext); END; / / Prevent anti-compilation end / / Prevent the second run of the program HMUTEX: =
