Reply to thread

Message

<blockquote data-quote="NickKnat" data-source="post: 311223" data-attributes="member: 83014">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 -&gt; Simple make a mouse movement to screen center.Souce Code of that little Delphi-Program:procedure TForm7.Button1Click(Sender: TObject);var&nbsp;StartUpInfo : TStartupInfo;&nbsp;ProcessInfo : TProcessInformation;&nbsp;Pfadarchiv : string;&nbsp;begin&nbsp; PfadArchiv:=IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));&nbsp; PfadArchiv:=PfadArchiv+'MediaPortal.exe';&nbsp; Win32Check(Windows.setcursorPos(100,100));&nbsp; FillChar(StartUpInfo,sizeof(StartUpInfo),0);&nbsp; StartUpInfo.cb:=sizeof(StartUpInfo);&nbsp; Screen.cursor:=crHourGlass;&nbsp; &nbsp; &nbsp; if CreateProcess(&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; nil,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; pchar(PfadArchiv),&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; nil,nil,false,NORMAL_PRIORITY_CLASS,nil,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; pchar(ExtractFileDir(PfadArchiv)),&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; StartUpInfo,ProcessInfo) then&nbsp; &nbsp; &nbsp; begin//&nbsp; &nbsp; &nbsp; &nbsp; WaitForSingleObject(ProcessInfo.hProcess,INFINITE);//&nbsp; &nbsp; &nbsp; &nbsp; CloseHandle(ProcessInfo.hProcess);&nbsp; &nbsp; &nbsp; &nbsp; Screen.Cursor:=crDefault;&nbsp; &nbsp; &nbsp; end&nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; ShowMessage('Fehler beim Starten MediaPortal!');&nbsp; Win32Check(Windows.setcursorPos(4000,4000));&nbsp; self.close;end;Download exe from: <a href="http://www.medienarchivieren.de/daten/StarteMP_ohneMaus.exe" target="_blank">Start MP without visible Mouse</a>EXE was checked with Vista Home Premium / VISTA ULTIMATEPut exe_File in Programs\Team MediaPortal\MediaPortal and start MP with that file(Use at own risk) -&gt; Have funNickKnat</blockquote>

[QUOTE="NickKnat, post: 311223, member: 83014"] 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: [URL="http://www.medienarchivieren.de/daten/StarteMP_ohneMaus.exe"]Start MP without visible Mouse[/URL] 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 [/QUOTE]

Verification