delphi程序在每个Windows 会话中只执行一次

本文整理自网络，侵删。

 
让delphi程序在每个Windows 会话中只执行一次。
复制内容到剪贴板 程序代码
program Project1;
uses
   Windows, Forms,
   Unit1 in 'Unit1.pas' {Form1};
 
 {$R *.res}
 
begin
 Application.Initialize;
 
 if 0 = GlobalFindAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') then
 begin
 GlobalAddAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') ;
 
 Application.CreateForm(TForm1, Form1) ;
 Application.Run;
 end
 else
 begin
 Application.MessageBox(
 'You can run the trial version '+
 'of this application '+
 'only once per Windows session!',
 'Test Trial Protection') ;
 end;
 end.
 

相关阅读 >>

Delphi 关于注释

tidhttpresponseinfo 中文乱码问题解决

如何用Delphi实现子目录级的文件查询

Delphi 刷新系统桌面图标缓存

Delphi string.parse

Delphi android实例-trectangle加载图片(xe8+小米2)

Delphi 如何将memo或richedit保存为utf 8文本文件？

Delphi注入下载者源代码

Delphi 中文姓名 合法性检查

Delphi�⒆执�传入到windows目前窗口cursor所在位置

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi程序在每个Windows 会话中只执行一次