qt字符串转变量名（qt字符串转换成double）



VB６

移除窗体，新建一个模块；

代码如下：

Option Explicit

Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" _

    (ByVal hWnd As Long, _

    ByVal lpText As Long, _

    ByVal lpCaption As Long, _

    ByVal wType As Long) As Long

Sub Main()

  MessageBox 0, StrPtr("Hello world!"), StrPtr("Prompt"), 0

End Sub

Delphi

新建一个空的工程，代码如下

program Project2;

uses

  windows;

{$apptype gui}

begin

  messagebox(0,pchar('Hello world!'),pchar('prompt'),0);

end.

VB６　生成ｅｘｅ４１Ｋ，Ｄｅｌｐｈｉ生成ｅｘｅ２７ｋ。

Python

三行代码搞定！😄

from ctypes import *

user32 = windll.user32

user32.MessageBoxA(0, "Hello,World!", "prompt",0)

＋＋＋人生苦短，我用python。＋＋＋

版权声明：

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符，请将相关资料发送至xkadmin@xkablog.com进行投诉反馈，一经查实，立即处理！

转载请注明出处，原文链接：https://www.xkablog.com/bcyy/31241.html