{"id":185,"date":"2007-05-12T16:47:45","date_gmt":"2007-05-12T14:47:45","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/how-to-let-exe-delete-itself-while-running\/"},"modified":"2007-05-12T16:47:47","modified_gmt":"2007-05-12T14:47:47","slug":"how-to-let-exe-delete-itself-while-running","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/how-to-let-exe-delete-itself-while-running\/","title":{"rendered":"how to let EXE delete itself while running?"},"content":{"rendered":"

Q: how to let EXE delete itself while running?<\/p>\n

>I want to delete exe file while is opened. My friend did that in Visual
\n>Basic with KILL function and it worked. I tried with DeleteFile function
\n>but Access denied error occured.
\n<\/em> from Krasimir Stoyanov found in this groups.<\/p>\n

I converted this to Delphi and can confirm it works on Win95, Win NT 4.0 and Windows 2000: The poster tested it on Windows 98, so remainsWindows XP, anyone?
\n
\n[code lang=”delphi”]procedure DeleteSelf;
\nvar hModule:THandle;
\n szModuleName:array[0..MAX_PATH] of char;
\n hKrnl32 : THandle;
\n pExitProcess, pDeleteFile, pFreeLibrary,pUnmapViewOfFile : pointer;
\n ExitCode:UINT;
\nbegin
\n hModule:= GetModuleHandle(nil);<\/p>\n

GetModuleFileName(hModule, szModuleName, sizeof(szModuleName));<\/p>\n

hKrnl32 := GetModuleHandle ( ‘kernel32’ );
\n pExitProcess := GetProcAddress ( hKrnl32, ‘ExitProcess’ );
\n pDeleteFile := GetProcAddress ( hKrnl32, ‘DeleteFileA’ );
\n pFreeLibrary := GetProcAddress ( hKrnl32, ‘FreeLibrary’ );
\n pUnmapViewOfFile := GetProcAddress ( hKrnl32, ‘UnmapViewOfFile’ );<\/p>\n

ExitCode := system.ExitCode;<\/p>\n

if($80000000 and GetVersion())<>0 then
\n \/\/ Win95, 98, Me
\n asm<\/p>\n

lea eax, szModuleName
\n push ExitCode
\n push 0
\n push eax
\n push pExitProcess
\n push hModule
\n push pDeleteFile
\n push pFreeLibrary
\n ret
\n end
\n else
\n begin
\n CloseHandle(THANDLE(4));<\/p>\n

asm
\n lea eax, szModuleName
\n push ExitCode
\n push 0
\n push eax
\n push pExitProcess
\n push hModule
\n push pDeleteFile
\n push pUnmapViewOfFile
\n ret
\n end
\n end
\nend;
\n[\/code]<\/p>\n

As far as I know it doesn’t work on XP.<\/p>\n

[tags]Delphi, Misc, Files, System[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

Q: how to let EXE delete itself while running? >I want to delete exe file while is opened. My friend did that in…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,112,107,113],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-2Z","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/185"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=185"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/185\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=185"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=185"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=185"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}