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