Einzelnen Beitrag anzeigen

Hedge

Registriert seit: 30. Jun 2007
278 Beiträge
 
Delphi 2009 Professional
 
#3

Re: kein Fenster öffnen bei Programmaufruf mit Parameter!

  Alt 20. Jun 2009, 11:17
paramStr musste in eckige runde Klammern gesetzt werden, aber sonst funktioniert es perfekt:

Delphi-Quellcode:
program Test;

uses
  Forms,shellapi,
  MainForm in 'MainForm.pas{Form1};

{$R *.res}

begin
   //Parameter auswerten
   if paramstr(1)<>'then
     ShellExecute(0,
                  'open',
                  PChar('http://www.bing.de'),
                  nil,
                  nil,
                   0)
  else
  begin

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
 end;
end.
٩๏̯͡๏)۶
  Mit Zitat antworten Zitat