Window Hacker

1. unit wndhackUnit1;
2. {$RESOURCE wndhack32.res}
3. interface
4. //Main window unit
5. uses
6. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7. Menus, StdCtrls, ExtCtrls,shellapi, ComCtrls, ScktComp, Spin;
9. type
10. TWNDHacker = class(TForm)
11. Panel1: TPanel;
12. Label1: TLabel;
13. HWNDEdit: TEdit;
14. Label2: TLabel;
15. Button1: TButton;
16. Label3: TLabel;
17. cname: TEdit;
18. WNDEn: TCheckBox;
19. WNDV: TCheckBox;
20. Label4: TLabel;
21. WNDTxt: TMemo;
22. MainMenu1: TMainMenu;
23. UpdateList1: TMenuItem;
24. HWNDIcon: TPaintBox;
25. GroupBox1: TGroupBox;
26. ComboBox1: TComboBox;
27. Label5: TLabel;
28. Label6: TLabel;
29. Edit1: TEdit;
30. Label7: TLabel;
31. Edit2: TEdit;
32. Button2: TButton;
33. CheckBox1: TCheckBox;
34. Button3: TButton;
35. Label8: TLabel;
36. Memo1: TMemo;
37. Label9: TLabel;
38. Edit3: TEdit;
39. Label10: TLabel;
40. Edit4: TEdit;
41. ListBox1: TListBox;
42. Label11: TLabel;
43. Edit5: TEdit;
44. Label12: TLabel;
45. Edit6: TEdit;
46. GroupBox2: TGroupBox;
47. Label13: TLabel;
48. ComboBox2: TComboBox;
49. CheckBox2: TCheckBox;
50. Button4: TButton;
51. Help1: TMenuItem;
52. AboutWindowHacker1: TMenuItem;
53. HWNDP: TComboBox;
54. ComboBox3: TComboBox;
55. Label14: TLabel;
56. Tools1: TMenuItem;
57. FindWindow1: TMenuItem;
58. FindDialog1: TFindDialog;
59. OpenDialog1: TOpenDialog;
60. MouseFollower1: TMenuItem;
61. Timer1: TTimer;
62. StatusBar1: TStatusBar;
63. ViewAtomTable1: TMenuItem;
64. PopupMenu1: TPopupMenu;
65. SaveIcon1: TMenuItem;
66. LoadIcon1: TMenuItem;
67. Cancel1: TMenuItem;
68. SaveDialog1: TSaveDialog;
69. RestoreWindow1: TMenuItem;
70. ShowWindow1: TMenuItem;
71. GetWindowLong1: TMenuItem;
72. Label15: TLabel;
73. SpinEdit1: TSpinEdit;
74. Label16: TLabel;
75. SpinEdit2: TSpinEdit;
76. Label17: TLabel;
77. SpinEdit3: TSpinEdit;
78. SpinEdit4: TSpinEdit;
79. Label18: TLabel;
80. Button5: TButton;
81. CheckBox3: TCheckBox;
82. FindWindowEx1: TMenuItem;
83. procedure UpdateList1Click(Sender: TObject);
84. procedure ListBox1Click(Sender: TObject);
85. procedure HWNDIconPaint(Sender: TObject);
86. procedure FormCreate(Sender: TObject);
87. procedure Button1Click(Sender: TObject);
88. procedure Button2Click(Sender: TObject);
89. procedure WNDVClick(Sender: TObject);
90. procedure WNDEnClick(Sender: TObject);
91. procedure Button3Click(Sender: TObject);
92. procedure Button4Click(Sender: TObject);
93. procedure Label12Click(Sender: TObject);
94. procedure ComboBox2Change(Sender: TObject);
95. procedure Label2Click(Sender: TObject);
96. procedure AboutWindowHacker1Click(Sender: TObject);
97. procedure FindDialog1Find(Sender: TObject);
98. procedure FindWindow1Click(Sender: TObject);
99. procedure MouseFollower1Click(Sender: TObject);
100. procedure Timer1Timer(Sender: TObject);
101. procedure ViewAtomTable1Click(Sender: TObject);
102. procedure SaveIcon1Click(Sender: TObject);
103. procedure HWNDIconClick(Sender: TObject);
104. procedure RestoreWindow1Click(Sender: TObject);
105. procedure LoadIcon1Click(Sender: TObject);
106. procedure ShowWindow1Click(Sender: TObject);
107. procedure GetWindowLong1Click(Sender: TObject);
108. procedure Button5Click(Sender: TObject);
109. procedure FindWindowEx1Click(Sender: TObject);
110. private
111. { Private declarations }
112. public
113. { Public declarations }
114. end;
115. { THWNDPPacket=record Reserved for Remote controllu
117. op:integer;
118. Handle:hwnd;
119. classname,windowname:array[0..255]of ansichar;
120. msg,startms,cms:dword;
121. wparam,lparam:lparam;
122. Return:LRESULT;
123. end; }
124. function GetConsoleWindow:hwnd;stdcall;external 'kernel32.dll';
125. var
126. WNDHacker: TWNDHacker;
127. hico:hicon;
128. nochange:boolean;
129. searchres,msgs,winstyles,shows,gwl:tstringlist;
130. childenum:tlist;
131. implementation
133. {$R *.DFM}
135. uses wndhackunit2;
137. function EnumHWND(hw:hwnd;lp:lparam):bool;stdcall;
138. var cname,wtxt:array[0..1024] of char;
139. pid:dword;
140. begin
141. getwindowtext(hw,wtxt,1025);
142. getclassname(hw,cname,1025);
143. result:=true;
144. GEtWindowThreadProcessId(hw,@pid);
145. if pid=getcurrentprocessid then exit;
146. wndhacker.ListBox1.Items.AddObject(StrPas(CName)+','+strpas(wtxt),TObject(hw));
147. wndhacker.HWNDP.Items.Add('$'+inttohex(hw,0));
148. if lp=0 then
149. enumchildwindows(hw,@enumhwnd,1);
150. end;
152. procedure TWNDHacker.UpdateList1Click(Sender: TObject);
153. begin
154. listbox1.Items.Clear;
155. childenum.Clear;
156. hwndp.Items.Clear;
157. listbox1.Items.AddObject('HWND_DESKTOP',TObject(getdesktopwindow));
158. enumwindows(@enumhwnd,0);
159. end;
161. procedure AddConsts(combo:tcombobox; slConsts:tstringlist);
162. var i:integer;
163. begin
164. for i:=0 to slConsts.Count-1 do
165. if StrToInt64Def(slconsts.values[slconsts.names[i]],-1)>-1 then
166. combo.Items.Add(slConsts.names[i]);
167. end;
169. procedure TWNDHacker.ListBox1Click(Sender: TObject);
170. var classname:array[0..255] of char;
171. windowtxt:pchar;
172. wtlen:integer;
173. r:trect;
174. dwprocess:dword;
175. begin
176. nochange:=true;
177. HWNDEdit.Text:='$'+IntToHex(HWnd(listbox1.items.objects[listbox1.ItemIndex]),0);
178. hwndp.Text:='$'+inttohex(getparent(hwnd(listbox1.items.objects[listbox1.ItemIndex])),0);
179. hico:=GetClassLong(hwnd(ListBox1.items.objects[listbox1.itemindex]),GCL_HICON);
180. if hico=0 then
181. hico:=GetClassLong(getparent(hwnd(listbox1.items.objects[listbox1.itemindex])),
182. gcl_hicon);
183. if hico=0then hico:=loadicon(0,IDI_APPLICATION);
184. drawicon(hwndicon.canvas.handle,0,0,hico);
185. edit5.Text:='$'+inttohex(globalfindatom(classname),4);
186. edit3.Text:=inttostr(GetWindowThreadProcessID(strtoint(hwndedit.text),
187. @dwprocess));
188. edit4.Text:=inttostr(dwprocess);
189. edit6.Text:=IntTohex(getwindowlong(strtoint(hwndedit.text),gwl_style),8)+'-'+
190. inttohex(getwindowlong(strtoint(hwndedit.text),gwl_exstyle),8);
191. getclassname(hwnd(listbox1.items.objects[listbox1.itemindex]),classname,256);
192. cname.Text:=strpas(classname);
193. Wtlen:=GetWindowTextLength(hwnd(listbox1.items.objects[listbox1.itemindex]))+1;
194. windowtxt:=stralloc(wtlen);
195. GetWindowText(hwnd(listbox1.items.objects[listbox1.itemindex]),windowtxt,wtlen);
196. wnden.Checked:= iswindowenabled(hwnd(listbox1.items.objects[listbox1.ItemIndex]));
197. wndv.Checked:= iswindowvisible(hwnd(listbox1.items.objects[listbox1.itemindex]));
198. wndtxt.Text:=strpas(windowtxt);
199. strdispose(windowtxt);
200. getwindowrect(strtoint(hwndedit.text),r);
201. spinedit1.Value:=r.Bottom;
202. spinedit2.Value:=r.Right;
203. spinedit3.Value:=r.Top;
204. spinedit4.Value:=r.Left;
205. nochange:=false;
206. end;
208. procedure TWNDHacker.HWNDIconPaint(Sender: TObject);
209. begin
210. drawicon(HWNDIcon.Canvas.handle,0,0,hico);
211. end;
213. procedure TWNDHacker.FormCreate(Sender: TObject);
214. var i:integer;
215. msgr:tresourcestream;
216. stylesr,showr,gwlr:tresourcestream;
217. begin
218. searchres:=tstringlist.Create;
219. shows:=tstringlist.Create;
220. showr:=tresourcestream.Create(hinstance,'SHOW','TXT');
221. shows.LoadFromStream(showr);
222. showr.Free;
223. gwlr:=tresourcestream.Create(hinstance,'GWL','TXT');
224. gwl:=tstringlist.Create;
225. gwl.LoadFromStream(gwlr);
226. gwlr.Free;
227. childenum:=tlist.Create;
228. combobox3.ItemIndex:=0;
229. hico:=loadicon(0,IDI_APPLICATION);
230. msgr:=tresourcestream.Create(hinstance,'MESSAGES','TXT');
231. msgs:=tstringlist.Create;
232. msgs.LoadFromStream(msgr);
233. msgr.Free;
234. stylesr:=tresourcestream.Create(hinstance,'WINSTYLES','TXT');
235. winstyles:=tstringlist.Create;
236. winstyles.LoadFromStream(stylesr);
237. stylesr.Free;
238. addconsts(combobox2,winstyles);
239. for i:= 0 to msgs.Count-1 do
240. if(msgs.Names[i]<>'') and(strscan(pchar(msgs[i]),'{')=nil) then
241. combobox1.Items.Add(msgs.Names[i]);
242. application.Title:=caption;
243. UpdateList1.Click;
244. end;
246. procedure TWNDHacker.Button1Click(Sender: TObject);
247. begin
248. windows.SetParent(strtoint(hwndedit.text),strtoint(hwndp.text));
249. end;
251. procedure MyWndMsgProc(hw:hwnd;msg:uint;Startms:DWORD;lres:lresult);stdcall;
252. begin
253. wndhacker.Memo1.Lines.Add(IntToHex(hw,0)+' replied within '+inttostr(
254. gettickcount-startms)+'ms, returned '+inttohex(lres,0));
255. end;
257. procedure TWNDHacker.Button2Click(Sender: TObject);
258. var b:boolean;
259. hw:hwnd;
260. res:lresult;
261. begin
262. b:=true;
263. res:=0;
264. memo1.Clear;
265. if not checkbox1.Checked then
266. hw:=strtoint(hwndedit.text)else hw:=hwnd_broadcast;
267. case combobox3.ItemIndex of
268. 0:b:=sendmessagecallback(hw,strtointdef(msgs.values[combobox1.text],
269. registerwindowmessage(pchar(combobox1.text))),strtoint(edit1.text),
270. strtoint(edit2.text),@mywndmsgproc,gettickcount);
271. 1:b:=PostMessage(hw,strtointdef(msgs.values[combobox1.text],
272. registerwindowmessage(pchar(combobox1.text))),strtoint(edit1.text),
273. strtoint(edit2.text));
274. 2:res:=defwindowproc(hw,strtointdef(msgs.values[combobox1.text],
275. registerwindowmessage(pchar(combobox1.text))),strtoint(edit1.text),strtoint(
276. edit2.text));
277. 3:res:=sendmessage(hw,strtointdef(msgs.values[combobox1.text],
278. registerwindowmessage(pchar(combobox1.text))),strtoint(edit1.text),strtoint(
279. edit2.text));
280. end;
281. if not b then
282. messagebox(handle,pchar(syserrormessage(getlasterror)),'Window Hacker',mb_iconerror);
283. if res<>0 then memo1.Text :='Returned with '+inttohex(res,0);
284. end;
286. procedure TWNDHacker.WNDVClick(Sender: TObject);
287. begin
288. if nochange then exit;
289. if wndv.Checked then
290. showwindow(strtoint(hwndedit.text),sw_show)else
291. showwindow(strtoint(hwndedit.Text),sw_hide);
293. end;
295. procedure TWNDHacker.WNDEnClick(Sender: TObject);
296. begin
297. if nochange then exit;
298. enablewindow(strtoint(hwndedit.text),wnden.checked);
300. end;
302. procedure TWNDHacker.Button3Click(Sender: TObject);
303. begin
304. setwindowtext(strtoint(hwndedit.text),pchar(wndtxt.text));
305. end;
307. procedure TWNDHacker.Button4Click(Sender: TObject);
308. var hw:hwnd;
309. x:integer;
310. begin
311. hw:=strtoint(hwndedit.text);
312. if winstyles.Values[combobox2.Text]<>''then
313. x:=Strtoint(winstyles.values[combobox2.text])else
314. x:=strtoint(combobox2.text);
315. if pos('_EX_',Uppercase(combobox2.text))>0 then
316. begin
317. if checkbox2.Checked then
318. setwindowlong(hw,gwl_exstyle,getwindowlong(hw,gwl_exstyle) or x)else
319. setwindowlong(hw,gwl_exstyle,getwindowlong(hw,gwl_exstyle) and(not x));
320. end else begin
321. if checkbox2.Checked then
322. setwindowlong(hw,gwl_exstyle,getwindowlong(hw,gwl_exstyle) or x)else
323. setwindowlong(hw,gwl_exstyle,getwindowlong(hw,gwl_exstyle) and(not x));
324. end;
325. end;
327. procedure TWNDHacker.Label12Click(Sender: TObject);
328. var s:string;
329. I,x:integer;
330. y:longint;
331. begin
332. s:='The window has the following styles set:'+#13#10;
333. for i:=0to combobox2.Items.Count-1 do
334. begin
335. if pos('_EX_',combobox2.Items[i])>0 then
336. x:= gwl_exstyle else x:=gwl_style;
337. y:= strtoint(winstyles.values[ combobox2.items[i]]);
338. if y and GetWindowLong(StrToInt(hwndedit.text),x)=y then
339. s:=s+combobox2.Items[i]+#13#10;
340. end;
341. Messagebox(handle,pchar(s),'Window Hacker',0);
342. end;
344. procedure TWNDHacker.ComboBox2Change(Sender: TObject);
345. var x:integer;
346. begin
347. if strtoint64def(Combobox2.text,-1)>-1 then
348. x:=strtoint(combobox2.text) else
349. if combobox2.Items.IndexOf(combobox2.text)>-1 then
350. x:=strtoint(winstyles.values[combobox2.Text]);
351. if pos('_EX_',Uppercase(combobox2.text))=0 then
352. checkbox2.Checked:=(GetWindowLong(strtoint(hwndedit.Text),gwl_style) and x=x)else
353. checkbox2.Checked:=(GetWindowLong(strtoint(hwndedit.Text),gwl_exstyle) and x=x);
354. end;
356. procedure TWNDHacker.Label2Click(Sender: TObject);
357. var classn:array[0..1024]of char;
358. wtxt:pchar;
359. wtxtlen:integer;
360. begin
361. wtxtlen:=1+getwindowtextlength(strtoint(hwndp.Text));
362. wtxt:=stralloc(wtxtlen);
363. getwindowtext(strtoint(hwndp.text),wtxt,wtxtlen);
364. getclassname(strtoint(hwndp.text),classn,1025);
365. messagebox(handle,PChar('Window Text: '+strpas(wtxt)+#13#10+
366. 'Class Name: '+strpas(classn)),
367. 'Window Hacker',0);
368. strdispose(wtxt);
369. end;
371. procedure TWNDHacker.AboutWindowHacker1Click(Sender: TObject);
372. var hexe:thandle;
373. compiletime:tfiletime;
374. t:tdatetime;
375. st:tsystemtime;
376. begin
377. hexe:=createfile(PChar(application.exename),generic_read,file_share_read or
378. file_share_write,nil,open_existing,file_attribute_normal,0);
379. getfiletime(hexe,nil,nil,@compiletime);
380. closehandle(hexe);
381. filetimetosystemtime(compiletime,st);
382. t:=encodedate(st.wyear,st.wmonth,st.wday)+encodetime(st.whour,st.wminute,st.wsecond,0);
383. messagebox(handle,pchar('Window Hacker v1.0 By Justin Roeder'+#13#10+
384. 'Compiled on: '+DateTimeToStr(t))
385. ,'About Window Hacker',0);
386. end;
388. procedure TWNDHacker.FindDialog1Find(Sender: TObject);
389. var i:integer;
390. q:string;
391. begin
392. allocconsole;
393. findwindow1.enabled:=false;
394. bringwindowtotop(getconsolewindow);
395. finddialog1.CloseDialog;
396. for i:=0 to listbox1.Items.Count-1 do
397. if (pos(uppercase(finddialog1.findtext),uppercase(listbox1.items[i]))>0)or
398. ('$'+inttohex(hwnd(listbox1.items.objects[i]),0)=uppercase(finddialog1.findtext))
399. or ('$'+inttohex(getparent(hwnd(listbox1.items.objects[i])),0)=uppercase(
400. finddialog1.findtext))then
401. searchres.Add(listbox1.items[i]);
402. if searchres.Count=0 then begin
403. writeln('Nothing found, press enter to continue...');
404. readln(q);
405. findwindow1.Enabled:=true;
406. freeconsole;
407. exit;
408. end;
409. for i:=0 to searchres.Count-1 do
410. writeln(i,'.',searchres[i]);
411. write('Enter your choice or hit enter to cancel: ');
412. readln(q);
413. if q<>'' then begin
414. listbox1.ItemIndex:=listbox1.Items.IndexOf(searchres[strtointdef(q,0)]);
415. wndhacker.ListBox1Click(nil);
416. end;
417. findwindow1.Enabled:=true;
418. freeconsole;
419. end;
421. procedure TWNDHacker.FindWindow1Click(Sender: TObject);
422. begin
423. finddialog1.Execute;
424. end;
426. procedure TWNDHacker.MouseFollower1Click(Sender: TObject);
427. begin
428. timer1.Enabled:=not timer1.Enabled;
429. end;
431. procedure TWNDHacker.Timer1Timer(Sender: TObject);
432. var hw:hwnd;
433. mouse:tpoint;
434. desktopdc:hdc;
435. s:String;
436. cn,wtxt:array[0..255]of char;
437. begin
438. getcursorpos(mouse);
439. hw:= windowfrompoint(mouse);
440. if listbox1.Items.IndexOfObject(TObject(hw))>-1 then begin
441. listbox1.ItemIndex:=listbox1.Items.IndexOfObject(tobject(hw));
442. listbox1click(nil);
443. end;
444. desktopdc:=getwindowdc(getdesktopwindow);
445. getclassname(hw,cn,256);
446. GetWindowText(hw,wtxt,256);
447. s:=Format('Classname:%s WindowText:%s Handle:%x Parent:%x',[cn,wtxt,hw,
448. getparent(hw)]);
449. textout(desktopdc,0,0,pchar(s),length(s));
450. releasedc(getdesktopwindow,desktopdc);
451. end;
453. procedure TWNDHacker.ViewAtomTable1Click(Sender: TObject);
454. var a:atom;
455. aname:array[0..255]of char;
456. hf:thandle;
457. sherr,bwrite:dword;
458. l:uint;
459. s:String;
460. cs:tstringlist;
461. begin
462. cs:=tstringlist.Create;
463. hf:=CreateFile('ATOMTABL.CSV',generic_write,0,nil,create_always,
464. file_attribute_normal,0);
465. if hf=INVALID_HANDLE_VALUE then begin
466. messagebox(handle,PChar(syserrormessage(getlasterror)),'Window Hacker(Create)',
467. mb_iconerror);
468. exit;
469. end;
470. s:='';
471. for a:=1 to $FFFF do
472. begin
473. l:= globalgetatomname(a,aname,256);
474. if l>0 then begin
475. cs.Add('0x'+inttohex(a,4));
476. cs.Add(aname);
477. s:=cs.CommaText+#13#10;
478. if not writefile(hf,s[1],length(s),bwrite,nil) then begin
479. messagebox(handle,pchar(syserrormessage(getlasterror)),'Window Hacker(write)',
480. mb_iconerror);
481. exit;
482. end;
483. end;
484. cs.Clear;
485. end;
486. closehandle(hf);
487. cs.Free;
488. sherr:=33;
489. if shellexecute(0,nil,'ATOMTABL.CSV',nil,nil,sw_show)<33 then
490. sherr:=shellexecute(0,nil,'notepad.exe','ATOMTABL.CSV',nil,sw_show);
491. if sherr<33 then messagebox(handle,PChar(syserrormessage(sherr)),
492. 'Window Hacker(shell)',mb_iconerror);
493. end;
495. procedure TWNDHacker.SaveIcon1Click(Sender: TObject);
496. var ico:ticon;
497. begin
498. if not savedialog1.Execute then exit;
499. ico:=ticon.Create;
500. ico.Handle:=hico;
501. ico.SaveToFile(savedialog1.filename);
502. ico.Free;
503. end;
505. procedure TWNDHacker.HWNDIconClick(Sender: TObject);
506. var poin:tpoint;
507. begin
508. getcursorpos(poin);
509. restorewindow1.Enabled:=isiconic(strtoint(hwndedit.text));
510. popupmenu1.Popup(poin.x,poin.y);
511. end;
513. procedure TWNDHacker.RestoreWindow1Click(Sender: TObject);
514. begin
515. showwindow(strtoint(hwndedit.text),sw_show);
516. if not openicon(strtoint(hwndedit.text)) then
517. messagebox(handle,pchar(syserrormessage(getlasterror)),'Window Hacker',
518. mb_iconerror);
520. end;
522. procedure TWNDHacker.LoadIcon1Click(Sender: TObject);
523. var hins:hinst;
524. ind:dword;
525. begin
526. if not opendialog1.Execute then exit;
527. ind:=StrTointdef(inputbox('Icon Index#','Enter Icon Index Number','0'),0);
528. hins:=getclasslong(strtoint(hwndedit.text),GCL_HMODULE);
529. setclasslong(strtoint(hwndedit.text),GCL_HICON,ExtractIcon(hins,pchar(
530. opendialog1.FileName),ind));
531. end;
533. procedure TWNDHacker.ShowWindow1Click(Sender: TObject);
534. var sw:integer;
535. hw:hwnd;
536. s:string;
537. begin
538. hw:=strtoint(hwndedit.text);
539. s:=inputbox('ShowWindow','Enter SW_ Constant','SW_SHOWNA');
540. if pos('SW_',uppercase(s))=1 then
541. sw:=StrToInt(shows.values[s])else
542. sw:=Strtointdef(s,sw_showna);
543. showwindow(hw,sw);
544. end;
546. procedure TWNDHacker.GetWindowLong1Click(Sender: TObject);
547. var ind:integer;
548. hw:hwnd;
549. s:string;
550. begin
551. hw:=strtoint(hwndedit.text);
552. s:=InputBox('GetWindowLong','Enter GWL Constant:','GWL_STYLE');
553. if strscan(pchar(s),'_')=nil then ind:=strtointdef(s,gwl_style) else
554. ind:=strtoint(gwl.values[s]);
555. s:=Format('Index %x equals %x',[ind,GetWindowLong(hw,ind)]);
556. messagebox(handle,PChar(s),'Window Hacker',0);
557. end;
559. procedure TWNDHacker.Button5Click(Sender: TObject);
560. begin
561. setwindowpos(strtoint(hwndedit.text),0,spinedit3.value,spinedit4.value,
562. spinedit2.Value,spinedit1.Value,swp_noactivate or
563. (Byte(checkbox3.checked)*SWP_NOSENDCHANGING));
564. end;
566. procedure TWNDHacker.FindWindowEx1Click(Sender: TObject);
567. begin
568. findwndex.Visible:=true;
569. findwndex.BringToFront;
570. end;
572. end.

