Registriert seit: 30. Jun 2007
278 Beiträge
Delphi 2009 Professional
|
Re: kein Fenster öffnen bei Programmaufruf mit Parameter!
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.
٩๏̯͡๏)۶
|
|
Zitat
|