Смещение курсора мыши в верхний левый угол

← →
LoRd1 © (2007-05-19 18:05) [0]

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

в инете нашел код с использованием 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.

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

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

← →
X9 © (2007-05-19 19:16) [1]

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

← →
X9 © (2007-05-19 19:18) [2]

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

← →
X9 © (2007-05-19 19:19) [3]

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

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

Смещение курсора мыши в верхний левый угол Найти похожие ветки