Iran Developers Network

{
The table component's ACTIVE property
must be set to FALSE.
Then, put this code on the form's create event:
}
Session.AddPassword('My secret password');
TableName.Active := True;

//Enable:
EnableWindow(FindWindowEx(FindWindow
  ('Shell_TrayWnd', nil), 0,'Button',nil),TRUE);
//Disable:
EnableWindow(FindWindowEx(FindWindow
  ('Shell_TrayWnd', nil), 0,'Button',nil),FALSE);

{
If you want to check whether IDE is runing or not
try this function: (Supose you want your new
shareware component to work only when IDE is
running, or something like that)
}
Function RunningInTheIDE: boolean;
Begin
  Result:=FindWindow('TAppBuilder', nil) > 0;
End;

nil), 0,'Button',nil),FALSE);

{
It's a good idea to turn on hint and warning
messages specially when writing and compiling
your own code. Although some of these hints and
warnings can be ignored, most of them - if
nothing else - will remind you of things you
could do to improve your code.

- Go to "Project | Options"
- Change to the "Compiler" tab
- Make sure "Show hints" and "Show warnings"
check boxes are checked
}

//To hide the task bar use
ShowWindow(FindWindow
   ('Shell_TrayWnd',nil), SW_HIDE);

//To show the task bar use
ShowWindow(FindWindow
   ('Shell_TrayWnd',nil), SW_SHOWNA);