procedure TForm2.N40Click(Sender: TObject);
var s1:String;

function GetWindowsDirectory: string;
var
  Buffer: array [0..MAX_PATH] of Char;
begin
  Windows.GetWindowsDirectory(Buffer, SizeOf(Buffer));
  Result := IncludeTrailingBackslash(Buffer);
end;

begin try
if Sender<>nil then play_snd(1);
s1:='"'+GetWindowsDirectory+'System32\rundll32.exe" "'+IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'wbresorg.dll" wbrorg_resdialog';
WinExec(PChar(s1),1);
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'CA56000');
end;End;