TR/ATRAPS.Gen Trojan

[virtual]

@Traveler , i know this virus , when delphi is infected by this virus then whenever u compile you will get a virus called Win32.Induc.a or something .

but my problem is caused by delphi compiler it self .

for example if i include this function , i'll get TR/ATRAPS.Gen Trojan

function init(a_hwnd:HWND):boolean;
var Pfd: TPixelFormatDescriptor;
  iFormat: Integer;

begin
 Result := false;
 ZeroMemory(@Pfd, SizeOf(TPixelFormatDescriptor));
 Dc := GetDc(a_hwnd);
 Pfd.nSize := SizeOf( TPixelFormatDescriptor );
 Pfd.nVersion := 1;
 Pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
 Pfd.iPixelType := PFD_TYPE_RGBA;
 Pfd.cColorBits := 32;
 Pfd.cDepthBits := 32;
 Pfd.iLayerType := PFD_MAIN_PLANE;
 iFormat := ChoosePixelFormat(Dc, @Pfd);

 if not SetPixelFormat(Dc, iFormat, @Pfd) then
  begin
   Result:=False;
   Exit;
  end;
 _glContext := wglCreateContext(Dc);
 wglMakeCurrent(Dc, _glContext);

 glClearColor(0.0, 0.0, 0.0, 0.0);
 glShadeModel(GL_SMOOTH);
 glClearDepth(1);
 glEnable(GL_DEPTH_TEST);
 glDepthFunc(GL_LEQUAL);
 glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);


 Result:=True;
end;

but with this one , nothing wil happen

procedure Init();

var
  PixelFormat: GLuint;
  pfd : TPIXELFORMATDESCRIPTOR;
begin

 ZeroMemory(@Pfd, SizeOf(TPixelFormatDescriptor));
	g_hDC := GetDC( g_hWnd );
 Pfd.nSize := SizeOf( TPixelFormatDescriptor );
 Pfd.nVersion := 1;
 Pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
 Pfd.iPixelType := PFD_TYPE_RGBA;
 Pfd.cColorBits := 32;
 Pfd.cDepthBits := 32;
 Pfd.iLayerType := PFD_MAIN_PLANE;

	PixelFormat := ChoosePixelFormat( g_hDC, @pfd );
	SetPixelFormat( g_hDC, PixelFormat, @pfd);
	g_hRC := wglCreateContext( g_hDC );
	wglMakeCurrent( g_hDC, g_hRC );


	glClearColor( 0.0, 0.0, 0.0, 1.0 );
	glEnable( GL_TEXTURE_2D );
	glEnable( GL_DEPTH_TEST );

	glMatrixMode( GL_PROJECTION );
	glLoadIdentity();
	gluPerspective( 45.0, 640.0 / 480.0, 0.1, 100.0);


end;