BorderStyle := bsSizeable; Position := poScreenCenter; SetBounds(0,0,640,480);
sorry 搞错了 var H: hwnd; begin H := findwindow(nil,pchar('加壳、脱壳程序')); if H >0 then //postmessage(H,wm_syscommand,SC_SIZE,0) setwindowpos(h,HWND_TOP,100,100,640,480,SWP_SHOWWINDOW or SWP_NOZORDER) else showmessage('not found'); end;
Dx中的SetCooperativeLevel(窗口句柄,DDSCL_FULLSCREEN OR DDSCL_ALLOWMODEX OR DDSCL_EXCLUSIVE) 设置为全屏模式 SetCooperativeLevel(窗口句柄,DDSCL_NORMAL)设置为普通模式我用VB试过了,好旬
Dx中的SetCooperativeLevel(窗口句柄,DDSCL_FULLSCREEN OR DDSCL_ALLOWMODEX OR DDSCL_EXCLUSIVE) 设置为全屏模式 SetCooperativeLevel(窗口句柄,DDSCL_NORMAL)设置为普通模式 ---------------------------估计不好用,因为exclusive and fullscreen模式下,可能程序要用surface flip,而window模式下就不性..所以用setcooperatevielevel来实现是不行的. 我曾经用setparent()来试验过,但不时所有的程序都行...gz...
procedure TForm1.Timer1Timer(Sender: TObject); var MuWindow: HWND; WindowText: array[0..255] of char; ClassText: array[0..255] of char; begin MuWindow := GetForegroundWindow; GetClassName(MuWindow, ClassText, 255); if ClassText = 'MU' then begin Windows.SetParent(MuWindow, Handle); Timer1.Enabled := False; end; end;
要是退出的话,我道知道Ese
和其他应用程序切换的话Alt+Tab
Position := poScreenCenter;
SetBounds(0,0,640,480);
var
H: hwnd;
begin
H := findwindow(nil,pchar('加壳、脱壳程序'));
if H >0 then
//postmessage(H,wm_syscommand,SC_SIZE,0)
setwindowpos(h,HWND_TOP,100,100,640,480,SWP_SHOWWINDOW or SWP_NOZORDER)
else
showmessage('not found');
end;
设置为全屏模式
SetCooperativeLevel(窗口句柄,DDSCL_NORMAL)设置为普通模式我用VB试过了,好旬
设置为全屏模式
SetCooperativeLevel(窗口句柄,DDSCL_NORMAL)设置为普通模式
---------------------------估计不好用,因为exclusive and fullscreen模式下,可能程序要用surface flip,而window模式下就不性..所以用setcooperatevielevel来实现是不行的.
我曾经用setparent()来试验过,但不时所有的程序都行...gz...
具体消息的名称我忘了,WindowsAPI帮助里有。
还有一个办法:全屏效果不要用窗口最大化,而是把窗口设定成和屏幕一样大,按键时就改变窗口大小和窗口的边框,就可以实现相同的效果,但是本质不一样,这种做法比较简单,适合初学者使用。那些专项技术不外传的人就是贱!那屁点技术有什么保密的,上网一找一大堆。中国的软件发展不起来就是这帮混蛋搞的!大力支持D版和Free软件!
我要一份 谢谢了,
[email protected]
[email protected]
谢谢,给我一份,希望能和你交流外挂技术:)
谢谢
h_Wnd := CreateWindowEx(dwExStyle, // 扩展窗体风格
'OpenGL', // 类名
WND_TITLE, // 标题
dwStyle, // 窗体属性
0, 0, // 窗体位置
Width, Height, // 窗体大小
0, // 没有父窗体
0, // 没有菜单
h_Instance, // 实例句柄
Nil); // 不向WM_CREATE传递任何东东
具体看置顶的那个,OPENGL的贴子,里面有详细的用法第一段就是设置一个 OpenGL窗口。它可以只是一个窗口或是全屏幕的、可以任意 大小、任意色彩深度。
送源程序的话,要份来学学,thanks!
[email protected]
给我也发一份,谢谢了~
[email protected]
关注~
我也要一份,谢谢
我也要一份,谢谢如果谁有的话,也请给我一份,谢谢!
[email protected]
我也要一份,谢谢!
是否能给我发一份,谢了!
[email protected]
var
MuWindow: HWND;
WindowText: array[0..255] of char;
ClassText: array[0..255] of char;
begin
MuWindow := GetForegroundWindow;
GetClassName(MuWindow, ClassText, 255);
if ClassText = 'MU' then
begin
Windows.SetParent(MuWindow, Handle);
Timer1.Enabled := False;
end;
end;
[email protected]
给我也发一份吧,谢谢先!!
[email protected]