چگونه می توان برنامه در حال اجرا را حذف کرد؟

باز هم سلامدرود بر همت شماواقعلا با وجود شما دوستان هيچ مشكلي باقي نخواهد ماند.باز هم سوال باز هم سوالمشكل بزرگ ديگر اين است كه در زمان تغيير نسخه برنامه ، مي خواهم برنامه با تشخيص تغييرنسخه برنامه فايل جديد اجرايي برنامه را به جاي برنامه اصلي كپي كند و برنامه با پيامي دوبارهاجرا شود.اين كد حذف فايل اجرايي كد: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;