Delphi 使用 ShellExecute 顯示 GoogleMaps

放入二個 TEdit 更名為 EdtLatitude EdtLongitude，再放入一個 TButton
在 Button1 Click 事件中加入

uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  url: string;
begin
  url := 'http://maps.google.com/maps?ll=' +
    EdtLatitude.Text + ',' +
    EdtLongitude.Text;
  ShellExecute(Handle, nil, PAnsiChar(url), nil, nil, SW_SHOWNORMAL);
end;

執行程式後，輸入 Latitude 及 Longitude 按 Button1 後就可顯示 Google 的地圖了