Forum: Sonstige Fragen zu Delphi
Delphi
by Tyrael Y.,
5. Feb 2009
ShellExecute(nil,nil,PChar('c:\myProgram'),1,nil,SW_MAXIMIZE);
procedure TForm1.FormCreate(Sender: TObject);
var MonitorIndex: Integer;
begin
if ParamCount > 1 then
begin
MonitorIndex = StrToIntDef(Params(1), 0);
Forum: Sonstige Fragen zu Delphi
Delphi
by Tyrael Y.,
5. Feb 2009
procedure TForm1.FormCreate(Sender: TObject);
begin
self.left := Screen.monitors.left;
self.top := Screen.monitors.top;
self.Height := Screen.monitors.Height;
self.Width := Screen.monitors.Width;
end;
Das sollte auf dem zweiten Monitor eine Form erzeugen, die den gesamten Monitor einnimmt.