@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
Code:
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
Code:
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;
Bookmarks