lyx_mirror/development/Win32/packaging/AltInstaller/specials/Launcher/lyxLauncher.dpr
Uwe Stöhr edd14e93f9 installer: better version for the launcher
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@18431 a592a061-630c-0410-9148-cb99ea01b6c8
2007-05-20 14:06:34 +00:00

102 lines
2.4 KiB
ObjectPascal

program lyxLauncher;
// this program opens LyX and hides its console window
// author: Uwe Stöhr
{The problematic is the following:
When the lyx.exe is started, also a console window is shown.
But closing the console window, also closes LyX,
therefore the console will be hidden by this program.}
{$APPTYPE CONSOLE}
uses
Windows, SysUtils, ShellApi, Dialogs;
var Path,FileName : string;
hConsole : THandle;
procedure StartLyX(hConsole: THandle; FileName,Path: string);
// starts LyX
var Params : PChar;
hLyX : THandle;
begin
// if a filename is given, convert it to a PChar; needed for the ShellExecute
if FileName <> '' then
Params:= PChar(FileName)
else
Params:= nil;
// start LyX
hLyX:= ShellExecute(hConsole,PChar('open'),
PChar(Path),Params,nil,SW_SHOWNORMAL);
if hLyX = ERROR_FILE_NOT_FOUND then
begin
MessageDLG('The file'#13#10 + Path + #13#10
+ 'could not be found!',mtError,[mbOK],0);
exit;
end;
if hLyX = SE_ERR_ACCESSDENIED then
begin
MessageDLG('Windows denied access on the file'#13#10 + Path,
mtError,[mbOK],0);
exit;
end;
end; // end procedure
procedure HideWindow(ProgWin: string);
// hides a given program window
var Handle : THandle;
begin
// find handle of the program window
// Repeat until the handle is available
// because Lyx needs some time to start
Repeat
Sleep(1000); // wait 1 second to give LyX time to open
Handle := FindWindow(nil,Pchar(ProgWin));
Until Handle <> 0;
// hide the window from taskbar
ShowWindow(Handle, SW_HIDE);
end; //end procedure
begin //begin program
//Read path to this application
Path:= ParamStr(0);
//get handle of this console window
// This application is called by the lyx.bat with the name "LyX"
hConsole := FindWindow(nil,Pchar('LyX'));
// hide the window of this console application
ShowWindow(hConsole,SW_HIDE);
// do the same for the real name of this console application
// because it depends on the computer speed if the "LyX" console window
// was closed before it could be processed
hConsole := FindWindow(nil,Pchar(Path));
ShowWindow(hConsole,SW_HIDE);
// replace in the path "lyxLauncher.exe" by "lyx.exe"
Path:= StringReplace(Path, 'lyxLauncher', 'lyx', [rfIgnoreCase]);
// read given filename of a LyX-document
FileName:= ParamStr(1);
// start LyX
StartLyX(hConsole,FileName,Path);
// hide console window of lyx.exe
HideWindow(Path);
end. //end program