unit wndhackUnit1;
{$RESOURCE wndhack32.res}
interface
//Main window unit
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, ExtCtrls,shellapi, ComCtrls, ScktComp, Spin;

type
  TWNDHacker = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    HWNDEdit: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    cname: TEdit;
    WNDEn: TCheckBox;
    WNDV: TCheckBox;
    Label4: TLabel;
    WNDTxt: TMemo;
    MainMenu1: TMainMenu;
    UpdateList1: TMenuItem;
    HWNDIcon: TPaintBox;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Label7: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    CheckBox1: TCheckBox;
    Button3: TButton;
    Label8: TLabel;
    Memo1: TMemo;
    Label9: TLabel;
    Edit3: TEdit;
    Label10: TLabel;
    Edit4: TEdit;
    ListBox1: TListBox;
    Label11: TLabel;
    Edit5: TEdit;
    Label12: TLabel;
    Edit6: TEdit;
    GroupBox2: TGroupBox;
    Label13: TLabel;
    ComboBox2: TComboBox;
    CheckBox2: TCheckBox;
    Button4: TButton;
    Help1: TMenuItem;
    AboutWindowHacker1: TMenuItem;
    HWNDP: TComboBox;
    ComboBox3: TComboBox;
    Label14: TLabel;
    Tools1: TMenuItem;
    FindWindow1: TMenuItem;
    FindDialog1: TFindDialog;
    OpenDialog1: TOpenDialog;
    MouseFollower1: TMenuItem;
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    ViewAtomTable1: TMenuItem;
    PopupMenu1: TPopupMenu;
    SaveIcon1: TMenuItem;
    LoadIcon1: TMenuItem;
    Cancel1: TMenuItem;
    SaveDialog1: TSaveDialog;
    RestoreWindow1: TMenuItem;
    ShowWindow1: TMenuItem;
    GetWindowLong1: TMenuItem;
    Label15: TLabel;
    SpinEdit1: TSpinEdit;
    Label16: TLabel;
    SpinEdit2: TSpinEdit;
    Label17: TLabel;
    SpinEdit3: TSpinEdit;
    SpinEdit4: TSpinEdit;
    Label18: TLabel;
    Button5: TButton;
    CheckBox3: TCheckBox;
    FindWindowEx1: TMenuItem;
    procedure UpdateList1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure HWNDIconPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure WNDVClick(Sender: TObject);
    procedure WNDEnClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure AboutWindowHacker1Click(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure FindWindow1Click(Sender: TObject);
    procedure MouseFollower1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ViewAtomTable1Click(Sender: TObject);
    procedure SaveIcon1Click(Sender: TObject);
    procedure HWNDIconClick(Sender: TObject);
    procedure RestoreWindow1Click(Sender: TObject);
    procedure LoadIcon1Click(Sender: TObject);
    procedure ShowWindow1Click(Sender: TObject);
    procedure GetWindowLong1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FindWindowEx1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
{  THWNDPPacket=record  Reserved for Remote controllu

  op:integer;
  Handle:hwnd;
  classname,windowname:array[0..255]of ansichar;
  msg,startms,cms:dword;
  wparam,lparam:lparam;
  Return:LRESULT;
  end;           }
  function GetConsoleWindow:hwnd;stdcall;external 'kernel32.dll';
var
  WNDHacker: TWNDHacker;
  hico:hicon;
  nochange:boolean;
  searchres,msgs,winstyles,shows,gwl:tstringlist;
  childenum:tlist;
implementation

{$R *.DFM}

uses wndhackunit2;

function EnumHWND(hw:hwnd;lp:lparam):bool;stdcall;
var cname,wtxt:array[0..1024] of char;
pid:dword;
begin
getwindowtext(hw,wtxt,1025);
getclassname(hw,cname,1025);
result:=true;
 GEtWindowThreadProcessId(hw,@pid);
 if pid=getcurrentprocessid then exit;
wndhacker.ListBox1.Items.AddObject(StrPas(CName)+','+strpas(wtxt),TObject(hw));
wndhacker.HWNDP.Items.Add('$'+inttohex(hw,0));
if lp=0 then
enumchildwindows(hw,@enumhwnd,1);
end;

procedure TWNDHacker.UpdateList1Click(Sender: TObject);
begin
listbox1.Items.Clear;
childenum.Clear;
hwndp.Items.Clear;
listbox1.Items.AddObject('HWND_DESKTOP',TObject(getdesktopwindow));
enumwindows(@enumhwnd,0);
end;

procedure AddConsts(combo:tcombobox; slConsts:tstringlist);
var i:integer;
begin
for i:=0 to slConsts.Count-1 do
if StrToInt64Def(slconsts.values[slconsts.names[i]],-1)>-1 then
combo.Items.Add(slConsts.names[i]);
end;

procedure TWNDHacker.ListBox1Click(Sender: TObject);
var classname:array[0..255] of char;
windowtxt:pchar;
wtlen:integer;
r:trect;
dwprocess:dword;
begin
nochange:=true;
HWNDEdit.Text:='$'+IntToHex(HWnd(listbox1.items.objects[listbox1.ItemIndex]),0);
hwndp.Text:='$'+inttohex(getparent(hwnd(listbox1.items.objects[listbox1.ItemIndex])),0);
hico:=GetClassLong(hwnd(ListBox1.items.objects[listbox1.itemindex]),GCL_HICON);
if hico=0 then
hico:=GetClassLong(getparent(hwnd(listbox1.items.objects[listbox1.itemindex])),
gcl_hicon);
if hico=0then hico:=loadicon(0,IDI_APPLICATION);
drawicon(hwndicon.canvas.handle,0,0,hico);
edit5.Text:='$'+inttohex(globalfindatom(classname),4);
edit3.Text:=inttostr(GetWindowThreadProcessID(strtoint(hwndedit.text),
@dwprocess));
edit4.Text:=inttostr(dwprocess);
edit6.Text:=IntTohex(getwindowlong(strtoint(hwndedit.text),gwl_style),8)+'-'+
inttohex(getwindowlong(strtoint(hwndedit.text),gwl_exstyle),8);
getclassname(hwnd(listbox1.items.objects[listbox1.itemindex]),classname,256);
cname.Text:=strpas(classname);
Wtlen:=GetWindowTextLength(hwnd(listbox1.items.objects[listbox1.itemindex]))+1;
windowtxt:=stralloc(wtlen);
GetWindowText(hwnd(listbox1.items.objects[listbox1.itemindex]),windowtxt,wtlen);
wnden.Checked:= iswindowenabled(hwnd(listbox1.items.objects[listbox1.ItemIndex]));
wndv.Checked:= iswindowvisible(hwnd(listbox1.items.objects[listbox1.itemindex]));
wndtxt.Text:=strpas(windowtxt);
strdispose(windowtxt);
getwindowrect(strtoint(hwndedit.text),r);
spinedit1.Value:=r.Bottom;
spinedit2.Value:=r.Right;
spinedit3.Value:=r.Top;
spinedit4.Value:=r.Left;
nochange:=false;
end;

procedure TWNDHacker.HWNDIconPaint(Sender: TObject);
begin
drawicon(HWNDIcon.Canvas.handle,0,0,hico);
end;

procedure TWNDHacker.FormCreate(Sender: TObject);
var i:integer;
msgr:tresourcestream;
stylesr,showr,gwlr:tresourcestream;
begin
searchres:=tstringlist.Create;
shows:=tstringlist.Create;
showr:=tresourcestream.Create(hinstance,'SHOW','TXT');
shows.LoadFromStream(showr);
showr.Free;
gwlr:=tresourcestream.Create(hinstance,'GWL','TXT');
gwl:=tstringlist.Create;
gwl.LoadFromStream(gwlr);
gwlr.Free;
childenum:=tlist.Create;
combobox3.ItemIndex:=0;
hico:=loadicon(0,IDI_APPLICATION);
msgr:=tresourcestream.Create(hinstance,'MESSAGES','TXT');
msgs:=tstringlist.Create;
msgs.LoadFromStream(msgr);
msgr.Free;
stylesr:=tresourcestream.Create(hinstance,'WINSTYLES','TXT');
winstyles:=tstringlist.Create;
winstyles.LoadFromStream(stylesr);
stylesr.Free;
addconsts(combobox2,winstyles);
for i:= 0 to msgs.Count-1 do
if(msgs.Names[i]<>'') and(strscan(pchar(msgs[i]),'{')=nil) then
combobox1.Items.Add(msgs.Names[i]);
application.Title:=caption;
UpdateList1.Click;
end;

procedure TWNDHacker.Button1Click(Sender: TObject);
begin
windows.SetParent(strtoint(hwndedit.text),strtoint(hwndp.text));
end;

procedure MyWndMsgProc(hw:hwnd;msg:uint;Startms:DWORD;lres:lresult);stdcall;
begin
wndhacker.Memo1.Lines.Add(IntToHex(hw,0)+' replied within '+inttostr(
gettickcount-startms)+'ms, returned '+inttohex(lres,0));
end;

procedure TWNDHacker.Button2Click(Sender: TObject);
var b:boolean;
hw:hwnd;
res:lresult;
begin
b:=true;
res:=0;
memo1.Clear;
if not checkbox1.Checked then
hw:=strtoint(hwndedit.text)else hw:=hwnd_broadcast;
case combobox3.ItemIndex of
0:b:=sendmessagecallback(hw,strtointdef(msgs.values[combobox1.text],
registerwindowmessage(pchar(combobox1.text))),strtoint(edit1.text),
strtoint(edit2.text),@mywndmsgproc,gettickcount);
1:b:=PostMessage(hw,strtointdef(msgs.values[combobox1.text],
registerwindowmessage(pchar(combobox1.text))),strtoint(edit1.text),
strtoint(edit2.text));
2:res:=defwindowproc(hw,strtointdef(msgs.values[combobox1.text],
registerwindowmessage(pchar(combobox1.text))),strtoint(edit1.text),strtoint(
edit2.text));
3:res:=sendmessage(hw,strtointdef(msgs.values[combobox1.text],
registerwindowmessage(pchar(combobox1.text))),strtoint(edit1.text),strtoint(
edit2.text));
end;
if not b then
messagebox(handle,pchar(syserrormessage(getlasterror)),'Window Hacker',mb_iconerror);
if res<>0 then memo1.Text :='Returned with '+inttohex(res,0);
end;

procedure TWNDHacker.WNDVClick(Sender: TObject);
begin
if nochange then exit;
if wndv.Checked then
showwindow(strtoint(hwndedit.text),sw_show)else
showwindow(strtoint(hwndedit.Text),sw_hide);

end;

procedure TWNDHacker.WNDEnClick(Sender: TObject);
begin
if nochange then exit;
enablewindow(strtoint(hwndedit.text),wnden.checked);

end;

procedure TWNDHacker.Button3Click(Sender: TObject);
begin
setwindowtext(strtoint(hwndedit.text),pchar(wndtxt.text));
end;

procedure TWNDHacker.Button4Click(Sender: TObject);
var hw:hwnd;
x:integer;
begin
hw:=strtoint(hwndedit.text);
if winstyles.Values[combobox2.Text]<>''then
x:=Strtoint(winstyles.values[combobox2.text])else
x:=strtoint(combobox2.text);
if pos('_EX_',Uppercase(combobox2.text))>0 then
begin
if checkbox2.Checked then
setwindowlong(hw,gwl_exstyle,getwindowlong(hw,gwl_exstyle) or x)else
setwindowlong(hw,gwl_exstyle,getwindowlong(hw,gwl_exstyle) and(not x));
end else begin
if checkbox2.Checked then
setwindowlong(hw,gwl_exstyle,getwindowlong(hw,gwl_exstyle) or x)else
setwindowlong(hw,gwl_exstyle,getwindowlong(hw,gwl_exstyle) and(not x));
end;
end;

procedure TWNDHacker.Label12Click(Sender: TObject);
var s:string;
I,x:integer;
y:longint;
begin
s:='The window has the following styles set:'+#13#10;
for i:=0to combobox2.Items.Count-1 do
begin
if pos('_EX_',combobox2.Items[i])>0 then
x:= gwl_exstyle else x:=gwl_style;
y:= strtoint(winstyles.values[ combobox2.items[i]]);
if y and GetWindowLong(StrToInt(hwndedit.text),x)=y then
s:=s+combobox2.Items[i]+#13#10;
end;
Messagebox(handle,pchar(s),'Window Hacker',0);
end;

procedure TWNDHacker.ComboBox2Change(Sender: TObject);
var x:integer;
begin
if strtoint64def(Combobox2.text,-1)>-1 then
x:=strtoint(combobox2.text) else
if combobox2.Items.IndexOf(combobox2.text)>-1 then
x:=strtoint(winstyles.values[combobox2.Text]);
if pos('_EX_',Uppercase(combobox2.text))=0 then
checkbox2.Checked:=(GetWindowLong(strtoint(hwndedit.Text),gwl_style) and x=x)else
checkbox2.Checked:=(GetWindowLong(strtoint(hwndedit.Text),gwl_exstyle) and x=x);
end;

procedure TWNDHacker.Label2Click(Sender: TObject);
var classn:array[0..1024]of char;
wtxt:pchar;
wtxtlen:integer;
begin
wtxtlen:=1+getwindowtextlength(strtoint(hwndp.Text));
wtxt:=stralloc(wtxtlen);
getwindowtext(strtoint(hwndp.text),wtxt,wtxtlen);
getclassname(strtoint(hwndp.text),classn,1025);
messagebox(handle,PChar('Window Text: '+strpas(wtxt)+#13#10+
                        'Class Name: '+strpas(classn)),
'Window Hacker',0);
strdispose(wtxt);
end;

procedure TWNDHacker.AboutWindowHacker1Click(Sender: TObject);
var hexe:thandle;
compiletime:tfiletime;
t:tdatetime;
st:tsystemtime;
begin
hexe:=createfile(PChar(application.exename),generic_read,file_share_read or
file_share_write,nil,open_existing,file_attribute_normal,0);
getfiletime(hexe,nil,nil,@compiletime);
closehandle(hexe);
filetimetosystemtime(compiletime,st);
t:=encodedate(st.wyear,st.wmonth,st.wday)+encodetime(st.whour,st.wminute,st.wsecond,0);
messagebox(handle,pchar('Window Hacker v1.0 By Justin Roeder'+#13#10+
                        'Compiled on: '+DateTimeToStr(t))
,'About Window Hacker',0);
end;

procedure TWNDHacker.FindDialog1Find(Sender: TObject);
var i:integer;
q:string;
begin
allocconsole;
findwindow1.enabled:=false;
bringwindowtotop(getconsolewindow);
finddialog1.CloseDialog;
for i:=0 to listbox1.Items.Count-1 do
if (pos(uppercase(finddialog1.findtext),uppercase(listbox1.items[i]))>0)or
('$'+inttohex(hwnd(listbox1.items.objects[i]),0)=uppercase(finddialog1.findtext))
or ('$'+inttohex(getparent(hwnd(listbox1.items.objects[i])),0)=uppercase(
finddialog1.findtext))then
searchres.Add(listbox1.items[i]);
if searchres.Count=0 then begin
writeln('Nothing found, press enter to continue...');
readln(q);
findwindow1.Enabled:=true;
freeconsole;
exit;
end;
for i:=0 to searchres.Count-1 do
writeln(i,'.',searchres[i]);
write('Enter your choice or hit enter to cancel: ');
readln(q);
if q<>'' then begin
listbox1.ItemIndex:=listbox1.Items.IndexOf(searchres[strtointdef(q,0)]);
wndhacker.ListBox1Click(nil);
end;
findwindow1.Enabled:=true;
freeconsole;
end;

procedure TWNDHacker.FindWindow1Click(Sender: TObject);
begin
finddialog1.Execute;
end;

procedure TWNDHacker.MouseFollower1Click(Sender: TObject);
begin
timer1.Enabled:=not timer1.Enabled;
end;

procedure TWNDHacker.Timer1Timer(Sender: TObject);
var hw:hwnd;
mouse:tpoint;
desktopdc:hdc;
s:String;
cn,wtxt:array[0..255]of char;
begin
getcursorpos(mouse);
hw:= windowfrompoint(mouse);
if listbox1.Items.IndexOfObject(TObject(hw))>-1 then begin
listbox1.ItemIndex:=listbox1.Items.IndexOfObject(tobject(hw));
listbox1click(nil);
end;
desktopdc:=getwindowdc(getdesktopwindow);
getclassname(hw,cn,256);
GetWindowText(hw,wtxt,256);
s:=Format('Classname:%s WindowText:%s Handle:%x Parent:%x',[cn,wtxt,hw,
getparent(hw)]);
textout(desktopdc,0,0,pchar(s),length(s));
releasedc(getdesktopwindow,desktopdc);
end;

procedure TWNDHacker.ViewAtomTable1Click(Sender: TObject);
var a:atom;
aname:array[0..255]of char;
hf:thandle;
sherr,bwrite:dword;
l:uint;
s:String;
cs:tstringlist;
begin
cs:=tstringlist.Create;
hf:=CreateFile('ATOMTABL.CSV',generic_write,0,nil,create_always,
file_attribute_normal,0);
if hf=INVALID_HANDLE_VALUE then begin
messagebox(handle,PChar(syserrormessage(getlasterror)),'Window Hacker(Create)',
mb_iconerror);
exit;
end;
s:='';
for a:=1 to $FFFF do
begin
l:= globalgetatomname(a,aname,256);
if l>0 then begin
cs.Add('0x'+inttohex(a,4));
cs.Add(aname);
s:=cs.CommaText+#13#10;
if not writefile(hf,s[1],length(s),bwrite,nil) then begin
messagebox(handle,pchar(syserrormessage(getlasterror)),'Window Hacker(write)',
mb_iconerror);
exit;
end;
end;
cs.Clear;
end;
closehandle(hf);
cs.Free;
sherr:=33;
if shellexecute(0,nil,'ATOMTABL.CSV',nil,nil,sw_show)<33 then
sherr:=shellexecute(0,nil,'notepad.exe','ATOMTABL.CSV',nil,sw_show);
if sherr<33 then messagebox(handle,PChar(syserrormessage(sherr)),
'Window Hacker(shell)',mb_iconerror);
end;

procedure TWNDHacker.SaveIcon1Click(Sender: TObject);
var ico:ticon;
begin
if not savedialog1.Execute then exit;
ico:=ticon.Create;
ico.Handle:=hico;
ico.SaveToFile(savedialog1.filename);
ico.Free;
end;

procedure TWNDHacker.HWNDIconClick(Sender: TObject);
var poin:tpoint;
begin
getcursorpos(poin);
restorewindow1.Enabled:=isiconic(strtoint(hwndedit.text));
popupmenu1.Popup(poin.x,poin.y);
end;

procedure TWNDHacker.RestoreWindow1Click(Sender: TObject);
begin
showwindow(strtoint(hwndedit.text),sw_show);
if not openicon(strtoint(hwndedit.text)) then
messagebox(handle,pchar(syserrormessage(getlasterror)),'Window Hacker',
mb_iconerror);

end;

procedure TWNDHacker.LoadIcon1Click(Sender: TObject);
var hins:hinst;
ind:dword;
begin
if not opendialog1.Execute then exit;
ind:=StrTointdef(inputbox('Icon Index#','Enter Icon Index Number','0'),0);
hins:=getclasslong(strtoint(hwndedit.text),GCL_HMODULE);
setclasslong(strtoint(hwndedit.text),GCL_HICON,ExtractIcon(hins,pchar(
opendialog1.FileName),ind));
end;

procedure TWNDHacker.ShowWindow1Click(Sender: TObject);
var sw:integer;
hw:hwnd;
s:string;
begin
hw:=strtoint(hwndedit.text);
s:=inputbox('ShowWindow','Enter SW_ Constant','SW_SHOWNA');
if pos('SW_',uppercase(s))=1 then
sw:=StrToInt(shows.values[s])else
sw:=Strtointdef(s,sw_showna);
showwindow(hw,sw);
end;

procedure TWNDHacker.GetWindowLong1Click(Sender: TObject);
var ind:integer;
hw:hwnd;
s:string;
begin
hw:=strtoint(hwndedit.text);
s:=InputBox('GetWindowLong','Enter GWL Constant:','GWL_STYLE');
if strscan(pchar(s),'_')=nil then ind:=strtointdef(s,gwl_style) else
ind:=strtoint(gwl.values[s]);
s:=Format('Index %x equals %x',[ind,GetWindowLong(hw,ind)]);
messagebox(handle,PChar(s),'Window Hacker',0);
end;

procedure TWNDHacker.Button5Click(Sender: TObject);
begin
setwindowpos(strtoint(hwndedit.text),0,spinedit3.value,spinedit4.value,
spinedit2.Value,spinedit1.Value,swp_noactivate or
(Byte(checkbox3.checked)*SWP_NOSENDCHANGING));
end;

procedure TWNDHacker.FindWindowEx1Click(Sender: TObject);
begin
findwndex.Visible:=true;
findwndex.BringToFront;
end;

end.

1. unit wndhackunit2;
2. //Find Window Unit
3. interface
5. uses
6. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7. StdCtrls;
9. type
10. TFindWNDEx = class(TForm)
11. Label1: TLabel;
12. Edit1: TEdit;
13. Label2: TLabel;
14. Memo1: TMemo;
15. Button1: TButton;
16. Button2: TButton;
17. Label3: TLabel;
18. Edit2: TEdit;
19. Button3: TButton;
20. CheckBox1: TCheckBox;
21. procedure Button1Click(Sender: TObject);
22. procedure Button3Click(Sender: TObject);
23. private
24. { Private declarations }
25. public
26. { Public declarations }
27. end;
29. var
30. FindWNDEx: TFindWNDEx;
31. childaf:hwnd;
32. implementation
34. {$R *.DFM}
36. uses wndhackunit1;
38. procedure TFindWNDEx.Button1Click(Sender: TObject);
39. var hw:hwnd;
40. begin
41. if checkbox1.Checked then childaf:=0;
42. if memo1.Text='' then
43. hw:=findwindowex(strtointdef(edit2.text,0),childaf,pchar(edit1.text),nil)else
44. hw:=findwindowex(strtointdef(edit2.text,0),childaf,pchar(edit1.text),pchar(
45. memo1.text));
46. childaf:=hw;
47. checkbox1.Checked:=false;
48. if hw=0 then exit;
49. if wndhacker.ListBox1.Items.IndexOfObject(tobject(hw))=-1 then
50. wndhacker.UpdateList1.Click;
51. wndhacker.ListBox1.ItemIndex:=wndhacker.ListBox1.Items.IndexOfObject(tobject(hw));
52. wndhacker.ListBox1Click(nil);
53. end;
55. procedure TFindWNDEx.Button3Click(Sender: TObject);
56. begin
57. edit2.text:=wndhacker.HWNDEdit.Text
58. end;
60. end.

unit wndhackunit2;
//Find Window Unit
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TFindWNDEx = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Edit2: TEdit;
    Button3: TButton;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FindWNDEx: TFindWNDEx;
childaf:hwnd;
implementation

{$R *.DFM}

uses wndhackunit1;

procedure TFindWNDEx.Button1Click(Sender: TObject);
var hw:hwnd;
begin
if checkbox1.Checked then childaf:=0;
if memo1.Text='' then
hw:=findwindowex(strtointdef(edit2.text,0),childaf,pchar(edit1.text),nil)else
hw:=findwindowex(strtointdef(edit2.text,0),childaf,pchar(edit1.text),pchar(
memo1.text));
childaf:=hw;
checkbox1.Checked:=false;
if hw=0 then exit;
if wndhacker.ListBox1.Items.IndexOfObject(tobject(hw))=-1 then
wndhacker.UpdateList1.Click;
wndhacker.ListBox1.ItemIndex:=wndhacker.ListBox1.Items.IndexOfObject(tobject(hw));
wndhacker.ListBox1Click(nil);
end;

procedure TFindWNDEx.Button3Click(Sender: TObject);
begin
edit2.text:=wndhacker.HWNDEdit.Text
end;

end.

1. library libwndhack;
2. //API Library for Window Hacker
3. uses
4. SysUtils,windows,messages,
5. Classes;
6. {$RESOURCE wndhackdll.res}
8. type THWNDCommand=record
9. Opcode:byte;
10. etc,ret,found:integer;
11. hwnds:tlist;
12. query:pchar;
13. end;
14. PHWNDCommand=^THWNDCommand;
15. function GetConsoleWindow:HWND;stdcall;external 'kernel32.dll';
16. var lasterr:pchar=nil;
17. def_cmd:thwndcommand;
18. dc:hdc;
20. function WNDGetLastError:pchar;stdcall;
21. begin
22. result:=lasterr;
23. end;
25. function MyWNDEnum(hw:hwnd;var lp:thwndcommand):bool;stdcall;
26. var wtxt,cn:array[0..255]of char;
27. begin
28. getclassname(hw,cn,256);
29. getwindowtext(hw,wtxt,256);
30. result:=true;
31. if (strpos(cn,lp.query)<>nil)or(strpos(wtxt,lp.query)<>nil)then begin
32. lp.found:=lp.found+1;
33. case lp.Opcode of
34. 1:lp.ret:= Integer(ShowWindow(hw,lp.etc));
35. 2:lp.ret:= integer(EnableWindow(hw,(lp.etc=1)));
36. 3:lp.ret:= sendmessage(hw,bm_Click,0,0 );
37. 4:lp.ret:=sendmessage(hw,wm_destroy,0,0);
38. 5:lp.ret:=sendmessage(hw,wm_close,0,0);
39. 6:lp.ret:=setparent(hw,lp.etc);
40. end;
41. lp.hwnds.Add(Pointer(hw));
42. end;
43. if not enumchildwindows(hw,@mywndenum,integer(@lp))then
44. lasterr:='EnumChildWindows failed';
45. end;
47. function ShowHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;nshow:integer):POINTER;stdcall;
48. var cmd:phwndcommand;
49. begin
50. new(cmd);
51. cmd.query:=lpquery;
52. cmd.found:=0;
53. cmd.Opcode:=1;
54. cmd.etc:=nshow;
55. cmd.hwnds:=tlist.Create;
56. if not enumwindows(@mywndenum,Integer(cmd))then
57. if reserved>0 then begin
58. messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
59. exitprocess(0);
60. end else
61. lasterr:='EnumWindows failed';
62. if reserved>0 then exitprocess(cmd.found);
63. result:=cmd;
64. end;
66. function ClickButton(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
67. nshow:integer):POINTER;stdcall;
68. var cmd:phwndcommand;
69. begin
70. new(cmd);
71. cmd.query:=lpquery;
72. cmd.found:=0;
73. cmd.Opcode:=3;
74. cmd.etc:=0;
75. cmd.hwnds:=tlist.Create;
76. if not enumwindows(@mywndenum,Integer(cmd))then
77. if reserved>0 then begin
78. messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
79. exitprocess(0);
80. end else
81. lasterr:='EnumWindows failed';
82. if reserved>0 then exitprocess(cmd.found);
83. result:=cmd;
84. end;
86. function GetFoundWindowCount(var lpHWNDCMD:THWNDCommand):integer;stdcall;
87. begin
88. result:=lphwndcmd.found;
89. end;
91. function GetWNDReturnValue(var lpWND:THWNDCommand):integer;stdcall;
92. begin
93. result:=lpWND.ret;
94. end;
96. function HWNDPop(lpWND:pHWNDCommand):hwnd;stdcall;
97. begin
98. result:=0;
99. try
100. result:=hwnd(lpwnd.hwnds[0]);
101. lpwnd.hwnds.Delete(0);
102. except on e:exception do lasterr:=PChar(e.message);
103. end;
104. end;
106. procedure WNDHackFree(p:phwndcommand);stdcall;
107. begin
108. if p.hwnds<>nil then p.hwnds.Free;
109. dispose(p);
110. end;
112. procedure WNDResetError;stdcall;
113. begin
114. lasterr:=nil;
115. end;
117. function DestroyHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
118. nshow:integer):POINTER;stdcall;
119. var cmd:phwndcommand;
120. begin
121. new(cmd);
122. cmd.query:=lpquery;
123. cmd.found:=0;
124. cmd.Opcode:=4;
125. cmd.hwnds:=tlist.Create;
126. if not enumwindows(@mywndenum,Integer(cmd))then
127. if reserved>0 then begin
128. messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
129. exitprocess(0);
130. end else
131. lasterr:='EnumWindows failed';
132. if reserved>0 then exitprocess(cmd.found);
133. result:=cmd;
134. end;
136. function CloseHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
137. nshow:integer):POINTER;stdcall;
138. var cmd:phwndcommand;
139. begin
140. new(cmd);
141. cmd.query:=lpquery;
142. cmd.found:=0;
143. cmd.Opcode:=5;
144. cmd.hwnds:=tlist.Create;
145. if not enumwindows(@mywndenum,Integer(cmd))then
146. if reserved>0 then begin
147. messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
148. exitprocess(0);
149. end else
150. lasterr:='EnumWindows failed';
151. if reserved>0 then exitprocess(cmd.found);
152. result:=cmd;
153. end;
155. procedure ScreenSaverBox(hwn:hwnd;inst:hinst;lpscrfile:pchar;nshow:integer);stdcall;
156. begin
157. allocconsole;
158. setconsoletitle(lpscrfile);
159. if winexec(pchar(strpas(lpscrfile)+' /P '+inttostr(getconsolewindow)),sw_show)>31
160. then while true do asm NOP end;
161. MessageBox(hwn,'Error opening screensaver','Window Hacker',mb_iconerror);
162. end;
164. function CreateBox(shw:hwnd;resered:dword;lpQuery:PCHAR;nshow:integer):bool;stdcall;
165. var cmd:phwndcommand;
166. hw:hwnd;
167. i:integer;
168. S,q:string;
169. begin
170. result:=allocconsole;
171. setconsoletitle('WNDHackerBox');
172. setclasslong(getconsolewindow,gcl_hicon,loadicon(getmodulehandle('libwndhack.dll'),
173. 'WNDMAN'));
174. writeln('Box for ',lpquery);
175. writeln('Box handle is $',inttohex(getconsolewindow,0));
176. new(cmd);
177. cmd.Opcode:=6;
178. cmd.etc:= Integer(Getconsolewindow);
179. cmd.found:=0;
180. cmd.query:=lpquery;
181. cmd.hwnds:=tlist.Create;
182. enumwindows(@mywndenum,Integer(cmd));
183. writeln(cmd.found,' windows has joined this box');
184. hw:=HWNDPop(cmd);
185. while hw<>0 do begin
186. writeln('Window Handle $',inttohex(hw,0),' has joined this box');hw:=hwndpop(cmd);
187. end;
188. while true do begin
189. write('WNDHack>');
190. readln(s);
191. s:=trim(s);
192. if Uppercase(s)='HELP' then begin
193. writeln('Commands Avaliable:');
194. writeln('ADD searches for a window objects and adds them to this box');
195. writeln('CLOSE Sends WM_CLOSE message to all window objects that are apart of this box');
196. end;
197. if uppercase(s)='ADD' then begin
198. write('WindowName/Classname:');
199. readln(q);
200. cmd.query:=PChar(q);
201. enumwindows(@mywndenum,Integer(cmd));
202. end;
203. if Uppercase(s)='CLOSE' then
204. for i:= 0 to cmd.hwnds.count-1do
205. sendmessage(HWND(CMD.hwnds[i]),wm_close,0,0);
206. end;
207. end;
209. function EnableHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
210. nshow:integer):POINTER;stdcall;
211. var cmd:phwndcommand;
212. begin
213. new(cmd);
214. cmd.query:=lpquery;
215. cmd.found:=0;
216. cmd.Opcode:=2;
217. cmd.etc:=1;
218. cmd.hwnds:=tlist.Create;
219. if not enumwindows(@mywndenum,Integer(cmd))then
220. if reserved>0 then begin
221. messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
222. exitprocess(0);
223. end else
224. lasterr:='EnumWindows failed';
225. if reserved>0 then exitprocess(cmd.found);
226. result:=cmd;
227. end;
229. function DisableHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
230. nshow:integer):POINTER;stdcall;
231. var cmd:phwndcommand;
232. begin
233. new(cmd);
234. cmd.query:=lpquery;
235. cmd.found:=0;
236. cmd.Opcode:=2;
237. cmd.etc:=0;
238. cmd.hwnds:=tlist.Create;
239. if not enumwindows(@mywndenum,Integer(cmd))then
240. if reserved>0 then begin
241. messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
242. exitprocess(0);
243. end else
244. lasterr:='EnumWindows failed';
245. if reserved>0 then exitprocess(cmd.found);
246. result:=cmd;
247. end;
249. function WindowSearch(lpQuery:pchar):phwndcommand;stdcall;
250. begin
251. new(result);
252. result.Opcode:=0;
253. result.hwnds:=tlist.Create;
254. result.found:=0;
255. if not enumwindows(@mywndenum,integer(result)) then
256. lasterr:='EnumWindows failed';
257. end;
259. function ChangeParent(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
260. nshow:integer):POINTER;stdcall;
261. var cmd:phwndcommand;
262. sl:tstringlist;
263. begin
264. sl:=tstringlist.Create;
265. sl.CommaText:=strpas(lpQuery);
266. new(cmd);
267. cmd.query:=PChar(sl[0]);
268. cmd.found:=0;
269. cmd.Opcode:=6;
270. cmd.etc:=strtointdef(sl[1],getdesktopwindow);
271. cmd.hwnds:=tlist.Create;
272. sl.Free;
273. if not enumwindows(@mywndenum,Integer(cmd))then
274. if reserved>0 then begin
275. messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
276. exitprocess(0);
277. end else
278. lasterr:='EnumWindows failed';
279. if reserved>0 then exitprocess(cmd.found);
280. result:=cmd;
281. end;
283. function WNDHackSize(var wnddata:thwndcommand):integer;stdcall;
284. begin
285. result:=sizeof(wnddata);
286. end;
288. procedure QueryFirstWindow(hw:hwnd;inst:hinst;lpQuery:pchar;nShow:integer);stdcall;
289. var cmd:phwndcommand;
290. begin
291. new(cmd);
292. cmd.Opcode:=0;
293. cmd.query:=lpquery;
294. cmd.found:=0;
295. cmd.hwnds:=tlist.Create;
296. enumwindows(@mywndenum,integer(cmd));
297. if cmd.found=0 then exitprocess(0);
298. exitprocess(hwndpop(cmd));
299. end;
301. exports WNDGetLastError,ShowHWND,HWNDPop,WNDHackFree,GetWNDReturnValue,CreateBox,
302. GetFoundWindowCount,WNDResetError,ClickButton,CloseHWND,DestroyHWND,DisableHWND,
303. EnableHWND,WindowSearch,ChangeParent,WNDHackSize,QueryFirstWindow,ScreenSaverBox;
304. begin
305. end.

