| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Господа!!! Как сделать чтобы прога сама себя удалила после выполнения
RUS1 © (2002-02-05 12:25:00)Господа!!! Как сделать чтобы прога сама себя удалила после выполнения
MadBurro (2002-02-06 23:31:00) [1]Vot kod. Rabotajet na Win9.X, proverial
program delself;
uses
windows;
procedure DeleteSelf;
var hModule:THandle;
szModuleName:array[0..MAX_PATH] of char;
hKrnl32 : THandle;
pExitProcess, pDeleteFile, pFreeLibrary,pUnmapViewOfFile : pointer;
ExitCode:UINT;
begin
hModule:= GetModuleHandle(nil);
GetModuleFileName(hModule, szModuleName, sizeof(szModuleName));
hKrnl32 := GetModuleHandle ( "kernel32" );
pExitProcess := GetProcAddress ( hKrnl32, "ExitProcess" );
pDeleteFile := GetProcAddress ( hKrnl32, "DeleteFileA" );
pFreeLibrary := GetProcAddress ( hKrnl32, "FreeLibrary" );
pUnmapViewOfFile := GetProcAddress ( hKrnl32, "UnmapViewOfFile" );
ExitCode := system.ExitCode;
if($80000000 and GetVersion())<>0 then
// Win95, 98, Me
asm
lea eax, szModuleName
push ExitCode
push 0
push eax
push pExitProcess
push hModule
push pDeleteFile
push pFreeLibrary
ret
end
else
begin
CloseHandle(THANDLE(4));
asm
lea eax, szModuleName
push ExitCode
push 0
push eax
push pExitProcess
push hModule
push pDeleteFile
push pUnmapViewOfFile
ret
end
end
end;
begin
DeleteSelf;
end.
Rem (2002-02-06 13:03:00) [2]>AlexanderSK
Если Form1 - главная форма программы, то при Form1.Close
приложение заканчивает работу. Именно это имел в виду Song,
на которого Вы так "по-товарищески" наехали.
>AlexanderSK
WinExec("kill.bat", SW_HIDE); - выполняется, так что еще
не понятно кто "мудрый"?
Pat (2002-02-06 12:09:00) [3]>AlexanderSK
Да все нормально выполняется. Меня "мусор" ввиде Winoldap интересует...
Кстати, почему winexec("kill.bat",sw_hide); не должен выполняться?
AlexanderSK (2002-02-06 11:23:00) [4]winexec("kill.bat",sw_hide); - Выполняться НЕ будет!
Pat (2002-02-05 18:28:00) [5]>AlexanderSK
Моя прога называется kamikadze :-))
Делаю следующее:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var f:textfile;
begin
assignfile(f,"kill.bat");
rewrite(f);
writeln(f,"del kamikadze.exe");
writeln(f,"del kill.bat");
closefile(f);
application.terminate; //все равно не помогает
winexec("kill.bat",sw_hide);
end;
А Winoldap все равно остается...:-((
BlankAlex (2002-02-05 18:00:00) [6]Записываешь имя своей проги в реестр в ключ RunOnce
AlexanderSK (2002-02-05 17:54:00) [7]"Winoldap" очевидно название твоей программы?
Если это так и если ты последовал "МУДРОМУ" совету Song-а, то ничего странного в этом нет!
Form1.Close; - Всего лишь приячет форму с экрана (попутно пытаясь удалить соответствующий объект!), а твое приложение так и остаеться висеть! Так что... надо больше следовать "мудрым" советам "мудрых" товарищей и еще ни текой глюк словиш!...
Короче вместо Form1.Close; нужно писать Application.Terminate; - Воэ это метод и завершит работу твоего приложения!
Pat (2002-02-05 17:00:00) [8]После всех этих батников в списке процессов остается Winoldap. И сколько я запусукаю прогу, добвляется еще один Winoldap. Как от этого избавиться?
AlexanderSK (2002-02-05 14:45:00) [9]А "Form1.Close;" то тут причем?
Song (2002-02-05 13:52:00) [10]Создаёшь батник в котором пишешь
pause
del твоя_пага
а из паги пишешь ShellExecute(...,PChar(батник)...);
Form1.Close;
всё
Дремучий (2002-02-05 13:06:00) [11]вопрос из ФАК
alex_R (2002-02-05 12:50:00) [12]Выполнить bat файл, в котором сначала запустить, а потом удалить ее
Yakudza (2002-02-05 12:34:00) [13]Написать другую прогу которая ее удаляет :)
Виктор Щербаков (2002-02-05 12:31:00) [14]Парадокс.
| |
