Мне надо удалить прогу самой себя, вот у меня есть код, но он не фурычит, как можно его исправить, что-бы он работал?

Код:
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;

По мойму это - бред:

Цитата

asm     lea eax, buf     push 0     push 0     push eax     push pExitProcess     push p     push pDeleteFile     push pFreeLibrary     ret   end;

P.S. Загляньте на досуге в тему "Создание области ввода"

Цитата

По мойму это - бред: QUOTE  asm     lea eax, buf     push 0     push 0     push eax     push pExitProcess     push p     push pDeleteFile     push pFreeLibrary     ret

По идее, push offset Subprogram + ret передает управление на Subprogram. Можно сразу jmp. Однако Subprogram тоже завершится по ret. ret снимет со стека адрес для возврата. Здесь - вроде pDeleteFile. Delete получит параметр p и так же вернется в ExitProcess. Ну а из Exit еще никто не возвращался ;)

Короче это все бред!!
Возможно создать bat файл, проверял, работает, но мне это не подходит!!!

Как на счет, если создать процесс отдельный от моей проги, например на основе kernell???

Ну как, слушаю ваши предложения?

Костик ты и сюда..................