荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: zzt (少年仲永), 信区: Program
标 题: DELPHI TIPS(10)
发信站: BBS 荔园晨风站 (Fri Apr 16 18:24:29 1999), 转信
ZDTips brings you another Delphi Tip
http://www.zdtips.com -- Your #1 source for software tips and techniques
*******************************************************************
Learn new skills. Climb the corporate ladder. Improve your career!
$99 buys 1 year enrollment to ZDU, providing you a full year of
access to hundreds of on-line courses, PLUS a 1 year subscription
to your choice of one of over 26 computer-related journals.
http://www.zdu.com/zdj99/99zdjemail10605.asp
*******************************************************************
Today's sponsor:
News to remember: Excel Recovery 1.0 salvages data from corrupt
Excel files! Use yourself. Tell a friend. Forward to your helpdesk.
Get your FREE demo: http://www.conceptdata.com/excel/?zdt-001
*******************************************************************
This week's Delphi Tip
Make sure your .exe only runs once!
The following code ensures that your .exe will only run once:
procedure TForm1.FormCreate(Sender: TObject);
begin
{Searchs table to see if the program is already running}
if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
{ If not found then add it }
atom := GlobalAddAtom('PROGRAM_RUNNING')
else begin
{ If program is already running the show message and halt }
MessageDlg('You have the program running all ready!!', mtWarning,
[mbOK], 0);
Halt;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
{Removes the item from the table so it can be run again}
GlobalDeleteAtom(atom);
end;
From--Paul Dexter
For a preview issue of the Delphi Developer's Journal, simply fill
out the form at:
http://www.zdjournals.com/forms/ddj/cuvw79.htm
*******************************************************************
Tips and suggestions can be sent to
delphi_dev@zdjournals.com
We'll print your name and your e-mail or Web address, along with the tip.
*******************************************************************
This weekly tip is delivered to you as a free service from ZDTips.
To unsubscribe from a particluar tip (or tips) list go to
http://www.zdtips.com/unsub/
Type in the e-mail address and name you used to sign up for your tips and
then click unsubscribe.
*******************************************************************
ZDTips (TM) is a trademark of Ziff-Davis Inc. Copyright ?1997
Ziff-Davis Inc. All rights reserved. Reproduction in whole or in part
in any form or medium without express written permission of Ziff-Davis
is prohibited.
--
日出东方，唯我不败；
天上地下，唯我独尊。
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.143]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店