copypocket/CopyPocket.dpr at master · baird/copypocket · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program CopyPocket;

uses
  ProcessSharedString,
  Windows,
  Messages,
  Classes,
  SysUtils,
  Forms,
  MainForm in 'MainForm.pas' {frmMain},
  ClipboardUtils in 'ClipboardUtils.pas',
  Encryption in 'Encryption.pas',
  VisualClipboard in 'VisualClipboard.pas';

{$R *.res}

var
  pss: TProcessSharedAnsiString;
begin
  pss := TProcessSharedAnsiString.Create('A8EA4156-797C-4FF1-96CE-844061200D44');
  try
    pss.Lock;
    try
      if pss.Value = '' then
        pss.Value := '0'
      else
      begin
        SendMessage(StrToInt(pss.Value), WM_USER + 1, 0, 0);
        Exit;
      end;
      Application.Initialize;
      Application.Title := 'Copy Pocket';
  Application.CreateForm(TfrmMain, frmMain);
  pss.Value := IntToStr(frmMain.Handle);
    finally
      pss.Unlock;
    end;
    Application.Run;
    pss.Value := '';
  finally
    pss.Free;
  end;
end.