Skocz do zawartości

KozakPL

Użytkownicy
 Pokaż profil  Zobacz aktywność

  • Postów

    312

  • Dołączył

  • Ostatnia wizyta

 Typ zawartości 

Odpowiedzi opublikowane przez KozakPL

    zmiana tapety nie dziala

    w C, C++

    Opublikowano

    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...

    Kung Fu

    w Grafika

    Opublikowano

    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

    Kompilator

    w Pascal, Delphi

    Opublikowano

    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

×
×
  • Dodaj nową pozycję...