Skocz do zawartości

KozakPL

Użytkownicy
  • Postów

    312
  • Dołączył

  • Ostatnia wizyta

Treść opublikowana przez KozakPL

  1. KozakPL

    zmiana tapety nie dziala

    Próbowałem ;/ umieszczałem na C i nic ;/
  2. KozakPL

    zmiana tapety nie dziala

    no jak nie char...w końcu to co wysyłał do programu to char...bo to ścieżka...może komenda już nie aktualna i nie działa?
  3. KozakPL

    zmiana tapety nie dziala

    Siema.Napisałem takie cos: GML ... funkcja double Tapeta(char* tapeta) { SystemParametersInfo(SPI_SETDESKWALLPAPER , 0 , tapeta , SPIF_UPDATEINIFILE); } ... i wczytuje do gm tak: GML f6=external_define(dll,"Tapeta",dll_stdcall,ty_real,1,ty_string) i używam tak: GML //create Tapeta="data/Tapeta.bmp" //step if keyboard_check_pressed(ord("T")) { external_call(f6,Tapeta) } Nie ma błędów ani nic...uruchamia się ale nie działa ;/ próbowałem Tapeta="data\\Tapeta.bmp" itp ale nic ;/ Help...
  4. to już se sam napisz... Punkt 4 regulaminu. Warn. Platyna
  5. KozakPL

    Kung Fu

    Możesz dać jakiś tutek jak to zrobić? Bo nie łapie :|
  6. KozakPL

    Kung Fu

    Nie ma?Ja widziałem jak wczytywali w GMie z takich pliczków...ehh ale źródło nie pokazane :| Jak Ktoś wie jak to zrobić to będę wdzięczny :] I Dziex za grafe
  7. KozakPL

    Kung Fu

    ehh :] Pewnie się przyda :] Ale wolałbym kung fu xD I tak apropo to jak się wczytuje >>takie<< spriteye i najlepiej z pliku?
  8. KozakPL

    Kung Fu

    Siema.Może zna ktoś stronę lub może zrobić grafikę od boku do gry kung fu?kopnięcia,skoki,lewo i prawo itp :] będę wdzięczny :]
  9. Ej no żal...czemu wszystko w pliku gry?! Weź zrób jakieś wczytywanie z pliku a nie...kurde to się włącza 5min...żal... E:Włączam i error zmiennej szczegóły...jak coś dać masz to łaskawie bez błędów...bo żal ściągać...
  10. Hmm...kiedy będzie gra? Wspaniała grafika :] Nie mogę się doczekać :]
  11. może plik podeślij...strzeliłeś pewnie jakąś gapę ;]
  12. KozakPL

    Kompilator

    Ehh...ta Delphi jest jakaś dziwna :|
  13. KozakPL

    Kompilator

    Ehh..czyli jak to zrobić?Może ktoś poprawić z 2 funkcje?
  14. KozakPL

    Kompilator

    aha xD Czyli jak to zrobić xD uses w środku funkcji czy na początku dlla? Tak żeby działał
  15. KozakPL

    Kompilator

    Nie rozumiem xD Dziś zacząłem z Delphi xD
  16. KozakPL

    Kompilator

    Ehh...tak żeby nie zakładać nowego tematu: Napisałem kod DLL'ka i praktycznie all jest źle xD library KiM; //--1-- //Wyłączanie Skrótów klawiszy(alt+F4 itp) function WylaczSkrotyKlawiszy():double; stdcall; var wartosc:longbool; begin SystemParametersInfo(97,Word(True),@wartosc,0); end; /*******************************************/ //--2-- //Włączanie Skrótów klawiszy(alt+F4 itp) function WlaczSkrotyKlawiszy():double; stdcall; var wartosc:longbool; begin SystemParametersInfo(97,Word(False),@wartosc,0); end; /*******************************************/ //--3-- //Polozenie Kursora function PolozenieKursora():pchar;stdcall; var Punkt:TPoint; begin Result := GetCursorPos(Punkt); end; /*******************************************/ //--4-- //UstawPolozenieKursora function UstawPolozenieKursora(kx,ky :double):double;stdcall; begin Result := SetCursorPos(kx,ky); end; /*******************************************/ //--5-- //Zamiana Przycisków Myszy function ZamianaPM():double;stdcall; begin SwapMouseButton(True); end; /*******************************************/ //--6-- //Odmiana Przycisków Myszy function OdmianaPM():double;stdcall; begin SwapMouseButton(False); end; /*******************************************/ //--7-- //Ograniczenie Pola Po Którym Może Się Poruszać Mysz function OgraniczenieObszaru(oG,oL,oP,oD :double):double;stdcall; var Obszar:TRect; begin Obszar.Top:=oG; Obszar.Left:=oL; Obszar.Right:=oP; Obszar.Bottom:=oD; ClipCursor(@Obszar); end; /*******************************************/ //--8-- //Zmiana Częstotliwości Migania Kursora function MiganieKursora(czM :double):double;stdcall; begin SetCaretBlinkTime(czM); end; /*******************************************/ //--9-- //Ukryj Kursor Klawiatury function UkryjKK():double;stdcall; begin HideCaret(Handle); end; /*******************************************/ //--10-- //Przywroc Kursor Klawiatury function PrzywrocKK():double;stdcall; begin ShowCaret(Handle); end; /*******************************************/ //--11-- //Chowaj Kursor Myszy function ChowajKM():double;stdcall; begin ShowCursor(False); end; /*******************************************/ //--12-- //Pokaż Kursor Myszy function PokazKM():double;stdcall; begin ShowCursor(True); end; /*******************************************/ //--13-- //Wylacz Klawiature function WylaczKlawiature():double;stdcall; uses ShellApi; begin ShellExecute(Handle,'open','rundll32','keyboard,disable',nil,SW_SHOWNORMAL); end; /*******************************************/ //--14-- //Wylacz Mysz function WylaczMysz():double;stdcall; uses ShellApi; begin ShellExecute(Handle,'open','rundll32','mouse,disable',nil,SW_SHOWNORMAL); end; /*******************************************/ //Exportowanie Funkcji DLL'a exports WylaczSkrotyKlawiszy, WlaczSkrotyKlawiszy, PolozenieKursora, UstawPolozenieKursora,ZamianaPM,OdmianaPM,OgraniczenieObszaru, MiganieKursora,UkryjKK,PrzywrocKK,ChowajKM,PokazKM, WylaczKlawiature,WylaczMysz; //Koniec Programu begin end. Błędy [Error] KiM.dpr(9): Undeclared identifier: 'SystemParametersInfo' [Error] KiM.dpr(17): Undeclared identifier: 'SystemParametersInfo' [Error] KiM.dpr(23): Undeclared identifier: 'TPoint' [Error] KiM.dpr(25): Undeclared identifier: 'GetCursorPos' [Error] KiM.dpr(32): Undeclared identifier: 'SetCursorPos' [Error] KiM.dpr(39): Undeclared identifier: 'SwapMouseButton' [Error] KiM.dpr(46): Undeclared identifier: 'SwapMouseButton' [Error] KiM.dpr(52): Undeclared identifier: 'TRect' [Error] KiM.dpr(54): Missing operator or semicolon [Error] KiM.dpr(55): Missing operator or semicolon [Error] KiM.dpr(56): Missing operator or semicolon [Error] KiM.dpr(57): Missing operator or semicolon [Error] KiM.dpr(58): Undeclared identifier: 'ClipCursor' [Error] KiM.dpr(65): Undeclared identifier: 'SetCaretBlinkTime' [Error] KiM.dpr(72): Undeclared identifier: 'HideCaret' [Error] KiM.dpr(79): Undeclared identifier: 'ShowCaret' [Error] KiM.dpr(86): Undeclared identifier: 'ShowCursor' [Error] KiM.dpr(93): Undeclared identifier: 'ShowCursor' [Error] KiM.dpr(99): Declaration expected but 'USES' found [Error] KiM.dpr(103): Undeclared identifier: 'ShellExecute' [Error] KiM.dpr(103): Undeclared identifier: 'Handle' [Error] KiM.dpr(103): Undeclared identifier: 'SW_SHOWNORMAL' [Error] KiM.dpr(109): Declaration expected but 'USES' found [Error] KiM.dpr(111): Undeclared identifier: 'ShellExecute' [Error] KiM.dpr(111): Undeclared identifier: 'Handle' [Error] KiM.dpr(111): Undeclared identifier: 'SW_SHOWNORMAL' Heh xD Może ktoś wyjaśnić? xD
  17. KozakPL

    Kompilator

    Nie chcę tworzyć gier...DLL i Trojany ;p xD
  18. KozakPL

    Kompilator

    cooo?jaki warez? xD Możesz dać stronę www gdzie zdobędę "serial number" i "Acośtam Key"?
  19. KozakPL

    Kompilator

    ok. Ściągam i mam pytanie: Gdzie i jak mogę zdobyć klucz? Słyszałem że muszę się gdzieś zarejestrować
  20. KozakPL

    Kompilator

    Siema.Czy możecie podać jakiś prosty kompilator kodu delphi? Choć w sumie słyszałem że można używać CodeBocks...Ale jak? Chcę utworzyć DLL
  21. Siema.Nie wiem czy dobry dział.Jak zły to sorki.Jaki język jest lepszy i prostszy?Zmierzam pisać DLLe do GM i Jakieś zwykłe programy(bez GM xD ).I jeśli można to jakiś prosty i przejrzysty kompilator Delphi :]
  22. KozakPL

    Szkieletor

    wstaw jakieś demko gry abyśmy mogli ocenić :]
  23. hehe xD bekowa gierka xD trochę zrypane strzelanie...zrób namierzanie ;p
  24. KozakPL

    Szkieletor

    No wiem...tibia jeb*e...i to jak...a w twoją grę jeszcze nie grałem to nie wiem ;p
×
×
  • Dodaj nową pozycję...