DragonBTV's CarPC Plugins, Master Thread. - Page 6

0l33l · 11-12-2004, 01:10 AM

Quote: Originally Posted by dragonBTV

by what code? please show me

I know findwindow, what is next in delphi?

Code:

if UPPERCASE(title) = 'IGUIDANCE' then begin
 h := GetHandleFromWindowTitle(title);
 if h = 0 then begin
 h := FindWindowEx(FindWindowEx(FindWindow('ThunderRT6FormDC', ''), 0,
  'ThunderRT6PictureBoxDC', ''), 0, 'IntellinavWCls', 'iGuidance');
  BringFormToFront(FindWindow('ThunderRT6FormDC', ''));
  sleep(100);
 end;
 if h <> 0 then begin
 BringFormToFront(h);
 ForceForegroundWindow(h);
 end;
end;
function BringFormToFront(Handle: THandle): Boolean;
const
  SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;
  SPI_SETFOREGROUNDLOCKTIMEOUT = $2001;
var
  FTID:    DWord;  // Foreground Thread ID
  TTID:    DWord;  // This Thread ID
  Timeout: DWord;
begin
  if IsIconic(Handle) then ShowWindow(Handle, SW_RESTORE);

  if GetForegroundWindow() = Handle then
  begin
    // It is not necessary to continue
    Result := True;
    Exit;
  end;

  // Windows 98/2000 does not want to foreground a window when some other
  // windows have keyboard focus.
  if ((Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion > 4)) or
     ((Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and
     ((Win32MajorVersion > 4) or ((Win32MajorVersion = 4) and
     (Win32MinorVersion > 0)))) then
  begin
    Result := False;
    FTID   := GetWindowThreadProcessID(GetForegroundWindow(), nil);
    TTID   := GetWindowThreadProcessID(Handle, nil);
    if AttachThreadInput(TTID, FTID, True) then
    begin
      BringWindowToTop(Handle);  // IE 5.5 related hack
      SetForegroundWindow(Handle);
      //setactivewindow(Handle);
      AttachThreadInput(TTID, FTID, False);
      Result := (GetForegroundWindow() = Handle);
    end;

    if not Result then
    begin
      SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @Timeout, 0);
      SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0), SPIF_SENDCHANGE);
      BringWindowToTop(Handle);  // IE 5.5 related hack
      SetForegroundWindow(Handle);
      //setactivewindow(Handle);
      SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(Timeout), SPIF_SENDCHANGE);
    end;
  end
  else
  begin
    BringWindowToTop(Handle);  // IE 5.5 related hack
    SetForegroundWindow(Handle);
  end;

  Result := (GetForegroundWindow() = Handle);
end;
procedure ForceForegroundWindow(hwnd: THandle);
var
  hlp: TForm;
begin
  hlp := TForm.Create(nil);
  try
    hlp.BorderStyle := bsNone;
    hlp.SetBounds(0, 0, 1, 1);
    hlp.FormStyle := fsStayOnTop;
    hlp.Show;
    mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
    SetForegroundWindow(hwnd);
  finally
    hlp.Free;
  end;
end;

My code for getting the embedded or nonembedded iGuidance or Routis. Modify it to find the Frodo window and that's it.

dragonBTV · 11-12-2004, 01:22 AM

ok, get a try soon, thanks!

hope delphi6 workable

thinking of delphi7 because of its media component

dragonBTV · 11-12-2004, 01:41 AM

Quote: Originally Posted by tCoy

plug in request..... MEMOS!!!! Something where you can record a memo, it adds that memo into database....it would be a memo like....."10:00 AM Dentist Appointment, 3:00 PM meeting with client, pick up eggs, bread, and milk from grocery store." You can add these memos using a mic. Then on that date that the memo is due.... when the program runs it looks through database of recorded memos and plays back the one for that date.

MS's today

0l33l · 11-12-2004, 06:16 PM

Quote: Originally Posted by dragonBTV

ok, get a try soon, thanks!

hope delphi6 workable

thinking of delphi7 because of its media component

All my software is in D7

Hope you get it working. Finding the Frodo window isn't hard, you just have to gets its Class and use the Findwindow function.

dragonBTV · 11-14-2004, 07:44 PM

skin of NEW plugin---------------------time and calender

dragonBTV · 11-15-2004, 03:30 AM

please download the fonts needed for CLOCKplugin at the first page.

asci01 · 11-23-2004, 09:51 PM

DragonBTV

Could you add a "Mini mode" for the FM plugin with some essential radio controls like vol up & down, mute, station up & down and possibly display the station name and/or frequency. This way we could listen to the radio while using the GPS. I think this will complete this great plugin !