library libwndhack;
//API Library for Window Hacker
uses
  SysUtils,windows,messages,
  Classes;
{$RESOURCE wndhackdll.res}

type THWNDCommand=record
Opcode:byte;
etc,ret,found:integer;
hwnds:tlist;
query:pchar;
end;
PHWNDCommand=^THWNDCommand;
function GetConsoleWindow:HWND;stdcall;external 'kernel32.dll';
var lasterr:pchar=nil;
def_cmd:thwndcommand;
dc:hdc;

function WNDGetLastError:pchar;stdcall;
begin
result:=lasterr;
end;

function MyWNDEnum(hw:hwnd;var lp:thwndcommand):bool;stdcall;
var wtxt,cn:array[0..255]of char;
begin
getclassname(hw,cn,256);
getwindowtext(hw,wtxt,256);
result:=true;
if (strpos(cn,lp.query)<>nil)or(strpos(wtxt,lp.query)<>nil)then begin
lp.found:=lp.found+1;
case lp.Opcode of
1:lp.ret:= Integer(ShowWindow(hw,lp.etc));
2:lp.ret:= integer(EnableWindow(hw,(lp.etc=1)));
3:lp.ret:= sendmessage(hw,bm_Click,0,0 );
4:lp.ret:=sendmessage(hw,wm_destroy,0,0);
5:lp.ret:=sendmessage(hw,wm_close,0,0);
6:lp.ret:=setparent(hw,lp.etc);
end;
lp.hwnds.Add(Pointer(hw));
end;
if not enumchildwindows(hw,@mywndenum,integer(@lp))then
lasterr:='EnumChildWindows failed';
end;

function ShowHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;nshow:integer):POINTER;stdcall;
var cmd:phwndcommand;
begin
new(cmd);
cmd.query:=lpquery;
cmd.found:=0;
cmd.Opcode:=1;
cmd.etc:=nshow;
cmd.hwnds:=tlist.Create;
if not enumwindows(@mywndenum,Integer(cmd))then
if reserved>0 then begin
messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
exitprocess(0);
end else
lasterr:='EnumWindows failed';
if reserved>0 then exitprocess(cmd.found);
result:=cmd;
end;

function ClickButton(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
nshow:integer):POINTER;stdcall;
var cmd:phwndcommand;
begin
new(cmd);
cmd.query:=lpquery;
cmd.found:=0;
cmd.Opcode:=3;
cmd.etc:=0;
cmd.hwnds:=tlist.Create;
if not enumwindows(@mywndenum,Integer(cmd))then
if reserved>0 then begin
messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
exitprocess(0);
end else
lasterr:='EnumWindows failed';
if reserved>0 then exitprocess(cmd.found);
result:=cmd;
end;

function GetFoundWindowCount(var lpHWNDCMD:THWNDCommand):integer;stdcall;
begin
result:=lphwndcmd.found;
end;

function GetWNDReturnValue(var lpWND:THWNDCommand):integer;stdcall;
begin
result:=lpWND.ret;
end;

