触摸屏-各位大虾来一来，看一看啊 (50分)

请问，如果用ASP+SQL做触摸屏，咋个屏蔽掉那个工具栏和那个叉叉（关闭窗口）呢？望赐
教！

http://www.delphibbs.com/delphibbs/dispq.asp?lid=541237

简单！用TWebbrowser自制一个浏览器就很了。我们就是这么干的。

查查MSDN吧，在OPENWINDOW时有很多选项，
屏蔽掉工具栏和关闭按钮可以的。

1.
procedure hideTaskbar; //隐藏
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
End;
procedure showTaskbar; //显示
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, nil, 0); //屏蔽系统键
hidetaskbar;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0,nil, 0); //恢复系统键
showTaskbar;
end;


还有
在implementation后添加声明:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏
RegisterServiceProcess(GetCurrentProcessID, 0);//显示
2.自己添加一个变量 CanCloseMyForm:Boolean;
在窗体的OnClose中加入：
if not CanCloseMyForm then
CanClose:=False;
自己关闭的过程为：
CanCloseMyForm:=True;
Self.Close;

真是笨啦，放个webbrowser到form上，然后把form设成没边框的，再把form的窗口状态设成
最大化。然后按f9运行。
当然再编辑个ini文件，把启动时的开始页放在ini文件中，然后在exe运行时读一下这个
ini文件就更完美了。

多人接受答案了。