Ссылка на статью восстановления доверительных отношений в домене:
http://windowsnotes.ru/activedirectory/vosstanavlivaem-doverie-v-domene/
http://windowsnotes.ru/activedirectory/vosstanavlivaem-doverie-v-domene/
program sdl_p2; {$mode objfpc}{$H+} uses sdl, sdl_ttf; var screen :pSDL_SURFACE; fontface:pSDL_SURFACE; loaded_font: pointer; colour_font, colour_font2:pSDL_COLOR; i:BYTE; loopstop: boolean = FALSE; event: pSDL_EVENT; begin SDL_Init(SDL_INIT_VIDEO); screen := SDL_SetVideoMode(640, 480, 32, SDL_SWSURFACE); if screen = NIL then Halt; if Ttf_Init = -1 then Halt; loaded_font := TTF_OPENFONT('cour.ttf', 60); new(colour_font); new(colour_font2); colour_font^.r:=255; colour_font^.g:=0; colour_font^.b:=0; colour_font2^.r:=0; colour_font2^.g:=255; colour_font2^.b:=255; fontface:=TTF_RENDERTEXT_SHADED(loaded_font,
'Hello World!', colour_font^, colour_font2^); new(event); while loopstop = FALSE do begin if SDL_PollEvent(event) = 1 then begin case event^.type_ of SDL_KEYDOWN: begin if event^.key.keysym.sym = 27
then loopstop := TRUE; end; SDL_QUITEV: begin loopstop := TRUE; end; end; end; SDL_BLITSURFACE(fontface, NIL, screen, NIL); SDL_FLIP(screen); end; Dispose(colour_font); Dispose(colour_font2); Dispose(event); SDL_FreeSurface(screen); SDL_FreeSurface(fontface); TTF_CloseFont(loaded_font); TTF_QUIT; SDL_QUIT; end.
program sdl_p1; {$mode objfpc}{$H+} uses sdl; var screen :pSDL_SURFACE; loopstop: boolean = FALSE; event: pSDL_EVENT; begin SDL_Init(SDL_INIT_VIDEO); screen := SDL_SetVideoMode(640, 480, 32, SDL_SWSURFACE); new(event); while loopstop = FALSE do begin if SDL_PollEvent(event) = 1 then begin case event^.type_ of SDL_KEYDOWN: begin if event^.key.keysym.sym = 27
then loopstop := TRUE; end; SDL_QUITEV: begin loopstop := TRUE; end; end; end; end; Dispose(event); SDL_FreeSurface(screen); SDL_QUIT; end.