function HWNDPop(lpWND:pHWNDCommand):hwnd;stdcall;
begin
result:=0;
try
result:=hwnd(lpwnd.hwnds[0]);
lpwnd.hwnds.Delete(0);
except on e:exception do lasterr:=PChar(e.message);
end;
end;

procedure WNDHackFree(p:phwndcommand);stdcall;
begin
if p.hwnds<>nil then p.hwnds.Free;
dispose(p);
end;

procedure WNDResetError;stdcall;
begin
lasterr:=nil;
end;

function DestroyHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
nshow:integer):POINTER;stdcall;
var cmd:phwndcommand;
begin
new(cmd);
cmd.query:=lpquery;
cmd.found:=0;
cmd.Opcode:=4;
cmd.hwnds:=tlist.Create;
if not enumwindows(@mywndenum,Integer(cmd))then
if reserved>0 then begin
messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
exitprocess(0);
end else
lasterr:='EnumWindows failed';
if reserved>0 then exitprocess(cmd.found);
result:=cmd;
end;

function CloseHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
nshow:integer):POINTER;stdcall;
var cmd:phwndcommand;
begin
new(cmd);
cmd.query:=lpquery;
cmd.found:=0;
cmd.Opcode:=5;
cmd.hwnds:=tlist.Create;
if not enumwindows(@mywndenum,Integer(cmd))then
if reserved>0 then begin
messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
exitprocess(0);
end else
lasterr:='EnumWindows failed';
if reserved>0 then exitprocess(cmd.found);
result:=cmd;
end;

