以下是 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` 函數(shù)打開(kāi)默認(rèn)電話應(yīng)用程序并撥打給定的電話號(hào)碼,。要更改電話號(hào)碼，請(qǐng)將 `PhoneNumber` 常量替換為您要撥打的實(shí)際號(hào)碼,。

以上代碼由 APP（AI千問(wèn)）給出,，在手機(jī)上不能正確撥打電話,，但以下代碼可以打開(kāi)服務(wù)器端的默認(rèn)瀏覽器并顯示圖片：

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);