ANTICHAT — форум по информационной безопасности, OSINT и технологиям

BOOL WINAPI CreateProcess(    
__in_opt     LPCTSTR lpApplicationName,    
__inout_opt  LPTSTR lpCommandLine,   
 __in_opt    LPSECURITY_ATTRIBUTESlpProcessAttributes,    
__in_opt     LPSECURITY_ATTRIBUTES lpThreadAttributes,    
__in         BOOL bInheritHandles,   
 __in         DWORD dwCreationFlags,   
 __in_opt     LPVOID lpEnvironment,   
 __in_opt     LPCTSTR lpCurrentDirectory,    
__in         LPSTARTUPINFO lpStartupInfo,    
__out        LPPROCESS_INFORMATION lpProcessInformation  );

typedef struct _STARTUPINFO {    
DWORD  cb;    
LPTSTR lpReserved;    
LPTSTR lpDesktop;    
LPTSTR lpTitle;    
DWORD  dwX;    
DWORD  dwY;    
DWORD  dwXSize;    
DWORD  dwYSize;    
DWORD  dwXCountChars;    
DWORD  dwYCountChars;    
DWORD  dwFillAttribute;    
DWORD  dwFlags;    
WORD   wShowWindow;    
WORD   cbReserved2;    
LPBYTE lpReserved2;    
HANDLE hStdInput;    
HANDLE hStdOutput;    
HANDLE hStdError;  } 
STARTUPINFO, *LPSTARTUPINFO;

ShowWindow(hWnd,SW_HIDE);

ShowWindow(FindWindow('OpWindow',nil), SW_HIDE);

function OpWnd(Handle:HWND;ShowCmd:integer):bool;stdcall;
var s:ANSIstring;
begin
 SetLength(s,100);
 GetClassNameA(Handle,PANSIChar(s),100);
 SetLength(s, lStrLen(PANSIChar(s)));
 if s='OpWindow' then ShowWindow(Handle,ShowCmd);
 result:=true;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
 EnumWindows(@OpWnd,SW_HIDE);//второй параметр это для функции ShowWindow то есть что мы сделаем с окнами оперы.(покажем SW_Show, скроем SW_HIDE)
end;