Немного спустя подумал..... и вот что получилось
//=========
var
CRLF: string;
begin
if GlobalFindAtom( 'THIS_IS_SOME_OBSCUREE_TEXT' ) = 0 then
GlobalAddAtom( 'THIS_IS_SOME_OBSCUREE_TEXT' )
else
begin
CRLF := #10 + #13;
ShowMessage( ' тут текст ' );
Halt;
end;
|