if (GetKeyState(VK_CONTROL)<0) then
begin
//判断是否按下ctrl键
end
else if (GetKeyState(VK_MENU)<0) then
//判断是否按下alt键
begin
end
if (GetKeyState(VK_CONTROL)<0) then
begin
//判断是否按下ctrl键
end
else if (GetKeyState(VK_MENU)<0) then
//判断是否按下alt键
begin
end