Mencegah beberapa program EXE yang identik berjalan secara bersamaan

Penulis：Eve Cole Waktu Pembaruan：2025-02-20 04:12:01

Teman -teman yang terbiasa dengan Delphi tahu bahwa jika program yang ditulis di Delphi tidak dikendalikan, program EXE yang dikompilasi dapat dijalankan pada saat yang sama. Masalah ini dapat diselesaikan dengan menambahkan kode berikut ke program:

.........

publik

AA: Word;

.........

Prosedur TFORM1.FORMCREATE (Pengirim: Tobject);

Mulai

// Cari database sistem untuk melihat apakah program sedang berjalan

Jika GlobalFindatom ('' Project1 '') = 0 lalu // Project1 adalah nama file EXE

// Jika file EXE tidak ditemukan, tambahkan nama file EXE ke database sistem

AA: = GlobalAddatom ('' Project1 '')

kalau tidak

Mulai // Jika program sudah berjalan, tampilkan informasi dan keluar dari program

Messagedlg ('' Program ini sedang berjalan! '', Mtwarning, [mbok], 0);

Berhenti;

akhir;

.........

Prosedur TFORM1.FORMDESTROY (Pengirim: TOBJEKS);

Mulai

{Saat keluar dari program, hapus nama file yang ditambahkan dari tabel data}

Globaldeleteatom (AA);

akhir;