精华内容
下载资源
问答
  • 程序类似于各大电视台的节目中的幸运观众抽奖,闲来无事的小程序,幸运观众的产生一般通过发送手机短信的方式把手机号码到节目组的数据库中,然后随机抽龋简单的实现过程:  一、建立存储手机号码的数据库  ...
  • Delphi 的 FireMonkey 框架,可以写手机 APP,Android 和 iOS 都支持。 FireMonkey 框架还提供了一个函数:LoadLangFromStrings,加载对应的语言内容,程序界面上的元素会自动显示加载的语言里的文字。比如 ...

    用 Delphi 的 FireMonkey 框架,可以写手机 APP,Android 和 iOS 都支持。

    FireMonkey 框架还提供了一个函数:LoadLangFromStrings,加载对应的语言内容,程序界面上的元素会自动显示加载的语言里的文字。比如 TLabel.Text 就会自动变化。这里,TLabel 有一个属性:AutoTranslate,默认是 True,设计期可以在属性编辑器里修改,就是干这个的。


    那么,程序要加载相应的语言数据,程序如何知道当前系统的语言设置呢?这里有段代码,来自:https://forums.embarcadero.com/thread.jspa?threadID=108333

    uses FMX.Platform{$IFDEF MSWINDOWS},WinAPi.Windows{$ENDIF};
    
    {$R *.fmx}
    
    //以下这个函数,获取当前操作系统的语言设置。比如 Windows 底下,语言为中文,返回 Zh
    //这个函数支持各种操作系统。
    function GetOSLangID: String;
    {$IFDEF MACOS}
    var
      Languages: NSArray;
    begin
      Languages := TNSLocale.OCClass.preferredLanguages;
      Result := TNSString.Wrap(Languages.objectAtIndex(0)).UTF8String;
    {$ENDIF}
    {$IFDEF ANDROID}
    var
      LocServ: IFMXLocaleService;
    begin
      if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocServ)) then
        Result := LocServ.GetCurrentLangID;
    {$ENDIF}
    {$IFDEF MSWINDOWS}
    var
      buffer: MarshaledString;
      UserLCID: LCID;
      BufLen: Integer;
    begin
      // defaults
      UserLCID := GetUserDefaultLCID;
      BufLen := GetLocaleInfo(UserLCID, LOCALE_SISO639LANGNAME, nil, 0);
      buffer := StrAlloc(BufLen);
      if GetLocaleInfo(UserLCID, LOCALE_SISO639LANGNAME, buffer, BufLen) <> 0 then
        Result := buffer
      else
        Result := 'en';
      StrDispose(buffer);
    {$ENDIF}
    end;

    上述代码,测试通过。
    展开全文
  • 自己的APP如何禁掉安卓锁屏

    千次阅读 2018-03-12 18:44:38
    如何在我的程序中禁止掉这个?经过搜索,安卓下有办法了。请见:安卓下如何用 WakeLock上述 StackOverflow 问题解答里面,给出了一个单元:Android.JNI.PowerManager.pas,我搜了一下 Delphi 提供的源代码,一堆 ...

    我要写一个 APP 是播放视频的。播放视频的时候,手机过一会自动锁屏。这个是手机本身的设置。如何在我的程序中禁止掉这个?

    经过搜索,安卓下有办法了。请见:安卓下如何用 WakeLock

    上述 StackOverflow 问题解答里面,给出了一个单元:Android.JNI.PowerManager.pas,我搜了一下 Delphi 提供的源代码,一堆 Android.JNI.xx 但没有这个文件。

    我自己写了个测试程序,把这个单元放进去,然后在程序里增加一个按钮,代码:

    procedure TForm2.Button1Click(Sender: TObject);
    begin
      if AcquireWakeLock then ShowMessage('True');
    end;

    编译发布到手机,点按钮,出异常。提示是权限问题。在 Delphi IDE 里面,打开工程的 Option 找到左边的 User Permissions 一栏,在右边找到 Wake lock 一项,改设置为 True。重新编译。

    在手机里点这个按钮,显示 True,正常了。观察手机,确实不会自动熄屏,锁屏了。搞定!

    展开全文
  • Delphi编程100例

    2009-09-22 08:59:12
    基于WAP的手机无线应用 建立基本Web数据库服务器应用 建立类型库编辑DataSnap服务端 建立查询条件Web数据库服务器应用 建立基本MTS服务端 建立MTS数据访问客户端 建立IntraWeb数据浏览 将程序图标设置到Windows系统...
  • Delphi7编程100例

    2004-09-02 11:32:44
    ToolBar工具栏控件的使用 ... Delphi中的ini文件的读写 建立键盘鼠标动作记录与回放 实现指定目录下的文件查询 实现对系统的操作监视 系统级热键的实现 检测NumLock、Insert、CapsLock、ScrollLock键的状态
  • Delphi7 编程 100 实例

    2007-09-18 00:34:51
    ToolBar工具栏控件的使用 动态建立主菜单选项 窗口界面的动态分隔条...如何动态建立SQLServer ODBC SQL浏览器 在SQL查询中使用动态参数 事务工作原理 标准/模糊查询 筛选数据 数据字典查看器...
  • delphi7编程百例

    2007-05-10 16:07:36
    ToolBar工具栏控件的使用 动态建立主菜单选项 窗口界面的动态...如何动态建立SQLServer ODBC SQL浏览器 在SQL查询中使用动态参数 事务工作原理 标准/模糊查询 筛选数据 数据字典...
  • ToolBar工具栏控件的使用动态建立主菜单选项窗口界面的动态分隔条动态设置...如何动态建立SQLServer ODBCSQL浏览器在SQL查询中使用动态参数事务工作原理标准/模糊查询筛选数据数据字典查看器TDecisionGraph决策组件的...
  • 这篇文章主要介绍一下C#下如何调用Windows API函数,这里也想说一下,Windows Mobile编程不能把眼光只局限于手机手机与PC端相结合的程序也是很有挑战力、很有市场的。所以,这也是我这篇文章的原因之一。 做...
    这篇文章不是Windows Mobile的,而是Win32的。这篇文章主要介绍一下C#下如何调用Windows API函数,这里也想说一下,Windows Mobile编程不能把眼光只局限于手机,手机与PC端相结合的程序也是很有挑战力、很有市场的。所以,这也是我写这篇文章的原因之一。

            做Delphi的时候,实现窗体透明很简单,因为Delphi对Windows API的封装很好。不只对API函数封装的到位,对API函数所用到的参数封装的也很好。而.net没有对API函数进行封装,对API函数的参数就更没有封装了。调用API函数只能用Invoke的方式,参数也需要我们自己进行相关定义。

    DesktopWinAPI.cs类文件,Invoke了窗体透明所需要的API函数:

    using System;
    using System.Collections.Generic;
    using System.Text;
    using System.Runtime.InteropServices;

    namespace DeviceAnywhereDesktop
    {
        class DesktopWinAPI
        {
            [DllImport("user32.dll")]
            public extern static IntPtr GetDesktopWindow();

            [DllImport("user32.dll")]
            public extern static bool SetLayeredWindowAttributes(IntPtr hwnd, uint crKey, byte bAlpha, uint dwFlags);
            public static uint  LWA_COLORKEY = 0x00000001;
            public static uint LWA_ALPHA = 0x00000002;

            [DllImport("user32.dll")]
            public extern static uint SetWindowLong(IntPtr hwnd, int nIndex, uint dwNewLong);
            [DllImport("user32.dll")]
            public extern static uint GetWindowLong(IntPtr hwnd, int nIndex);

            public enum WindowStyle : int
            {
                GWL_EXSTYLE = -20
            }

            public enum ExWindowStyle : uint
            {
                WS_EX_LAYERED = 0x00080000
            }

        }
    }

    DeviceForm.cs单元是API函数的调用方式:

    using System;
    using System.Collections.Generic;
    using System.ComponentModel;
    using System.Data;
    using System.Drawing;
    using System.Text;
    using System.Windows.Forms;

    namespace DeviceAnywhereDesktop
    {
        public partial class DeviceForm : Form
        {
            public DeviceForm()
            {
                InitializeComponent();
            }

            protected override CreateParams CreateParams
            {
                get
                {
                    CreateParams cp = base.CreateParams;

                    cp.Parent = DesktopWinAPI.GetDesktopWindow();
                    cp.ExStyle = 0x00000080 | 0x00000008;//WS_EX_TOOLWINDOW | WS_EX_TOPMOST

                    return cp;
                }
            }

            private void SetWindowTransparent(byte bAlpha)
            {
                try
                {
                    DesktopWinAPI.SetWindowLong(this.Handle, (int)DesktopWinAPI.WindowStyle.GWL_EXSTYLE,
                        DesktopWinAPI.GetWindowLong(this.Handle, (int)DesktopWinAPI.WindowStyle.GWL_EXSTYLE) | (uint)DesktopWinAPI.ExWindowStyle.WS_EX_LAYERED);

                    DesktopWinAPI.SetLayeredWindowAttributes(this.Handle, 0, bAlpha, DesktopWinAPI.LWA_COLORKEY | DesktopWinAPI.LWA_ALPHA);
                }
                catch
                {
                }
            }
           

            private void DeviceForm_Load(object sender, EventArgs e)
            {
                this.SetWindowTransparent(100);
            }
        }
    }

    转载于:https://www.cnblogs.com/Ontheway/archive/2007/11/21/967310.html

    展开全文
  • 这篇文章主要介绍一下C#下如何调用Windows API函数,这里也想说一下,Windows Mobile编程不能把眼光只局限于手机手机与PC端相结合的程序也是很有挑战力、很有市场的。所以,这也是我这篇文章的原因之一。 做...
    展开全文
  • C#调用Windows API函数,实现透明窗体

    千次阅读 2006-11-24 01:22:00
    这篇文章主要介绍一下C#下如何调用Windows API函数,这里也想说一下,Windows Mobile编程不能把眼光只局限于手机手机与PC端相结合的程序也是很有挑战力、很有市场的。所以,这也是我这篇文章的原因之一。 做...
  • java源码包---java 源码 大量 实例

    千次下载 热门讨论 2013-04-18 23:15:26
     Java生成密钥、保存密钥的实例源码,通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、保存私钥到文件privateKey.dat、如何用Java对象序列化保存私钥...
  • java源码包2

    千次下载 热门讨论 2013-04-20 11:28:17
     Java生成密钥、保存密钥的实例源码,通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、保存私钥到文件privateKey.dat、如何用Java对象序列化保存私钥...
  • java源码包3

    千次下载 热门讨论 2013-04-20 11:30:13
     Java生成密钥、保存密钥的实例源码,通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、保存私钥到文件privateKey.dat、如何用Java对象序列化保存私钥...
  • java源码包4

    千次下载 热门讨论 2013-04-20 11:31:44
     Java生成密钥、保存密钥的实例源码,通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、保存私钥到文件privateKey.dat、如何用Java对象序列化保存私钥...
  • Java生成密钥的实例 1个目标文件 摘要:Java源码,算法相关,密钥 Java生成密钥、保存密钥的实例源码,通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、...
  • Java生成密钥的实例 1个目标文件 摘要:Java源码,算法相关,密钥 Java生成密钥、保存密钥的实例源码,通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、...
  •  Java生成密钥、保存密钥的实例源码,通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、保存私钥到文件privateKey.dat、如何用Java对象序列化保存私钥...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java生成密钥、保存密钥的实例源码,通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、保存私钥到文件privateKey.dat、如何用Java对象序列化保存私钥...
  • vc++ 应用源码包_1

    热门讨论 2012-09-15 14:22:12
    利用Delphi的代码在VC中显示JPG图片,不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...
  • vc++ 应用源码包_2

    热门讨论 2012-09-15 14:27:40
    利用Delphi的代码在VC中显示JPG图片,不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...
  • vc++ 应用源码包_6

    热门讨论 2012-09-15 14:59:46
    利用Delphi的代码在VC中显示JPG图片,不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...
  • vc++ 应用源码包_5

    热门讨论 2012-09-15 14:45:16
    利用Delphi的代码在VC中显示JPG图片,不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...
  • vc++ 应用源码包_4

    热门讨论 2012-09-15 14:38:35
    利用Delphi的代码在VC中显示JPG图片,不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...
  • vc++ 应用源码包_3

    热门讨论 2012-09-15 14:33:15
    利用Delphi的代码在VC中显示JPG图片,不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    17.3 读 文 件 .222 17.4 异步文件操作 .227 17.5 小 结 .234 第十八章 高 级 话 题 .235 18.1 注册表编程 .235 18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 ...
  • C#微软培训资料

    2014-01-22 14:10:17
    17.3 读 文 件 .222 17.4 异步文件操作 .227 17.5 小 结 .234 第十八章 高 级 话 题 .235 18.1 注册表编程 .235 18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 ...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    内含各种例子(vc下各种控件的使用方法、标题栏与菜单栏、工具栏与状态栏、图标与光标、程序窗口、程序控制、进程与线程、字符串、文件读写操作、文件与文件夹属性操作、文件与文件夹系统操作、系统控制操作、程序...

空空如也

空空如也

1 2
收藏数 29
精华内容 11
关键字:

delphi如何写手机程序