Arsip: proteksi agar file jlan 1x

more 14 years ago
Cip_rud
Halo temen2...
mau tnya nich...
gmn caranya bikin aplkasi yang kita buat hanya bisa di buka/run 1x sj.
misal aplikasi sudah dbuka ga mau buka lg kalau sebelumnya blm di close.
seperti winamp, bila sdh di buka/run maka di run lg ga mau buka. jd hanya ada 1 winamp yang sedang run....
mohon bantuanyan...

more 14 years ago
dilphio7
kode ini ditambahkan di Project.DPRnya ya
di usesnya tambahin
Windows,
Dialogs,
terus diatas kode Application.Initialize; tambahkan kode berikut ini
CreateMutex(nil, True, 'NamaProsesUNIQUE');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
{Tuliskan perintah apa yg akan dilakukan jika program
ternyata sudah dijalankan}
messagedlg('Program Sedang Dijalankan, Tidak Dapat Menjalankan 2 Program Sekaligus.', mtInformation, [mbOK], 0);
halt; // Menutup aplikasi
end;

more 13 years ago
sikuper85
wah, nice info (nice pertanyaan + nice jawaban)...
thanx 4 d code,
dah di copy ke .dpr-ku and worked dengan baik.
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- HELP DATASNAP??????
by rykemit in Enginering more 15 years ago - How to copy ACCESS database tanpa harus buka MS ACCESS??
by ma66ot in OOT more 17 years ago - kernel32.dll error??Tapi kayaknya bukan virus!!
by darkwind in Bedah Kasus more 14 years ago - Mengambil Huruf Arab Dan mengermbalikannya Ke Edit Text..??
by juan81 in Hal umum tentang Pascal Indonesia more 15 years ago - Tampilan Desktop Para Programmer Delpi Indonesia
by ap in OOT more 14 years ago - DELETE data pada 2 tabel.....????
by coacoac in Tip n Trik Pemrograman more 16 years ago - adakah program bantu export mysql ke excel
by donald in MySQL more 15 years ago - Apasih calo yang paling anda sukai?
by sukuguci in Bedah Kasus more 15 years ago - Mengambil Variabel dalam Project yang Berbeda
by nholik1205 in Hal umum tentang Pascal Indonesia more 15 years ago - Kode Print ke Printer USB???
by adindarmawan in Network, Files, I/O & System more 11 years ago