Start MediaPortal with hidden Mouse Cursor (1 Viewer)

[NickKnat]

Because I always had Problems with a visible MouseCursor I made a little program that starts Mediaportal with a mousecursor moved out of visible screen.

To make mousecursor visible -> Simple make a mouse movement to screen center.

Souce Code of that little Delphi-Program:


procedure TForm7.Button1Click(Sender: TObject);
var
StartUpInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
Pfadarchiv : string;
begin

PfadArchiv:=IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
PfadArchiv:=PfadArchiv+'MediaPortal.exe';
Win32Check(Windows.setcursorPos(100,100));
FillChar(StartUpInfo,sizeof(StartUpInfo),0);
StartUpInfo.cb:=sizeof(StartUpInfo);
Screen.cursor:=crHourGlass;
if CreateProcess(
nil,
pchar(PfadArchiv),
nil,nil,false,NORMAL_PRIORITY_CLASS,nil,
pchar(ExtractFileDir(PfadArchiv)),
StartUpInfo,ProcessInfo) then
begin
// WaitForSingleObject(ProcessInfo.hProcess,INFINITE);
// CloseHandle(ProcessInfo.hProcess);
Screen.Cursor:=crDefault;
end
else
ShowMessage('Fehler beim Starten MediaPortal!');

Win32Check(Windows.setcursorPos(4000,4000));
self.close;
end;

Download exe from: Start MP without visible Mouse

EXE was checked with Vista Home Premium / VISTA ULTIMATE

Put exe_File in Programs\Team MediaPortal\MediaPortal and start MP with that file


(Use at own risk) -> Have fun


NickKnat

 

[Paranoid Delusion]

Link not working, also does this work for Vista or only XP

 

[NickKnat]

Works with Vista !


Now Link works!

NickKnat