[sariman]

Точно, спасибо!

Код:

ID_FULLPATH..ID_HIDEPATH:
begin
case ((GetMenuState(Menu, LOWORD(wParam), MF_BYCOMMAND) and
MF_CHECKED) = MF_CHECKED) of
True:
begin
CheckMenuRadioItem(Menu, ID_FULLPATH, ID_HIDEPATH, LOWORD(wParam),
MF_BYCOMMAND);
if LoWord(wParam) = ID_FULLPATH then
ViewType := 1;
if LoWord(wParam) = ID_ONLYNAME then
ViewType := 2;
if LoWord(wParam) = ID_HIDEPATH then
ViewType := 3;
end;
False:
begin
CheckMenuRadioItem(Menu, ID_FULLPATH, ID_HIDEPATH, LOWORD(wParam),
MF_BYCOMMAND);
end;
end;

Не работает Подскажите что не так...