Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Button im IE mit Parameter (https://www.delphipraxis.net/86064-button-im-ie-mit-parameter.html)

kingflo 8. Feb 2007 14:51


Button im IE mit Parameter
 
Hallo... ich hab nen Problem, und zwar erstelle ich in der Registry einen Eintrag unter Software -> Microsoft -> Extensions und zwar für einen Button im Internet explorer (also so:)

Delphi-Quellcode:
procedure TLoginForm.CreateExplorerButton(Path: string);
const
  Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
  Reg: TRegistry;
  Path1: string;
  Merge: string;
begin
  Path := extractfilepath(application.ExeName);
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      Path1 := 'Software\Microsoft\Internet Explorer\Extensions';
      Merge := Path1 + Tagit;
      OpenKey(Merge, True);
      WriteString('ButtonText', 'Stryyke RichClient');
      WriteString('MenuText', 'Stryyke RichClient');
      WriteString('ToolTip', 'Stryyke RichClient');
      WriteString('MenuStatusBar', 'Stryyke RichClient wird geladen');
      WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
      WriteString('Default Visible', 'Yes');
      WriteString('Exec', Path + ''+extractfilename(application.exename));
      WriteString('HotIcon', Path + 'RichClient_Icon.ico');
      WriteString('Icon', Path + 'RichClient_Icon.ico');
    end

  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;
Jetzt wollte ich mal fragen, ob von euch zufällig jemand weiß, ob es einen Key für Parameter gibt? denn ich wollte eigentlich "bet" als Parameter übergeben, bekomme es aber nicht hin und mit
Delphi-Quellcode:
 WriteString('Exec', Path + ''+extractfilename(application.exename)+' bet');
geht es nicht, wenn man dann den Button im IE klickt bekommt man die Meldung, dass die Anwendung "C:\Pfad\Prog.exe bet" nicht gefunden wurde.

Weiß zufällig jemand ob es einen eintrag für den Parameter gibt?

freak4fun 8. Feb 2007 15:05

Re: Button im IE mit Parameter
 
Delphi-Quellcode:
WriteString('Exec', Path + ''+extractfilename(application.exename)+' -bet');
Werden Parameter nicht mit "-" übergeben?

MfG
freak

kingflo 8. Feb 2007 16:09

Re: Button im IE mit Parameter
 
Das hatte ich vorher versucht, bringt aber auch nichts und bei MS http://msdn.microsoft.com/workshop/b...als/button.asp steht auch nichts dazu


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:27 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz