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 全局钩子锁定鼠标

Delphi 开发64位应用程序使用windows api的注意事项

Delphi & c++ 安卓使用权限

Delphi之猥琐的webserver实现

Delphi 通过控件句柄获取控件实例

Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数

Delphi winapi: isiconic、iszoomed - 分别判断窗口是否已最小化、最大化

Delphi ttask无法传递参数的一个解决方案

Delphi unigui服务器部署

Delphi date 返回当前的日期

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

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