Function ExecuteFile(FileName, Params, WorkingDir:string; Wait:boolean):integer;
{©Drkb v.3(2007): <a href="http://www.drkb.ru" title="www.drkb.ru">www.drkb.ru</a>,
 ®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}
var
 buffer: array[0..511] of Char;
 TmpStr: String;
 i: Integer;
 StartupInfo:TStartupInfo;
 ProcessInfo:TProcessInformation;
 ext, key, fname, path:string;
 exitcode:cardinal;
begin
 if WorkingDir<>'' then ChDir(WorkingDir);
 ext:=lowercase(ExtractFileExt(FileName));
 path:=ExtractFilePath(FileName);
 if ext<>'.exe' then
  With TRegistry.create do
  try
  RootKey:=HKEY_CLASSES_ROOT;
  OpenKey(ext, false);
  Key:=ReadString('');
  CloseKey;
  OpenKey(key+'\Shell\open\command', false);
  key:=ReadString('');
  fname:=ExtractFileName(key);
  if pos('/', fname)>0 then fname:=copy(fname,1, pos('/',fname)-1);
  FName:=StringReplace(FName, '%1', '', [rfReplaceAll, rfIgnoreCase]);
  if pos(' ',FileName)>0 then FileName:='"'+Filename+'"';
  TmpStr:=ExtractFilePath(key)+Fname+' '+FileName;
  if Params<>'' then TmpStr := TmpStr + ' ' + Params;
  Closekey;
  finally
  free;
  end
 else
  begin
  TmpStr := FileName;
  TmpStr := TmpStr + ' ' + Params;
  end;
 StrPCopy(buffer,TmpStr);
 FillChar(StartupInfo,Sizeof(StartupInfo),#0);
 StartupInfo.cb := Sizeof(StartupInfo);
 StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
 StartupInfo.wShowWindow := SW_SHOWNORMAL;
 if CreateProcess(nil, buffer, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
  begin
  if Wait then
  begin
  while WaitforSingleObject(ProcessInfo.hProcess,200)=WAIT_TIMEOUT     do application.ProcessMessages;
  GetExitCodeProcess(ProcessInfo.hProcess, exitcode);
  end;
  end
 else
  Result := GetLastError();
end;