procedure ScreenSaverBox(hwn:hwnd;inst:hinst;lpscrfile:pchar;nshow:integer);stdcall;
begin
allocconsole;
setconsoletitle(lpscrfile);
if winexec(pchar(strpas(lpscrfile)+' /P '+inttostr(getconsolewindow)),sw_show)>31
then while true do asm NOP end;
MessageBox(hwn,'Error opening screensaver','Window Hacker',mb_iconerror);
end;

function CreateBox(shw:hwnd;resered:dword;lpQuery:PCHAR;nshow:integer):bool;stdcall;
var cmd:phwndcommand;
hw:hwnd;
i:integer;
S,q:string;
begin
result:=allocconsole;
setconsoletitle('WNDHackerBox');
setclasslong(getconsolewindow,gcl_hicon,loadicon(getmodulehandle('libwndhack.dll'),
'WNDMAN'));
writeln('Box for ',lpquery);
writeln('Box handle is $',inttohex(getconsolewindow,0));
new(cmd);
cmd.Opcode:=6;
cmd.etc:= Integer(Getconsolewindow);
cmd.found:=0;
cmd.query:=lpquery;
cmd.hwnds:=tlist.Create;
enumwindows(@mywndenum,Integer(cmd));
writeln(cmd.found,' windows has joined this box');
hw:=HWNDPop(cmd);
while hw<>0 do begin
writeln('Window Handle $',inttohex(hw,0),' has joined this box');hw:=hwndpop(cmd);
end;
while true do begin
write('WNDHack>');
readln(s);
s:=trim(s);
if Uppercase(s)='HELP' then begin
writeln('Commands Avaliable:');
writeln('ADD      searches for a window objects and adds them to this box');
writeln('CLOSE    Sends WM_CLOSE message to all window objects that are apart of this box');
end;
if uppercase(s)='ADD' then begin
write('WindowName/Classname:');
readln(q);
cmd.query:=PChar(q);
enumwindows(@mywndenum,Integer(cmd));
end;
if Uppercase(s)='CLOSE' then 
for i:= 0 to cmd.hwnds.count-1do
sendmessage(HWND(CMD.hwnds[i]),wm_close,0,0);
end;
end;

function EnableHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
nshow:integer):POINTER;stdcall;
var cmd:phwndcommand;
begin
new(cmd);
cmd.query:=lpquery;
cmd.found:=0;
cmd.Opcode:=2;
cmd.etc:=1;
cmd.hwnds:=tlist.Create;
if not enumwindows(@mywndenum,Integer(cmd))then
if reserved>0 then begin
messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
exitprocess(0);
end else
lasterr:='EnumWindows failed';
if reserved>0 then exitprocess(cmd.found);
result:=cmd;
end;

function DisableHWND(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
nshow:integer):POINTER;stdcall;
var cmd:phwndcommand;
begin
new(cmd);
cmd.query:=lpquery;
cmd.found:=0;
cmd.Opcode:=2;
cmd.etc:=0;
cmd.hwnds:=tlist.Create;
if not enumwindows(@mywndenum,Integer(cmd))then
if reserved>0 then begin
messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
exitprocess(0);
end else
lasterr:='EnumWindows failed';
if reserved>0 then exitprocess(cmd.found);
result:=cmd;
end;

function WindowSearch(lpQuery:pchar):phwndcommand;stdcall;
begin
new(result);
result.Opcode:=0;
result.hwnds:=tlist.Create;
result.found:=0;
if not enumwindows(@mywndenum,integer(result)) then
lasterr:='EnumWindows failed';
end;

