Удалить свою программу после ее завершенияDelphi , Программа и Интерфейс , Приложение своёУдалить свою программу после ее завершения
Оформил: DeeCo procedure DeleteEXE; function GetTmpDir: string; var pc: PChar; begin pc := StrAlloc(MAX_PATH + 1); GetTempPath(MAX_PATH, pc); Result := string(pc); StrDispose(pc); end; function GetTmpFileName(ext: string): string; var pc: PChar; begin pc := StrAlloc(MAX_PATH + 1); GetTempFileName(PChar(GetTmpDir), 'uis', 0, pc); Result := string(pc); Result := ChangeFileExt(Result, ext); StrDispose(pc); end; var batchfile: TStringList; batchname: string; begin batchname := GetTmpFileName('.bat'); FileSetAttr(ParamStr(0), 0); batchfile := TStringList.Create; with batchfile do begin try Add(':Label1'); Add('del "' + ParamStr(0) + '"'); Add('if Exist "' + ParamStr(0) + '" goto Label1'); Add('rmdir "' + ExtractFilePath(ParamStr(0)) + '"'); Add('del ' + batchname); SaveToFile(batchname); ChDir(GetTmpDir); ShowMessage('Uninstalling program...'); WinExec(PChar(batchname), SW_HIDE); finally batchfile.Free; end; Halt; end; end; Статья Удалить свою программу после ее завершения раздела Программа и Интерфейс Приложение своё может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Приложение своё ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |