Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.14;
Скачать: CL | DM;

Вниз

Как удалить программу после ее отработки (UnInstall.exe)   Найти похожие ветки 

 
VS2001   (2002-12-09 07:25) [0]

Помогите сделать указанное в теме. Нужно для программы ДеИнсталлятора, чтобы удалялась после завершения работы.


 
SPeller ©   (2002-12-09 13:36) [1]

Точно ошибся... Ну какое это имеет отношение к КОЛ ?


 
VS2001   (2002-12-09 14:34) [2]

Какое? А как мне можно удалить файл вообще.
Если использовать TSearchRec - то он ругается на необъявленный идентификутор = TSearchec.


 
BorisMor ©   (2002-12-09 15:03) [3]

Ну, тогда не совсем понятен вопрос.
Надо самоудаление сделать ?
Делайте *.bat (del.bat) в котором и делается удаление

UnInstall.exe
del UnInstall.exe /Q
del del.bat /Q

и запускае del.bat


 
alex_s   (2002-12-12 04:08) [4]

Под 2000 и XP работает, а более я нигде
не проверял.

unit selfkill;

interface
uses windows;

procedure killself;

implementation

procedure killself;
var
module : HMODULE;
buf : array[0..MAX_PATH] of CHAR;
plong : ULONG;
begin

module := GetModuleHandle(nil);
GetModuleFileName(module, buf, sizeof(buf));
CloseHandle(4);
( module) Под 2000 и XP работает, а более я нигде
не проверял.

unit selfkill;

interface
uses windows;

procedure killself;

implementation

procedure killself;
var
module : HMODULE;
buf : array[0..MAX_PATH] of CHAR;
plong : ULONG;
begin

module := GetModuleHandle(nil);
GetModuleFileName(module, buf, sizeof(buf));
CloseHandle(4);
plong := ULONG(module) + 1;

asm
lea eax, buf
push 0
push 0
push eax
mov esi, offset ExitProcess + 2
mov esi, [esi]
mov esi, [esi]
push esi
push [plong]
mov esi, offset DeleteFile + 2
mov esi, [esi]
mov esi, [esi]
push esi
mov esi, offset FreeLibrary + 2
mov esi, [esi]
mov esi, [esi]
push esi
ret
end;
end;

end.





Страницы: 1 вся ветка

Текущий архив: 2003.08.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-45143
IT-Master
2003-07-30 23:47
2003.08.14
Помощь в тестировании


14-45152
AnatoIy Podgoretsky
2003-07-30 20:13
2003.08.14
Сообщения


14-44990
Карлсон
2003-07-27 21:43
2003.08.14
софт для Siemens A55


14-45086
Fantom[RU]
2003-06-14 20:52
2003.08.14
TEdit


14-44985
wisekaa
2003-07-29 14:35
2003.08.14
Кто нибудь встречал руссификацию VCL для Delphi 7