程式範例uses
     inifiles;
procedure TForm1.btn3Click(Sender: TObject);
var
   inifile: TInifile;
   iniFileName,sAppPath,sMusicDir,sImageDir:string;
begin
   //獲取當前程式的路徑
   //sAppPath:=ExtractFilePath(Application.ExeName);
   iniFileName:='testset.ini'; //設定ini檔案儲存名稱

  inifile:=TInifile.Create('INI\'+iniFileName); //執行目錄下的 INI目錄內建立 testtest.ini
  //寫配置資訊
   inifile.writeString('TESTSET','123','Pictures'); // 大標籤[TESTSET] , 底下的 123=Picture 參數
   inifile.writeString('TESTSET','456','Music');

  //讀取配置資訊
   sImageDir:=inifile.readString('TESTSET','123',''); //讀取[TESTSET]底下 123='' 的''字串值
   sMusicDir:=inifile.readString('TESTSET','456','');

end;

NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()


文章出處
http://rakelitica.blogspot.com/2012/07/using-lkjson-example-with-google-drive.htmlJSON文件範本(可貼到 https://jsoneditoronline.org/#left=local.lapedo&right=local.vaxeha 幫你線上格式化JSON比較好看懂){
  "kind": "drive#fileList",
  "etag": "\"ia2FS23424234234ANFYAdsc1Tyua2KKA-HnMs\"",
  "selfLink": "https://www.googleapis.com/drive/v2/files",
  "items": [
   {
    "kind": "drive#file",
    "id": "0BwtHRVB3TFRHVllvRVE",
    "etag": "\"ia2H5NSXK_wk/MTM0MTc3MTMwMTU5Mg\"",
    "selfLink": "https://www.googleapis.com/drive/v2/files/0BwPgllvRVE",
    "alternateLink": "https://docs.google.com/folder/d/0BwPgllvRVE/edit",
    "permissionsLink": "https://www.googleapis.com/drive/v2/files/0BwPgllvRVE/permissions",
    "title": "Folder0",
    "mimeType": "application/vnd.google-apps.folder",
    "description": "Folzer Zero",
    "labels": {
     "starred": false,
     "hidden": false,
     "trashed": false,
     "restricted": false,
     "viewed": true
    },
    "createdDate": "2012-07-08T18:13:51.185Z",
    "modifiedDate": "2012-07-08T18:15:01.592Z",
    "modifiedByMeDate": "2012-07-08T18:15:01.592Z",
    "lastViewedByMeDate": "2012-07-08T18:15:07.039Z",
    "parents": [
     {
      "kind": "drive#parentReference",
      "id": "0AAPgHUk9PVA",
      "selfLink": "https://www.googleapis.com/drive/v2/files/0BwPgllvRVE1/parents/0AA6_KcYtHUk9PVA",
      "parentLink": "https://www.googleapis.com/drive/v2/files/0AA6_KcYtHUk9PVA",
      "isRoot": true
     }
    ],
    "userPermission": {
     "kind": "drive#permission",
     "etag": "\"ia2FSHMEjvcFQvtI4rH3hoJimnEgfM\"",
     "id": "current",
     "role": "owner",
     "type": "user"
    },
    "quotaBytesUsed": "0",
    "ownerNames": [
     "Artur"
    ],
    "lastModifyingUserName": "Artur",
    "editable": true,
    "writersCanShare": true
   },
   {
    "kind": "drive#file",
   }
   {
    "kind": "drive#file",
   }
  ]
}

NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

clip_image001
出處https://dotblogs.com.tw/jean/2013/11/06/126876有些早期舊程式語言並沒有支援SFTP元件,可透過呼叫外部程式來達成
SFTP使用WinSCPSFTP使用WinSCPWinSCP目前是免費的FTP軟體1. WinSCP網站下載WinSCP.exe

NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

