Kilka pytań

[Gandziorz]

Witam,
Mam kilka pytań.

1) Jak zablokować mysz w systemie XP?
Poniższy kod nie działa:

ShellExecute(Handle, 'open', 'rundll32', 'mouse,disable', nil, SW_SHOWNORMAL);

2) Jak uruchomić/wyłączyć wygaszacz w XP?
Poniższe kody nie działają:

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, Word(True), nil, 0); -wlacz

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, Word(False), nil, 0); -wylacz

3) Lista plików itp.
Jak przesłać listę plików żeby działało jak przy użyciu komponentów:
DriveComboBox, DirectoryListBox, FileListBox.

Za konkretne odpowiedzi dam pomógł.

 

[milosz0010]

Originally posted by Gandziorz
Witam,
Mam kilka pytań.

1) Jak zablokować mysz w systemie XP?
Poniższy kod nie działa:

ShellExecute(Handle, 'open', 'rundll32', 'mouse,disable', nil, SW_SHOWNORMAL);

Zawsze mozna tak :

ShowCursor(true) //wlacz

ShowCursor(false) //wylacz

Ps Mysz bedzie ale nie bedzie jej widac ;]

 

[nitr0]

1)

var

  Obszar: TRect;

begin

  Obszar.Left := 0;

  Obszar.Top := 0;

  Obszar.Right := 150;

  Obszar.Bottom := 150;

  ClipCursor(@Obszar);

end;



a odblokowywujesz tak:



var

  Obszar: TRect;

begin

  Obszar.Left := 0;

  Obszar.Top := 0;

  Obszar.Right := Screen.width;

  Obszar.Bottom := Screen.Height;

  ClipCursor(@Obszar);

end;

lub jak kolega powyzej

2)

uses

  Forms, Windows, Messages;



{$R *.res}



begin

  Application.Initialize;

  Application.Run;

  SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_SCREENSAVE, 0);

end.

pozdro

 

[Gandziorz]

Originally posted by milosz0010
Zawsze mozna tak :

ShowCursor(true) //wlacz

ShowCursor(false) //wylacz

To jest na chowanie kursora a po za tym nie działa pod XP

SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_SCREENSAVE, 0);[/b]

Nie działa pod XP

 

[nitr0]

Originally posted by Gandziorz
Ale też prosiłbym o kodzik bo nie mogłem znaleźć

kodzik czego?;p uzycia ShowCursor?

// EDIT :

poza tym to sposób, który opisałem to chyba to o co ci chodziło

 

[Gandziorz]

Originally posted by h4ck3r15+--><div class='quotetop'>CYTAT(h4ck3r15)</div>

<!--QuoteBegin-Gandziorz

Ale też prosiłbym o kodzik bo nie mogłem znaleźć

kodzik czego?;p uzycia ShowCursor?

// EDIT :

poza tym to sposób, który opisałem to chyba to o co ci chodziło

[/b]

Pisałem w dwóch postach na różnych forach i mi się okienka chyba pomyliły

Nowe pytania ale męcze...
Jaki jest kod na chowanie kursora w xp?
Jak włączyć i wyłączyć wygaszacz pod xp?

 

[nitr0]

Originally posted by Gandziorz+--><div class='quotetop'>CYTAT(Gandziorz)</div>

jaki jest kod na chowanie kursora w xp?[/b]

nie rozumiem cie...
przeciez dopiero co dostales kod na chowanie kursora PP

Originally posted by Gandziorz@
<!--QuoteBegin-milosz0010

Zawsze mozna tak :

ShowCursor(true) //wlacz

ShowCursor(false) //wylacz

To jest na chowanie kursora a po za tym nie działa pod XP

pozdro

 

[Gandziorz]

Tak ale napisałem coś co chyba pominąłeś

To jest na chowanie kursora a po za tym nie działa pod XP[/b]

 

[nitr0]

a ja dodam że działa pod XP

to jest funkcja która chowa kursor ale tylko na formie. nie znam sposobu na ukrycie kursora na pulpicie itp. choc mozesz inaczej uzyc ShowCursor xD w onCreate formy:

begin

Form1.BorderStyle := bsNone;

Form1.Align := alClient;

ShowCursor(false);

end;

domyślam się że kod rozumiesz

pozdro

 

[Gandziorz]

Originally posted by h4ck3r15
a ja dodam że działa pod XP

to jest funkcja która chowa kursor ale tylko na formie. nie znam sposobu na ukrycie kursora na pulpicie itp. choc mozesz inaczej uzyc ShowCursor xD w onCreate formy:

begin

Form1.BorderStyle := bsNone;

Form1.Align := alClient;

ShowCursor(false);

end;

domyślam się że kod rozumiesz

pozdro

Jasne że rozumiem ale do tego to ja sam doszedłem że wyłącza kursor ale tylko na formie a jak schować wogóle?? O to mi chodzi. Masz pomógł za zainteresowanie.

 

[nitr0]

dobra dam ostatnią możliwość

function FunctionDetect (LibName, FuncName: String; var LibPointer: Pointer): boolean;

var LibHandle: tHandle;

begin

  Result := false;

  LibPointer := NIL;

   if LoadLibrary(PChar(LibName)) = 0 then exit;

   LibHandle := GetModuleHandle(PChar(LibName));

   if LibHandle <> 0 then

   begin

    LibPointer := GetProcAddress(LibHandle, PChar(FuncName));

    if LibPointer <> NIL then Result := true;

   end;

end;





procedure TForm1.FormCreate(Sender: TObject);

var xBlockInput : function (Block: BOOL): BOOL; stdcall;

begin

  if FunctionDetect ('USER32.DLL', 'BlockInput', @xBlockInput) then

  begin

   xBlockInput (True);

    end;

end;

zrobiłem CTRL+C i CTRL+V i ten kod blokuje klawiaturę i mysz

na pewno Cie zadowoli xD
no i nie kompiluj tego u siebie chyba ze dodasz
w create Sleep() i odblokowanie

pozdro