以下是 Delphi Unigui 撥打電話的代碼示例：

```Delphi

uses

  Winapi.ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);

const

  PhoneNumber = '123-456-7890';

begin

  ShellExecute(Handle, 'open', PChar('tel://' + PhoneNumber), nil, nil, SW_SHOWNORMAL);

end;

```

在上面的代碼中，我們使用 `ShellExecute` 函數打開默認電話應用程序并撥打給定的電話號碼。要更改電話號碼，請將 `PhoneNumber` 常量替換為您要撥打的實際號碼。

以上代碼由 APP（AI千問）給出，在手機上不能正確撥打電話，但以下代碼可以打開服務器端的默認瀏覽器并顯示圖片：

ShellExecute(Handle, 'open', PChar('https://drfiles./down/1041485/MyWeb/Moring.jpg'), nil, nil, SW_SHOWNORMAL);

ShellExecute(Handle, 'open', PChar('notepad.exe'), 'c:\abc.txt', nil, SW_SHOWNORMAL);