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

[MEGAMAN]

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