डेल्फी स्वयं-हटाना कार्यक्रम

Question

मैं अपने डेल्फी कार्यक्रम को कैसे हटा सकता हूं? मैंने इस कोड को आजमाया:

procedure DeleteSelf; 
var 
    module : HMODULE; 
    buf : array [ 0 .. MAX_PATH - 1 ] of char; 
    p : ULONG; 
    hKrnl32 : HMODULE; 
    pExitProcess, pDeleteFile, pFreeLibrary : pointer; 
begin 
    module := GetModuleHandle (nil); 
    GetModuleFileName (module, buf, sizeof (buf)); 
    CloseHandle (THandle (4)); 
    p := ULONG (module) + 1; 
    hKrnl32 := GetModuleHandle ('kernel32'); 
    pExitProcess := GetProcAddress (hKrnl32, 'ExitProcess'); 
    pDeleteFile := GetProcAddress (hKrnl32, 'DeleteFileA'); 
    pFreeLibrary := GetProcAddress (hKrnl32, 'FreeLibrary'); 
    asm 
    lea eax, buf 
    push 0 
    push 0 
    push eax 
    push pExitProcess 
    push p 
    push pDeleteFile 
    push pFreeLibrary 
    ret 
    end; 
end; 

लेकिन यह काम नहीं करता है, फ़ाइल को हटाएं नहीं। मेरा कार्यक्रम कंसोल है। धन्यवाद!

Answer 1

आपका कोड केवल विंडोज एनटी और 2000 के तहत काम करेगा। क्योंकि इन ओएस में सिस्टम मेमोरी मैप किए गए फ़ाइल के लिए एक यूजरोड हैंडल संदर्भ रखता है जो डिस्क पर निष्पादन योग्य छवि का समर्थन करता है। इन हैंडल में इन हैंडल में हमेशा 0x4 है।

अपने स्वयं के exe को हटाने का सबसे प्रभावी तरीका, निलंबित राज्य में एक बाल प्रक्रिया बना रहा है, पैरेंट प्रक्रिया (हटाने के लिए exe) की प्रतीक्षा करने के लिए कोड इंजेक्ट करें, फिर पता लगाएं कि जब मूल प्रक्रिया निकलती है, तो माता-पिता को हटा दें प्रक्रिया और अंततः बच्चे की प्रक्रिया को मार डालो।

आप इन अनुशंसित संसाधनों में इस विषय के बारे में अधिक जानकारी प्राप्त कर सकते हैं।

• Self-deleting Executables (Techniques which allow an executable file to delete itself whilst running)
• Self deleting executables तक Ranju। वी।