Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2010, 13:37   #11
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

Цитата:
Неа) Я дельфер
Оно и видно....)
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 29.09.2010, 13:57   #12
Mihanches
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 89
По умолчанию

Но я же не сказал какой я дельфер)
Mihanches вне форума Ответить с цитированием
Старый 29.09.2010, 15:40   #13
yasic
Пользователь
 
Регистрация: 27.09.2010
Сообщений: 44
По умолчанию

Цитата:
Сообщение от Mihanches Посмотреть сообщение
Неа) Я дельфер
куда кинуть исходник? на выше указанное мыло пойдет?
yasic вне форума Ответить с цитированием
Старый 29.09.2010, 15:44   #14
Mihanches
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 89
По умолчанию

Ок
Или в асю: 393534048
Mihanches вне форума Ответить с цитированием
Старый 29.09.2010, 16:02   #15
yasic
Пользователь
 
Регистрация: 27.09.2010
Сообщений: 44
По умолчанию

Цитата:
Сообщение от Mihanches Посмотреть сообщение
Ок
Или в асю: 393534048
Лови..... http://depositfiles.com/files/ccig61wvf
yasic вне форума Ответить с цитированием
Старый 29.09.2010, 16:05   #16
Mihanches
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 89
По умолчанию

Хватаю....

Почти что так как надо. Но только мне нужно, что бы после того как буква вылезла она оставалась на экране, так же как и те, которые после нее будут.

Последний раз редактировалось artemavd; 29.09.2010 в 18:32.
Mihanches вне форума Ответить с цитированием
Старый 29.09.2010, 16:46   #17
ZvEr_HaCkEr
VisualC++/DirectX
Форумчанин
 
Аватар для ZvEr_HaCkEr
 
Регистрация: 16.07.2010
Сообщений: 831
По умолчанию

Код:
public
  procedure Kor(s:string);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm4.Kor(s:string);
var
 c: TCanvas;
begin
  c:=TCanvas.Create;
  c.Brush.Color:=clBlack;
c.Brush.Style:=bsClear;
  c.Font.color:=clgreen;
  c.Font.Size:=14;
  c.Font.name:='Arial';
  c.Handle:=GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
  c.TextOut(random(screen.Width-1), random(screen.Height-1), s);
  c.free;
end;

procedure TForm4.Button1Click(Sender: TObject);
var 
w:integer;
begin
for w:=1 to 100 do
 begin
  Kor('A');
  sleep(20);
 end; 
end;
Вот для развития,думаю доделать этот код и сделать рамдомный вывод текста будет проще некуда.
ZvEr_HaCkEr вне форума Ответить с цитированием
Старый 29.09.2010, 16:46   #18
Somebody
Участник клуба
 
Регистрация: 08.10.2007
Сообщений: 1,185
По умолчанию

WinAPI:
Код:
uses
    Windows, Messages;

const
    wndClassName = 'RandomLetter$';

var
  hWndDc: HDC;
  width, height: Integer;
  hFont: HGDIOBJ;

function WindowProc(hWnd: HWND; msg, wParam, lParam: LongInt): LongInt; stdcall;
var
  c: Char;
begin
    result := 0;
    case msg of
        WM_CREATE:
        begin
            hWndDc := GetDC(hWnd);
            SetBkMode (hWndDc, TRANSPARENT);
            width  := GetSystemMetrics(SM_CXFULLSCREEN);
            hFont := GetStockObject(ANSI_VAR_FONT);
            SelectObject(hWndDc, hFont);
            SetTextColor(hWndDc, $0000ff);
            height := GetSystemMetrics(SM_CYFULLSCREEN);
        end;
        WM_DESTROY:
        begin
            ReleaseDC(hWnd, hWndDc);
            PostQuitMessage(0);
        end;
        WM_TIMER:
        begin
            c := char(byte('A') + Random(26));
            TextOut(hWndDc, Random(width), Random(height), @c, 1);
        end;
        else
            result := DefWindowProc(hWnd, msg, wParam, lParam);
        end;
end;

var
    wndClass: WNDCLASSEX;
    hMainWnd: HWND;
    mess: MSG;

begin
    with wndClass do
    begin
        cbSize := SizeOf(wndClass);
        lpfnWndProc := @WindowProc;
        hInstance := SysInit.hInstance;
        hCursor := LoadCursor(0, IDC_ARROW);
        hbrBackground := GetStockObject(BLACK_BRUSH);
        lpszClassName := wndClassName;
    end;
    RegisterClassEx(wndClass);
    hMainWnd := CreateWindowEx(
        WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_TRANSPARENT or WS_EX_LAYERED,
        wndClassName, 'RandomLetters', WS_VISIBLE or WS_POPUP or WS_MAXIMIZE,
        0, 0, 0, 0, 0, 0, hInstance, nil);
    SetLayeredWindowAttributes(hMainWnd, $000000, 0, LWA_COLORKEY);
    SetTimer(hMainWnd, 1, 50, nil);
    while GetMessage(mess, 0, 0, 0) do
        DispatchMessage(mess);
    halt(mess.wParam);
end.
Somebody вне форума Ответить с цитированием
Старый 29.09.2010, 17:22   #19
Mihanches
Пользователь
 
Регистрация: 14.09.2010
Сообщений: 89
По умолчанию

Верхний код: огромное спасибо! А можно как нить так сделать, что бы в прога висела в процессах?
Mihanches вне форума Ответить с цитированием
Старый 29.09.2010, 17:50   #20
yasic
Пользователь
 
Регистрация: 27.09.2010
Сообщений: 44
По умолчанию

ShowWindow(Form1.Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
yasic вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рандом Syltan JavaScript, Ajax 0 07.05.2010 01:40
рандом в делфи Izlom Помощь студентам 2 30.04.2010 08:45
рандом Arcueid1691 Общие вопросы C/C++ 7 18.06.2009 00:58
рандом benjaminfran Помощь студентам 3 14.02.2008 23:53
Рандом символов Xandr Общие вопросы Delphi 8 25.10.2007 16:50