在Delphi中通过函数获取GUID

2016-02-19 19:56 17 1 收藏

下面这个在Delphi中通过函数获取GUID教程由图老师小编精心推荐选出,过程简单易学超容易上手,喜欢就要赶紧get起来哦!

【 tulaoshi.com - 编程语言 】

 

  keyword:
   ActiveX, TGUID, CoCreateGUID, GUIDToString

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  //---Test Program By Conan 2005/04/14---//
  unit Unit1;

  interface

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs,
    ActiveX, StdCtrls;

  type
    TForm1 = class(TForm)
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

  var
    Form1: TForm1;

  implementation

  {$R *.dfm}

  
  procedure TForm1.Button1Click(Sender: TObject);
  var
    I   : Integer;
    sGUID  : string;
    TmpGUID: TGUID;
  begin
    for I := 0 to 10 do
    begin
      if CoCreateGUID(TmpGUID) = S_OK then
        sGUID := GUIDToString(TmpGUID)
      else
        ShowMessage('Create GUID error!');
      ShowMessage(sGUID);
    end;
  end;

  end.
  


来源:http://www.tulaoshi.com/n/20160219/1622281.html

延伸阅读
代码如下: package me.xuzs.sso.test; import java.net.InetAddress; import java.net.NetworkInterface; import java.net.SocketException; import java.util.Enumeration; public class InternetTest {     public static void main(String[] args) {         String netCard = "lo"...
标签: Excel 电脑
打开Excel 在excel中打开需要使用if函数的表格。如示例中需要给学生按成绩判定该学生是否及格。 输入if函数 鼠标移至想要判定的单元格后面的单元格里,输入“=if()”。 输入数值 鼠标移至“=if()”的括号当中,我们可以看到引伸出一列对if函数英文解释,其中logical-test表明该位置输入if函数判断条件,value-if-...
标签: 电脑入门
Excel2003常用函数 1.NOW 用途:返回当前日期和时间所对应的序列号。 语法:NOW() 参数:无 实例:如果正在使用的是1900日期系统,而且计算机的内部时钟为2001-1-2812:53,则公式=NOW()返回36919.54。 2.TODAY 用途:返回系统当前日期的序列号。 参数:无 语法:TODAY() 实例:公式=TODAY()返回2001-8-28(执行公式时的系统时间)。 3...
Delphi以其优良的可视化编程,灵活的Windows API接口,丰富的底层操作越来越受到编程爱好者的青睐。 在Delphi中,通过调用Windows API,可以很方便地获取系统信息,这有助于我们编写出更好的Windows应用程序。以下程序在Delphi3.0 For Windows 9x下编译通过。 一、 用GetDriveType函数获取磁盘信息 Lbl_DriveType:Tlabel; ...
花了一个下午翻了MSDN,写了这个例子,为了安全,我用Delphi建了个什么也没有作的程序prjzzhost.exe,将它用作被注入的宿主进程. 写了一个TestDll.Dll,里面只有一个Log函数,用来在文件Test.Txt中输出信息.最重要的一个程序project1.exe是用来注入的. 测试环境: windows server 2003 + delphi 7.0 程...

经验教程

644

收藏

75
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部