Arsip: form nutup sendiri kayak screen saver
more 17 years ago
mbahdien
Master-master delphi aku mau nanya nih, gimana buat program kayak windows screen saver itu. Jadi pas saat idle alias tidak nekan apapun and nggerakin mouse program nutup sendiri.
more 17 years ago
reev
Pake form1.OnMouSeMove() kali yaa.
Private sub TForm1.MouseMove(...);
begin
Close();
end;
more 17 years ago
Thoyib
kok private sub sih...
bukannya ini forum delphi,,, napa produk microsoft ikut nimrung tuh...
more 17 years ago
mas_kofa
bukannya ini forum delphi,,, napa produk microsoft ikut nimrung tuh...bangun tidur kali.......????
more 17 years ago
xerion
if %CODE_TYPE% != DELPHI GO TO HELL;
di translate aja deh :
procedure TMainForm.OnMouseMove(Sender : TObject);
begin
Application.Terminate;
end;
more 17 years ago
cyber_hecker
kembangkan sendiri yach.. jangan manja !.
function SecondsIdle: DWord;
var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;
procedure TForm1.Timer1Timer(Sender: TObject) ;
begin
Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;
more 17 years ago
xerion
PERINGATAN :
fungsi diatas buat windows nt, win 9x jelas ngak bisa ...
bener kan mas CH ??
more 17 years ago
cyber_hecker
whew.. begitu kah ? baru tau nih. karena selama ini saya nyoba nya cuma di XP aja. emang bedanya dimana ? sampe hanya di 9x gak bisa ?
more 17 years ago
xerion
tidak yakin sih, dulu pernah coba fungsi buat idle seperti diatas. mungkin yang itu .....
tapi waktu dicoba jalanin di win me, katanya entry point not found 
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
AI Forward
🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Buka IE atau browser lain dari delphi
by alfian in Enginering more 19 years ago - Pencarian Tanggal
by galih in Tip n Trik Pemrograman more 17 years ago - ada yg pernah punya masalah dengan Rollback gak??
by cyan in FireBird more 17 years ago - tanya bikin treeview
by dauf in Tip n Trik Pemrograman more 17 years ago - popup messsage to client
by nurez in Tip n Trik Pemrograman more 17 years ago - Store Procedure Seaching
by sp1d3r_n3tz in MsSQL more 17 years ago - Script Cetak struk kasir pake printer tinta
by Exoo in Tip n Trik Pemrograman more 18 years ago - Aplikasi Windows Mobile
by fongers in Lain-lain more 15 years ago - System Stanby
by supermuam in Hal umum tentang Pascal Indonesia more 15 years ago - Connect ke SQL Server dari Client
by unank in MsSQL more 17 years ago