Hacking  
  Luty 18 2018 10:04:47  
 
Nawigacja
folder Portal
. Artykuły
. Download
. Forum
. Szukaj
. FAQ
. Regulamin
folder Hacking
. Gry Hakerskie
. Filmy
folder Delphi
. Kursy
. Faq
. Źródła
. Komponenty
. Artykuły
folderWebmaster
. JavaScripts
. Skrypty PHP
folderRóżne
. Kontakt
. Zlokalizuj ip
Aktualnie online
. Gości online: 4

. Użytkowników online: 0

. Łącznie użytkowników: 154,338
. Najnowszy użytkownik: Essay Online
Ostatnie artykuły
. Metoda ataku symlin...
. Asembler x86 w pigułce
. Binder plików z komp...
. [Asembler/MASM] Pobi...
. Braifuck 4 fun
Nawigacja
Artykuły » Delphi artykuły » kursor animowany i z zasobow
kursor animowany i z zasobow
Witajcie :) dzis bardzo krotki art ale bardzo korzystny
Do naszego programu dodamy animowany kursor
jak to zrobic?
Otoz banalnie prosto
wsytarczy taki kod:

[code]procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursorFromFile('sciezka');
Cursor := crMyCursor;
end;[/code]

banalne :) ale musimy znac sciezke
co zrobic jesli nie znamy sciezki ( np podczas pisania gry )
Wtetdy trzeba skorzystac z zasobow
Czym sa zasoby?
Zasoby umożliwiają nam włączenie do pliku EXE innych plików (obrazki, ikony, kursory, itp.). Taki binder :)

Jak stworzyc zasob?
Najpierw stworz swoj kursor , nastepnie osobny folder. wrzuc tam kursor oraz program "brcc32.exe" domyslnie jest on w "C:Program filesBorlandDelphi7Binbrcc32.exe"

teraz tworzymy plik txt
piszemy w nim np takie cos:
"Naszkursor CURSOR "kursor.ani""
Nazwa typu zasobu to : RT_CURSOR

Zapisujemy plik txt w katalgu z programem brcc32.exe oraz naszym kursorem
Teraz kolejno :
- Otwieramy okno MS-DOS
- wpisujemy sciezke do programu brcc32.exe oraz do naszego kursoru przykladowo moze to byc:
"C:katalogbrcc32.exe C:katalogkursor.ani"
- Program skompiluje nam to do pliku o rozszerzeniu "RES"
- teraz juz potrzebny jest nam tylko zasob :) czyli plik *.res
- wrzuccie jeszcze plik res do folderu z waszym programem w delphi

teraz juz najprostsza rzecz czyli zaladowanie pliku do naszego programu
robimy to w sekcji interface
przyklad:
{$R ppp.RES}
i juz :)
teraz zaladujemy kursor : przykladowy kod:

[code]Screen.Cursors[1] := LoadCursor(hInstance, 'kursor');
Screen.Cursor := 1;[/code]

pozdrawiam Jakisnick17 / Polaczek17
Logowanie
Nazwa użytkownika

Hasło



Nie masz jeszcze konta?
Zarejestruj się

Nie możesz się zalogować?
Poproś o nowe hasło
Shoutbox
Musisz zalogować się, aby móc dodać wiadomość.

18-02-2018 09:19
http://images.goog
le.co.ve/url?q=htt
p://slotswall.ru http://maps.google
.com.vn/url?q=http
://ninjaslots.ru http://eezzoo.net/
__media__/js/netso
ltrademark.php?d=s
lotswall.ru http://www.safethi
tch.net/__

18-02-2018 07:34
http://nemi.pw/?ht
tp://slotsmotion.r
u http://egorlykraio
n.ru/go.php?url=ht
tp://ninjaslots.gq
https://trueproxy.
net/?https://slots
trust.ru http://ads.macdesk
tops.com/openads/a
dclick.php?banneri
d=59&

18-02-2018 05:54
http://www.shankwh
olesalers.com/admi
n/Portal/LinkClick
.aspx?tabid=39&link
=http://trislots.r
u http://paranoid.co
m/__media__/js/net
soltrademark.php?d
=slotshappy.ru http://www.courtne
ythornesmith.com

18-02-2018 04:16
http://143offroad.
com/__media__/js/n
etsoltrademark.php
?d=ninjaslots.ml http://maps.google
.so/url?q=http://s
lotsplus.ru http://www.altener
gy-pro.com/__media
__/js/netsoltradem
ark.php?d=trislots
.ru http:

18-02-2018 00:12
http://www.salonwa
nd.net/__media__/j
s/netsoltrademark.
php?d=insurtopusa.
com http://jobsmain.co
m/__media__/js/net
soltrademark.php?d
=ninjaslots.ru http://cewekmontok
.com/__media__/js/
netsoltrademark.ph
p

Licznik
32,343,286 unikalne wizyty