22.05.2007, 23:08
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 AHTOLLlKA - могу дасть дать исходник одного чекера. Челал ок номера кредиток. Всё написано на дельфе. Юзается библиотека виндовая, та через которую осел юзает SSL.
Правдо однопоточная система. Но переделать сможешь. Если что, то стучись в АСЮ.
----------
2 Astral_Master
1) Курсоры:
Код:
const
MyConst = 100;
.-.-.-.-.-.
Screen.Cursors[MyConst] := LoadCursor(hInstance,'MYCURSOR');
Screen.Cursor := MyConst;
MYCURSOR - имя курсора в ресурсах.
2) Вот пример работы со шрифтом:
Код:
// При создании фотрмы добавить новый шрифт, что хранится в ресурсах
procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
Res.SavetoFile('MYFONT.ttf');
Res.Free;
AddFontResource(PChar('MYFONT.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;
// Испольхзование
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Font.Name := 'MYFONT';
end;
// Удаление
procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar("MYFONT.ttf"))
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;
|
|
|