win9x下使桌面和任务栏失去响应基本就能满足你的要求 1.使桌面和任务栏失去响应 var wnd:HWnd; begin wnd:=FindWindow('Shell_TrayWnd',nil);//查找任务栏Handle EnableWindow(wnd,FALSE);//使任务栏失去响应 wnd:=FindWindow('Progman',nil);//桌面Handle EnableWindow(wnd,FALSE); 2.使桌面和任务栏恢复响应 var wnd:HWnd; begin wnd:=FindWindow('Shell_TrayWnd',nil); EnableWindow(wnd,TRUE); wnd:=FindWindow('Progman',nil); EnableWindow(wnd,TRUE);
MSDN有的,但是那是VC++的,比较难懂
然后EnabledWindow(false)
1.使桌面和任务栏失去响应
var
wnd:HWnd;
begin
wnd:=FindWindow('Shell_TrayWnd',nil);//查找任务栏Handle
EnableWindow(wnd,FALSE);//使任务栏失去响应
wnd:=FindWindow('Progman',nil);//桌面Handle
EnableWindow(wnd,FALSE);
2.使桌面和任务栏恢复响应
var
wnd:HWnd;
begin
wnd:=FindWindow('Shell_TrayWnd',nil);
EnableWindow(wnd,TRUE);
wnd:=FindWindow('Progman',nil);
EnableWindow(wnd,TRUE);
http://www.csdn.net/expert/topic/798/798536.xml?temp=.5582239