防止用DeDe軟體反編譯delphi程序
這裡有一篇防止用DeDe軟體反編譯delphi程式～
用『』裡面的是我的註釋，其餘的是原創作～
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;
hCurrentWindow: HWnd; //反編譯要的
szText: Array[0..254] Of char; //反編譯要的
Begin
application.Initialize;
APPLICATION.TITLE := 'delphi葵花寶典設計:張國鵬';
RegisterServiceProcess(GetCurrentProcessID, 1); //讓程式在Ctl+Alt+Del中消失.
『我們可以看到作者用RegisterServiceProcess把程式註冊成了WINDOWS服務程式～’
『但大家都知道這個函數包含在kernel32裡，而且只在98/ME中管用～’
『所以不要把這項當作反編譯的關鍵，可以說可有可無～』
//防止反編譯開始
hCurrentWindow := GetWindow(APPLICATION.Handle, GW_HWNDFIRST);
『由上面知道作者想知道自己的程式視窗是不是最頂級的視窗』
While hCurrentWindow <> 0 Do
Begin
If GetWindowText(hCurrentWindow, @szText, 255) > 0 Then
If pos('DeDe', StrPas(@szText)) <> 0 Then
『如果不是，則取得現在頂機窗體的標題，在做判斷是不是"DeDe"’
Begin
APPLICATION.MESSAGEBOX('想反編譯我？沒那麼容易！',
'哈哈......你這傢伙！ ', mb_ok);
//closewindow(hCurrentWindow);//使該程式視窗最小化
enablewindow(hCurrentWindow, false);
//使程式的視窗不能被啟動如果能取得該程式的執行緒ID號，則可以使程式又不能使用，又不能關閉，酷吧？
『以上這兩句是對DEDE的處理～’
『closewindow:為把製定的視窗最小化，但視窗不會從記憶體中清除～』
『enablewindow:指定的視窗裡允許/禁止所滑鼠和鍵盤的輸入，false肯定是不能了～』
halt;
End;
hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);
End;
//防止反編譯結束
//防止程式的二次運行
HMUTEX := CREATEMUTEX(Nil, FALSE, 'delphi葵花寶典設計:張國鵬');
RET := GETLASTERROR;
If RET <> ERROR_ALREADY_EXISTS Then
Begin
Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm2, Form2);
Application.Run;
End
Else
APPLICATION.MESSAGEBOX('程式已經運行!', '提示', mb_ok);
releasemutex(hmutex);
End.