感謝作者
出處:http://idlemanhome.blogspot.com/2013/12/delphi-7indy-10.htmlDelphi 7](2014.3.3改)Indy 10 網路元件安裝舊的方法原本是以下這樣,後來我裝新的XP系統時發現無法成功首先從 http://www.indyproject.org/downloads/10/indy10.0.52_source.zip 下載壓縮檔。
(或是到這個網頁找 http://www.indyproject.org/sockets/download/files/indy10.en.aspx )

NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

DELPHI 7 使用ADO元件寫入資料庫強制四捨五入小數到第四位問題 parameters.parambyname('tmpprice').datatype:=ftFloat;   <==寫入資料前先將欄位設定成 Float 型態即可解決此問題。 參考:http://jzinfo.javaeye.com/blog/432853
  • var   
  •     adoquery1:Tadoquery;   
  • begin   
  •     adoquery1:=Tadoquery.create(nil);   
  •     try   
  •        if not DM.adonconnection1.connected then   
  •            DM.adoconnection1.connected:=true;   
  •        adoquery1.connection:=DM.adoconnection1;   
  •        adoquery1.enableBCD:=False;       //禁用bcd类型   
  •        with adoquery1 do   
  •        begin   
  •            close;   
  •            sql.clear;   
  •            sql.add('insert into materialInfo values(:tmppno,:tmpvendor,:tmpdesc,:tmpprice)');   
  •            parameters.parambyname('tmppno').value:=trim(edit1.text);   
  •            parameters.parambyname('tmpvendor').value:=trim(edit2.text);   
  •            parameters.parambyname('tmpdesc').value:=trim(edit3.text);   
  •            parameters.parambyname('tmpprice').datatype:=ftFloat;       //设置下数据类型   
  •            parameters.parambyname('tmpprice').value:=trim(edit4.text);   
  •            execsql;   
  •        end;   
  •     finally   
  •         adoquery1.free;   
  •     end;   
  • end; 
  • NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

    Delphi下使用function FileSetDate(Handle: Integer; Age: Integer): Integer; overload;函式修改檔案的”修改日期”: 參考:http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=37667 procedure TForm1.Button1Click(Sender: TObject);
    Var
        FileHandle : Integer;
        Str : String;
    begin
        FileHandle := FileOpen('D:\prog\1.txt', fmOpenReadWrite);
        if FileHandle = -1 then
          ShowMessage('開啟檔案失敗')
        else
        begin
          Str := '檔案原來日期時間: '+ DateTimeToStr(FileDateToDateTime(FileGetDate(FileHandle)))+#10#13;
          if FileSetDate(FileHandle, FileAge('D:\prog\AMS.exe')) = 0 then
            Str := Str+DateTimeToStr(FileDateToDateTime(FileAge('D:\prog\AMS.exe')))
          else
            Str := Str+'新的日期時間設定失敗';
          ShowMessage(Str);
        end;
        FileClose(FileHandle);
    end;

    NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

    最近在修改使用者提出 EXCEL 報表欄位,發現有幾支 procedure 轉出 EXCEL 的速度非常龜,而這幾支 procedure 是前輩所留下的產物,跟自己最近寫的轉 EXCEL 報表速度上差很多,以為是卡在SQL查詢,如果查詢條件KEY值給不齊全,有可能因為資料過多,查詢變很慢,但是測試後應該不是SQL查詢的問題,再對照前輩與自己的程式,感覺不出差異,最後看到 DELPHI 內設定EXCEL時前面通常會有一些基本設定,發現了這幾支程式都有設定列印範圍,姑且註解掉試試看,果然...............兇手就是它! PageSetup.PrintArea := 'A:R';  //設定列印範圍 建議把它移到資料轉完後,最後在給上這個參數就好了。

    NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

    上網找到下面的程式碼,修了一下測試,真的可以耶!!!!最近的程式剛好有UTF8編碼的困擾,使用這方式轉是方便多了,不過還要測試會不會有問題。 討論區:http://delphi.ktop.com.tw/board.php?cid=30&fid=76&tid=89562 procedure TForm1.Button1Click(Sender: TObject);
    var
      S:UTF8String;
      F:TextFile;
      TntEdit1: TStringList;
    begin
      TntEdit1 := TStringList.Create;
      TntEdit1.Add('我是天才我是天才我是天才');
      S:=UTF8Encode(TntEdit1.Text);
      AssignFile(F, 'C:\test.txt');
      Rewrite(F);
      Write(F,#$EF+#$BB+#$BF); //UTF8??
      Write(F,S);
      CloseFile(F);
    end;   結果去開C:\test.txt 來看,真的直接就是UTF8編碼,在XP下看中文也正常,沒有亂碼。 1   Write(F,#$EF+#$BB+#$BF); 中 #$EF+#$BB+#$BF 的意義 ======================================================================= http://60.248.128.85/bbs/dv_rss.asp?s=xhtml&boardid=63&id=491&page=3 這是一篇程式員寫給程式員的趣味讀物。所謂趣味是指可以比較輕鬆地瞭解一些原來不清楚的概念,增進知識,類似於打RPG遊戲的升級。整理這篇文章的動機是兩個問題:
    問題一:

    使用Windows記事本的「另存為」,可以在GBK、Unicode、Unicode big endian和UTF-8這幾種編碼方式間相互轉換。同樣是txt文件,Windows是怎樣辨識編碼方式的呢?

    我很早前就發現Unicode、Unicode big endian和UTF-8編碼的txt文件的開頭會多出幾個字元,分別是FF、FE(Unicode),FE、FF(Unicode big endian),EF、BB、BF(UTF-8)。但這些標記是基於什麼標準呢?

    問題二:
    最近在網上看到一個ConvertUTF.c,達到了UTF-32、UTF-16和UTF-8這三種編碼方式的相互轉換。對於Unicode(UCS2)、GBK、UTF-8這些編碼方式,我原來就瞭解。但這個程式讓我有些糊塗,想不起來UTF-16和UCS2有什麼關係。
    查了查相關資料,總算將這些問題弄清楚了,順帶也瞭解了一些Unicode的細節。寫成一篇文章,送給有過類似疑問的朋友。本文在寫作時盡量做到通俗易懂,但要求讀者知道什麼是字元,什麼是十六進制。 0、big endian和little endian big endian和little endian是CPU處理多字元數的不同方式。例如「漢」字的Unicode編碼是6C49。那麼寫到文件裡時,究竟是將6C寫在前面,還是將49寫在前面?如果將6C寫在前面,就是big endian。還是將49寫在前面,就是little endian。 「endian」這個詞出自《格列佛遊記》。小人國的內戰就源於吃雞蛋時是究竟從大頭(Big-Endian)敲開還是從小頭(Little-Endian)敲開,由此曾發生過六次叛亂,其中一個皇帝送了命,另一個丟了王位。 我們一般將endian翻譯成「字元序」,將big endian和little endian稱作「大尾」和「小尾」。 1、字元編碼、內碼,順帶介紹中文字編碼 字元必須編碼後才能被電腦處理。電腦使用的缺省編碼方式就是電腦的內碼。早期的電腦使用7位的ASCII編碼,為了處理中文字,程式員設計了用於簡體中文的big5和用於繁體中文的big5。 big5(1980年)一共收錄了7445個字元,包括6763個中文字和682個其它符號。中文字區的內碼範圍高字元從B0-F7,低字元從A1-FE,佔用的碼位是72*94=6768。其中有5個空位是D7FA-D7FE。 big5支援的中文字太少。1995年的中文字擴展規範GBK1.0收錄了21886個符號,它分為中文字區和圖形符號區。中文字區包括21003個字元。2000年的GB18030是取代GBK1.0的正式國家標準。該標準收錄了27484個中文字,同時還收錄了藏文、蒙文、維吾爾文等主要的少數民族文字。現在的PC平台必須支援GB18030,對嵌入式產品暫不作要求。所以手機、MP3一般只支援big5。 從ASCII、big5、GBK到GB18030,這些編碼方法是向下兼容的,即同一個字元在這些方案中總是有相同的編碼,後面的標準支援更多的字元。在這些編碼中,英文和中文可以統一地處理。區分中文編碼的方法是高字元的最高位不為0。按照程式員的稱呼,big5、GBK到GB18030都屬於雙字元字元集 (DBCS)。 有的中文Windows的缺省內碼還是GBK,可以透過GB18030升級包升級到GB18030。不過GB18030相對GBK增加的字元,普通人是很難用到的,通常我們還是用GBK指代中文Windows內碼。 這裡還有一些細節:
  • big5的原文還是區位碼,從區位碼到內碼,需要在高字元和低字元上分別加上A0。

  • 在DBCS中,GB內碼的存儲格式始終是big endian,即高位在前。

  • big5的兩個字元的最高位都是1。但符合這個條件的碼位只有128*128=16384個。所以GBK和GB18030的低字元最高位都可能不是1。不過這不影響DBCS字元流的解析:在讀取DBCS字元流時,只要遇到高位為1的字元,就可以將下兩個字元作為一個雙字元編碼,而不用管低字元的高位是什麼。

  • 2、Unicode、UCS和UTF 前面提到從ASCII、big5、GBK到GB18030的編碼方法是向下兼容的。而Unicode只與ASCII兼容(更準確地說,是與ISO-8859-1兼容),與GB碼不兼容。例如「漢」字的Unicode編碼是6C49,而GB碼是BABA。 Unicode也是一種字元編碼方法,不過它是由國際組織設計,可以容納全世界所有語言文字的編碼方案。Unicode的學名是"Universal Multiple-Octet Coded Character Set",簡稱為UCS。UCS可以看作是"Unicode Character Set"的縮寫。 根據維基百科全書(http://zh.wikipedia.org/wiki/)的記載:歷史上存在兩個試圖獨立設計Unicode的組織,即國際標準化組織(ISO)和一個軟體製造商的協會(unicode.org)。ISO開發了ISO 10646項目,Unicode協會開發了Unicode項目。 在1991年前後,雙方都認識到世界不需要兩個不兼容的字元集。於是它們開始合併雙方的工作成果,並為創立一個單一編碼表而協同工作。從Unicode2.0開始,Unicode項目採用了與ISO 10646-1相同的字庫和字碼。 目前兩個項目仍都存在,並獨立地公佈各自的標準。Unicode協會現在的最新版本是2005年的Unicode 4.1.0。ISO的最新標準是10646-3:2003。 UCS規定了怎麼用多個字元表示各種文字。怎樣傳輸這些編碼,是由UTF(UCS Transformation Format)規範規定的,常見的UTF規範包括UTF-8、UTF-7、UTF-16。 IETF的RFC2781和RFC3629以RFC的一貫風格,清晰、明快又不失嚴謹地描述了UTF-16和UTF-8的編碼方法。我總是記不得IETF是Internet Engineering Task Force的縮寫。但IETF負責維護的RFC是Internet上一切規範的基礎。 3、UCS-2、UCS-4、BMP UCS有兩種格式:UCS-2和UCS-4。顧名思義,UCS-2就是用兩個字元編碼,UCS-4就是用4個字元(實際上只用了31位,最高位必須為0)編碼。下面讓我們做一些簡單的數學遊戲: UCS-2有2^16=65536個碼位,UCS-4有2^31=2147483648個碼位。 UCS-4根據最高位為0的最高字元分成2^7=128個group。每個group再根據次高字元分為256個plane。每個plane根據第3個字元分為256行 (rows),每行包含256個cells。當然同一行的cells只是最後一個字元不同,其餘都相同。 group 0的plane 0被稱作Basic Multilingual Plane, 即BMP。或者說UCS-4中,高兩個字元為0的碼位被稱作BMP。 將UCS-4的BMP去掉前面的兩個零字元就得到了UCS-2。在UCS-2的兩個字元前加上兩個零字元,就得到了UCS-4的BMP。而目前的UCS-4規範中尚未任何字元被分配在BMP之外。 4、UTF編碼 UTF-8就是以8位為單元對UCS進行編碼。從UCS-2到UTF-8的編碼方式如下: UCS-2編碼(16進制)
    UTF-8 字元流(二進制) 0000 - 007F
    0xxxxxxx 0080 - 07FF
    110xxxxx 10xxxxxx 0800 - FFFF
    1110xxxx 10xxxxxx 10xxxxxx 例如「漢」字的Unicode編碼是6C49。6C49在0800-FFFF之間,所以肯定要用3字元模板了:1110xxxx 10xxxxxx 10xxxxxx。將6C49寫成二進制是:0110 110001 001001, 用這個比特流依次代替模板中的x,得到:11100110 10110001 10001001,即E6 B1 89。 讀者可以用記事本測試一下我們的編碼是否正確。 UTF-16以16位為單元對UCS進行編碼。對於小於0x10000的UCS碼,UTF-16編碼就等於UCS碼對應的16位無符號整數。對於不小於0x10000的UCS碼,定義了一個算法。不過由於實際使用的UCS2,或者UCS4的BMP必然小於0x10000,所以就目前而言,可以認為UTF-16和UCS-2基本相同。但UCS-2只是一個編碼方案,UTF-16卻要用於實際的傳輸,所以就不得不考慮字元序的問題。 5、UTF的字元序和BOM UTF-8以字元為編碼單元,沒有字元序的問題。UTF-16以兩個字元為編碼單元,在解釋一個UTF-16文本前,首先要弄清楚每個編碼單元的字元序。例如收到一個「奎」的Unicode編碼是594E,「乙」的Unicode編碼是4E59。如果我們收到UTF-16字元流「594E」,那麼這是「奎」還是「乙」? Unicode規範中推薦的標記字元順序的方法是BOM。BOM不是「Bill Of Material」的BOM表,而是Byte Order Mark。BOM是一個有點小聰明的想法: 在UCS編碼中有一個叫做"ZERO WIDTH NO-BREAK SPACE"的字元,它的編碼是FEFF。而FFFE在UCS中是不存在的字元,所以不應該出現在實際傳輸中。UCS規範建議我們在傳輸字元流前,先傳輸字元"ZERO WIDTH NO-BREAK SPACE"。 這樣如果接收者收到FEFF,就表明這個字元流是Big-Endian的;如果收到FFFE,就表明這個字元流是Little-Endian的。因此字元"ZERO WIDTH NO-BREAK SPACE"又被稱作BOM。 UTF-8不需要BOM來表明字元順序,但可以用BOM來表明編碼方式。字元"ZERO WIDTH NO-BREAK SPACE"的UTF-8編碼是EF BB BF(讀者可以用我們前面介紹的編碼方法驗證一下)。所以如果接收者收到以EF BB BF開頭的字元流,就知道這是UTF-8編碼了。 Windows就是使用BOM來標記文本文件的編碼方式的。 6、進一步的參考資料 本文主要參考的資料是 "Short overview of ISO-IEC 10646 and Unicode" (http://www.nada.kth.se/i18n/ucs/unicode-iso10646-oview.html)。 我還找了兩篇看上去不錯的資料,不過因為我開始的疑問都發現了答案,所以就沒有看:
  • "Understanding Unicode A general introduction to the Unicode Standard" (http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&item_id=IWS-Chapter04a)
  • "Character set encoding basics Understanding character set encodings and legacy encodings" (http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&item_id=IWS-Chapter03)
  • 我寫過UTF-8、UCS-2、GBK相互轉換的軟體包,包括使用Windows API和不使用Windows API的版本。以後有時間的話,我會整理一下放到我的個人首頁上(http://fmddlmyy.home4u.china.com)。 我是想清楚所有問題後才開始寫這篇文章的,原以為一會兒就能寫好。沒想到考慮措辭和查證細節花費了很長時間,竟然從下午1:30寫到9:00。希望有讀者能從中受益。 =======================================================================

    NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

    使用 TIdIPWatch 元件即可直接抓取執行程式的本機IP。 showmessage(IdIPWatch1.LocalIP); 會想要本基IP是想要讓自動更新程式自動判斷使用者電腦所在位置,因公司有很多據點,如果大家都回來抓更新檔,頻寬會.......

    NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

    讓Windows捲軸捲動時,資料內容同時跟著平滑捲動。 出處: http://delphi.ktop.com.tw/board.php?cid=168&fid=918&tid=100386 http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=70761


       TDBGrid = Class(DBGrids.TDBGrid)
        Protected
        procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
        end;
        TForm1 = class(TForm)
        ....
    ...
    procedure TDBGrid.WMVScroll(var Message: TWMVScroll);
    begin
        if Message.ScrollCode = SB_THUMBTRACK then Message.ScrollCode := SB_THUMBPOSITION;
        inherited;
    end;

    NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

    網路上找到的文章,Ord('C') <==其實轉出來就是ASCII碼,知道後比較可以靈活運用在用變數的方式帶入。   文章出處:http://blog.yam.com/yqbagzdk/article/25791738 ====================================================== 最近碰到使用 SendMessage 和 PostMessage 機會超級多,無非是因為太多的程式合輯專案需求,如果耗費人力全部自行開發,大概請二、三倍的人力結果也只是為了完成幾個對於圖形處理的動作而已,建築.室內設計.服裝相關軟體因此購買已經寫好的軟體直接使用就行,但畢竟購買是購買,有些畫面或是需求畢竟是套裝軟體無法達成的,於是還是得自己寫控制指令 可以自己寫一個類似按鍵精靈的東東,也就是控制滑鼠自動在畫面上操作東西 滑鼠自動點擊的例子 procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; begin     x:= form1.Left+button2.Left+25;     y:= top+button2.Top+27;     SetCursorPos(x,y);   // 移到某個點     Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0); // 按下滑鼠左鍵     Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);   // 放開左鍵 end; procedure TForm1.Button2Click(Sender: TObject); begin showmessage('fksj'); end; ************************************* 其中 mouse_event 這是 WindowsAPI 的指令,xyz軟體補給站 還有下列的幾種 MOUSEEVENTF_MOVE            = $0001; { mouse move } MOUSEEVENTF_LEFTDOWN        = $0002; { left button down } MOUSEEVENTF_LEFTUP          = $0004; { left button up } MOUSEEVENTF_RIGHTDOWN       = $0008; { right button down } MOUSEEVENTF_RIGHTUP         = $0010; { right button up } MOUSEEVENTF_MIDDLEDOWN      = $0020; { middle button down } MOUSEEVENTF_MIDDLEUP        = $0040; { middle button up } MOUSEEVENTF_WHEEL           = $0800; { wheel button rolled } MOUSEEVENTF_ABSOLUTE        = $8000; { absolute move } 而下面的這段則是模擬鍵盤//Ctrl+C: keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0); keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)  //Ctrl+V: keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0); keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)

    NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

    GUID原本還看不懂,後來翻譯字面意思才知道它有獨一無二的意思,所以在程式裡面啥時候需要獨一無二碼的時候就很有用處啦!!!!   文章來源:http://blog.bestlong.idv.tw/2009/07/25/655   七月.25, 2009 in Delphi GUID (Globally Unique IDentifier) 是一個 128-bit Integer (16 bytes) 的數值。 在 Delphi IDE 中可以按下 Ctrl + Shift + G 快捷鍵會出現類似下列的 GUID 值: 1 ['{2F45BDFE-1BE4-404D-9C5B-4B481D6A7482}'] 每次按下快捷鍵都會產生不同的 GUID 值。     而程式中產生 GUID 值的方式如下列程式碼: procedure TForm1.FormCreate(Sender: TObject);
    var
      s_GUID: string;
      t_GUID: TGUID;
    begin
    if CoCreateGUID(t_GUID) = S_OK then
    begin
        s_GUID := GUIDToString(t_GUID);
        ShowMessage(s_GUID);
    end else begin
        ShowMessage('Create GUID ERROR.');
    end;
    end;   In Delphi 5 need uses ComObj, ActiveX. 也可以當作 UUID 來應用。

    NoMoney NoHoney 發表在 痞客邦 留言(0) 人氣()

    1 2 3
    Blog Stats
    ⚠️

    成人內容提醒

    本部落格內容僅限年滿十八歲者瀏覽。
    若您未滿十八歲,請立即離開。

    已滿十八歲者,亦請勿將內容提供給未成年人士。