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程序在每个Windows 会话中只执行一次

相关推荐

评论