function SetEnable(h: HWND; v: integer): Boolean; stdcall; var NA: array[0..255] of char; begin EnableWindow(h,true); result := true; end;procedure TForm1.Button1Click(Sender: TObject); var HD:HWND; begin HD:=FindWindow(nil,'你程序的名称'); if HD <> 0 then EnumChildWindows(Handle, @SetEnable, 0); end;
2.功能级的正常显示,操作时提示无权限------------是设为不可用,灰色显示好呢,还是提示无权限好?
然后一句 EnableWindow(Handle,true);
全部都可以用了
var NA: array[0..255] of char;
begin
EnableWindow(h,true);
result := true;
end;procedure TForm1.Button1Click(Sender: TObject);
var
HD:HWND;
begin
HD:=FindWindow(nil,'你程序的名称');
if HD <> 0 then
EnumChildWindows(Handle, @SetEnable, 0);
end;