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:

Type TM_UPDATECFENTER = Class 
  ...
  Procedure WMUSERUPDINSTALL(var msg : TMessage);message WM_USERUPDINSTALL;
  ...
end;

Procedure TM_UPDATECENTER.WMUSERUPDINSTALL(var msg : TMessage);
Begin
  MessageDlg('Empfangen',mterror,[Mbok],0,0);  //Wird nie Angezeigt
end;

var updHandle : THANDLE;
    m_Handle  : THANDLE;
    
Initialization

  //Wenn Parametern existieren, muss eine Anwendung gestartet werden.
  if paramcount > 0 then
  Begin
     
    updHandle := FindWindowEx(0,0,PChar('TM_UPDATECENTER'),pchar('medavis starter'));  //Fenster wird gefunfen
     
    if updHandle <> 0 then
      SendMessage(updHandle,WM_USERUPDINSTALL,0,0);    //Botschaft erfolgreich versendet 
  
    //Nur eine Instanz erlauben
    mHandle := CreateMutex(nil,True,'medavisstarter');
    if GetLastError = ERROR_ALREADY_EXISTS then
      halt;

Finalization
  if mHandle <>0 then
    closeHandle(mHandle);					

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:

Type TM_UPDATECFENTER = Class 
  ...
  Procedure WMUSERUPDINSTALL(var msg : TMessage);message WM_USERUPDINSTALL;
  ...
end;

Procedure TM_UPDATECENTER.WMUSERUPDINSTALL(var msg : TMessage);
Begin
  MessageDlg('Empfangen',mterror,[Mbok],0,0);  //Wird nie Angezeigt
end;

var updHandle : THANDLE;
    m_Handle  : THANDLE;
    
Initialization

  //Wenn Parametern existieren, muss eine Anwendung gestartet werden.
  if paramcount > 0 then
  Begin
     
    updHandle := FindWindowEx(0,0,PChar('TM_UPDATECENTER'),pchar('medavis starter'));  //Fenster wird gefunfen
     
    if updHandle <> 0 then
      SendMessage(updHandle,WM_USERUPDINSTALL,0,0);    //Botschaft erfolgreich versendet 
  end;

  //Nur eine Instanz erlauben
  mHandle := CreateMutex(nil,True,'medavisstarter');
  if GetLastError = ERROR_ALREADY_EXISTS then
      halt;

Finalization
  if mHandle <>0 then
    closeHandle(mHandle);					

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:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:

uses Registry;

function SetGlobalEnvironment2(const Name, Value: string;
  const User: Boolean = True): Boolean;
const
  KeyName = 'Environment';
  REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session Manager\' +
    KeyName;
  REG_USER_LOCATION = KeyName;
{resourcestring
  REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session Manager\'
    + 'Environment';
  REG_USER_LOCATION = 'Environment';}
var
{$IFDEF CLR}
  NamePtr: IntPtr;
{$ENDIF}
  AResult: DWORD;
begin
  with TRegistry.Create do
  try
    if User then
    begin
      { User Environment Variable }
      Result := OpenKey(REG_USER_LOCATION, True);
    end
    else
    begin
      { System Environment Variable }
      RootKey := HKEY_LOCAL_MACHINE;
      Result  := OpenKey(REG_MACHINE_LOCATION, True);
    end;
    if Result then
    begin
      { Write Registry for Global Environment }
      WriteString(Name, Value);
      { Update Current Process Environment Variable }
    {$IFDEF CLR}
      SetEnvironmentVariable(Name, Value);
    {$ELSE}
      SetEnvironmentVariable(PChar(Name), PChar(Value));
    {$ENDIF}
      { Send Message To All Top Windows for Refresh }
    {$IFDEF CLR}
      NamePtr := Marshal.StringToHGlobalAuto(KeyName);
      SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
        WPARAM(NamePtr), SMTO_NORMAL, 1000, AResult);
      Marshal.FreeHGlobal(NamePtr)
    {$ELSE}
      SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
        WPARAM(PChar(KeyName)), SMTO_NORMAL, 1000, AResult);
    {$ENDIF}
    end;
  finally
    Free;
  end;
end;

function GetGlobalEnvironment2(const Name: string;
  const User: Boolean = True): String;
var b:Boolean;
resourcestring
  REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session Manager\Environment';
  REG_USER_LOCATION = 'Environment';
begin
  with TRegistry.Create do
    try
      if User then { User Environment Variable }
        b:=OpenKey(REG_USER_LOCATION, True)
      else { System Environment Variable }
      begin
        RootKey := HKEY_LOCAL_MACHINE;
        b:=OpenKey(REG_MACHINE_LOCATION, True);
      end;
      if b then
      begin
        Result:=ReadString(Name); { Read Registry for Global Environment }
      end;
    finally
      Free;
    end;
end; { GetGlobalEnvironment }

procedure TForm1.Button1Click(Sender: TObject); //SET
var Name, Value2 : String;
begin
Name:= mystr;
Value2:= 'HATHOR';
SetGlobalEnvironment2(Name, Value2);
end;

procedure TForm1.Button2Click(Sender: TObject); //GET
begin
 Label1.caption:=GetGlobalEnvironment2(mystr);
end;

procedure TForm1.Button3Click(Sender: TObject); //DEL
var Name, Value2 : String;
begin
Name:= mystr;
Value2:= '';
SetGlobalEnvironment2(Name, Value2);
end;