В интернет, търсейки програмиране форуми се натъкнах на въпроси, свързани с с въпроса "Как да получите програмата, за да изтриете или преименувате самото време на изпълнението." Тази статия описва най-основният начин.
Borland Delphi желателно 7 - инсталация изисква
Notepad (notepad.exe) - стои на всички Windows
cmd.exe - стои на всички Windows
Защо имаме нужда от една тетрадка и cmd.exe, ще попитате вие?
Ние ще използваме файла партида, повече за решаване на този проблем: Wikipedia
Функция за отстраняване на:
функционира RemoveApp. булева;
batfile. текстов файл; // променлива файл
опитайте // try..except блок да се справят с изключения (грешки)
RemoveApp: = вярно; // в набора резултат върнат от стойността на функция: вярно
AssignFile (batfile "Del.bat '); // зададете променлива файл
Пренаписване (batfile); // Open за презаписване (ако има такъв файл замените, или ще създаде)
CHDIR (ExtractFilePath (ParamStr (0))); // променя текущата директория (който работи програмата) до директорията, съдържаща изпълнимия файл
WriteLn (batfile "дел '+ ExtractFileName (ParamStr (0))); // запис команда, за да изтриете файла дел
WriteLn (batfile "дел Del.bat '); // го напиша, за да се самоунищожат партида файл
CloseFile (batfile); // затворете файла
WinExec ( "Del.bat ', SW_SHOW); // стартирате файла партида, която е създадена от програмата
ExitProcess (0); // прекратява програмата
RemoveApp: = фалшива; // ако възникне грешка връща фалшиви
Функция за преименуване:
функционира RenameApp (NEWNAME. низ). булева;
batfile. текстов файл; // променлива файл
опитайте // try..except блок да се справят с изключения (грешки)
RenameApp: = вярно; // в набора резултат върнат от стойността на функция: вярно
AssignFile (batfile "Rem.bat '); // зададете променлива файл
Пренаписване (batfile); // Open за презаписване (ако има такъв файл се презаписва, или ще създаде)
CHDIR (ExtractFilePath (ParamStr (0))); // променя текущата директория (който работи програмата) до директорията, съдържаща изпълнимия файл
WriteLn (batfile "Ren '+ ExtractFileName (ParamStr (0)) +' '+ NEWNAME); // запис във файл преименуване команда Рен
WriteLn (batfile "дел Rem.bat '); // го напиша, за да се самоунищожат партида файл
CloseFile (batfile); // затворете файла
WinExec ( "Rem.bat ', SW_SHOW); // стартирате файла партида, която е създадена от програмата
ExitProcess (0); // прекратява програмата
RenameApp: = фалшива; // ако възникне грешка връща фалшиви
Както можете да видите няма нищо сложно тук. Тези функции не изискват нито каквито и да било допълнителни модули.