| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Смещение курсора мыши в верхний левый угол [D7, XP]

LoRd1 ©   (2007-05-19 18:05:00) 

Люди подскажите подскажите плиз в такой ситуации:

в инете нашел код с использованием rundll32  решил попробовать - взял один из преведенных примеров кода, создал создал проект, ввел код куда он на мой взгляд должен был стать, добавил в uses ShellApi.

получилось что то типа:

unit Unit1;

interface

uses
 ShellApi, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle,
  Pchar('Open'),Pchar('C:\Windows\Rundll32.exe'),
  Pchar('rundll32 user,setcursorpos'),
  Pchar('C:\Windows'),SW_SHOWNORMAL);
end;

end.

запустил програму, нажал на кнопку и....     ничего не произошло :((((

Где я допустил ошыбку????

---

LoRd1   (2007-05-19 23:08:00) [1]

Спасибооооооо пашет на ура :)

---

X9   (2007-05-19 19:19:00) [2]

P.S. Жалко, что орешник не работает :(
P.P.S. Жалко, что последние сообщения одного автора не объединяются в одно :(

---

X9   (2007-05-19 19:18:00) [3]

Что мешает выполнить SetCursorPos(0, 0) НАПРЯМУЮ в теле программы?

---

X9   (2007-05-19 19:16:00) [4]

Скажите, если бы вам пришлось удалять пациенты гланды, вы бы через какое какое отверстие производили данную операцию? :)

---

Наверх