Hi everybody, hope you doing all right today : )
I'm trying to write an application that covers the entire screen.
I started with the start menu thing and found this code which goes back in time to D5.
procedure ShowStartButton(bvisible: Boolean);
if bvisible then
h := FindWindowEx(GetDesktopWindow, 0, 'Button', nil);
TaskWindow := FindWindow('Shell_TrayWnd', nil);
h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
procedure TForm1.Button1Click(Sender: TObject);
ShowStartButton(False); // or true to reshow
Due to my shallow knowledge about Windows API, I couldn't figure out the issue that popped up after pasting the code which was:
Undeclared identifier: Windows
Undeclared identifier: SetParent
Even though the units Windows, ShellApi are declared in the uses block.
I'm using XE2 by the way and I believe that things were moved around a bit when it comes to units and declarations in comparison to older versions.
Any solution or alternatives?
Appreciated in advance.