uses Windows, Registry ;

const
LeftButton = ’0’ ;
RightButton = ’1’ ;
VaueToRead = ’SwapMouseButtons’ ;
begin
with TRegistry.Create do
begin
try
if OpenKey ’Control Panel\Mouse’,False) then
begin
if ValueExists VaueToRead) then
if ReadString VaueToRead) = LeftButton then
begin
SwapMouseButton True) ;
WriteString VaueToRead,RightButton) ;
end else
begin
SwapMouseButton False) ;
WriteString VaueToRead,LeftButton) ;
end ;
CloseKey ;
end ;
finally
Free ;
end ;
end ;
end.