unit unit1;
inte***ce
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
stdctrls;
type
tform1 = class(tform)
button1: tbutton;
procedure deleteme; //自定義程式自殺過程
procedure button1click(sender: tobject);
private
public
end;
varform1: tform1;
implementation
procedure tform1.button1click(sender: tobject);
begin
deleteme;
end;
procedure tform1.deleteme; //程式自殺
//如果要轉載本文請註明出處,免的出現版權紛爭,我不喜歡看到那種轉載了我的作品卻不註明出處的人 seven
Delphi程式「自殺」的有效辦法
某個應用程式a，長期執行後，時不時出現 external exception e06d7363 錯誤，然後程式a就失去了反應，既不工作也不退出。分析發現，程式a在執行中依賴第三方dll，上述錯誤可能由dll引發，因此無法避免該問題出現。好在程式a從啟動執行到出錯的時間基本在2天以上，不算頻繁，因此出...
用C 實現（程式自殺）
近日看到詢問如何實現程式執行之後把自己刪除的方法，使用者只要一執行程式,可執行檔案就沒有了,可是程式還是在跑,膽小的只怕要喊 鬼呀 老婆,快出來看上帝 甚麼的。其實最典型的用法是寫反安裝程式.閒來無事，查到一種還算巧妙的 刪除自己 的方法。大家都知道，一般的程式執行的時候，可執行檔案本身是被作業系統...
Delphi實現防止程式多次執行
windows是個多使用者多工的作業系統，支援多個程式同時執行，如果你的程式不想讓使用者同時執行乙個以上，那應該怎樣做呢？本文將介紹避免使用者同時執行多個程式的例子。需要用到的函式createmutex createmutex 函式是windows中乙個並不常用的函式，該函式物件在系統中只能存在乙個...