Hiding Windows 9xTaskbar

Is there a way to hide the Windows 95 statusbar when i start my application made in delphi 2.01. When the user close the application the statusbar must become visible again.

I'm guessing you're referring to the Windows 95 taskbar and system tray window, and not a statusbar. The answer: Sure you can! And what a cool idea! Here's how:

First declare a variable of type HWND to store the Window handle of the Windows 95 taskbar.

TForm1 = class(TForm)

...

private

hTaskBar: HWND;

...

end;

In your main form's OnCreate() event handler, place some code that resembles:

hTaskBar := FindWindow('Shell_TrayWnd', nil);

ShowWindow(hTaskBar, SW_HIDE);

Finally, in your main form's OnDestroy() event handler, code something like:

ShowWindow(hTaskBar, SW_SHOW);

PROCEDURE HideWin95TaskBar;

VAR

WindowHandle: hWnd;

BEGIN

{Hide the Windows 95 Taskbar}

WindowHandle := FindWindow('Shell_TrayWnd', '');

IF WindowHandle <> 0

THEN ShowWindow(WindowHandle, SW_HIDE)

END {HideWin95TaskBar};

PROCEDURE ShowWin95TaskBar;

VAR

WindowHandle: hWnd;

BEGIN

{Allow the Windows 95 Taskbar to appear}

WindowHandle := FindWindow('Shell_TrayWnd', '');

IF WindowHandle <> 0

THEN ShowWindow(WindowHandle, SW_RESTORE)

END {ShowWin95TaskBar};