Anfidya'nın arka bahçesi..

Merahaba,

Programınızı uyarı verdirerek performanslı bir şekilde kapatabilirsiniz.

procedure ExitWithMessage; assembler;
asm
  // Bazı adresleri temizleyerek yol açıyoruz
  mov ecx, 5
  @clear_loop:
  dec ecx
  mov dword ptr [ecx * 4 + esp], 0
  cmp ecx, 0
  jnz @clear_loop
  // ExitProcess 'ın parametresini belirliyoruz
  push 0
  // MessageBoxA 'nın parametresini belirliyoruz
  push MB_ICONERROR
  push Title
  push Text
  push 0
  //  MessageBox 'ın devam eden adresinden ExitProcess 'ı çağarıyoruz
  lea eax, ExitProcess
  push eax
  jmp MessageBoxA
end;