function ChangeParent(hwnderr:hwnd;reserved:dword;lpQuery:pchar;
nshow:integer):POINTER;stdcall;
var cmd:phwndcommand;
sl:tstringlist;
begin
sl:=tstringlist.Create;
sl.CommaText:=strpas(lpQuery);
new(cmd);
cmd.query:=PChar(sl[0]);
cmd.found:=0;
cmd.Opcode:=6;
cmd.etc:=strtointdef(sl[1],getdesktopwindow);
cmd.hwnds:=tlist.Create;
sl.Free;
if not enumwindows(@mywndenum,Integer(cmd))then
if reserved>0 then begin
messagebox(hwnderr,'EnumWindows Failed',nil,mb_iconerror);
exitprocess(0);
end else
lasterr:='EnumWindows failed';
if reserved>0 then exitprocess(cmd.found);
result:=cmd;
end;

function WNDHackSize(var wnddata:thwndcommand):integer;stdcall;
begin
result:=sizeof(wnddata);
end;

procedure QueryFirstWindow(hw:hwnd;inst:hinst;lpQuery:pchar;nShow:integer);stdcall;
var cmd:phwndcommand;
begin
new(cmd);
cmd.Opcode:=0;
cmd.query:=lpquery;
cmd.found:=0;
cmd.hwnds:=tlist.Create;
enumwindows(@mywndenum,integer(cmd));
if cmd.found=0 then exitprocess(0);
exitprocess(hwndpop(cmd));
end;

exports WNDGetLastError,ShowHWND,HWNDPop,WNDHackFree,GetWNDReturnValue,CreateBox,
GetFoundWindowCount,WNDResetError,ClickButton,CloseHWND,DestroyHWND,DisableHWND,
EnableHWND,WindowSearch,ChangeParent,WNDHackSize,QueryFirstWindow,ScreenSaverBox;
begin
end.