uses ShellApi; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(0, nil, 'C:WINDOWSSTART MENUDELPHIDelphi3.lnk', nil, nil, SW_SHOWNORMAL); end;
ShellApi; procedure
TForm1.Button1Click(Sender: TObject); begin
ShellExecute(0, nil
, 'C:WINDOWSSTART MENUDELPHIDelphi3.lnk', nil
, nil
, SW_SHOWNORMAL); end
;