Executar codigo

[Hamilcar 1]

será que alguem poderia me ajudar a executar este codigo que peguei no fórum:

unit CloseApp;interfaceuses WinTypes;procedure CloseAppFromInst(HInst: THandle);implementationuses WinProcs, Messages;function EnumWindowsProc(Handle: HWND; Info: Pointer): boolean; export;begin Result := TRUE; { continue enumeration } if GetWindowWord(Handle, GWW_HINSTANCE) = LongInt(Info) then begin PostMessage(Handle, WM_CLOSE, 0, 0); Result := FALSE; end;end;procedure CloseAppFromInst(HInst: THandle);begin EnumWindows(@EnumWindowsProc, LongInt(HInst));end;end.

dá erro que GWW_HINSTANCE não está declarada.

[Rodrigo Miss 1]

Naum tenho certeza mais axo q deve declarar na secao uses:

uses mmsystem

if GetWindowWord(Handle, GWW_HINSTANCE) = LongInt(Info) then begin

mude a linha acima por essa:if GetWindowWord(Handle, HInstance) = LongInt(Info) then begin