<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      Delphi中應用臨時文件
                
                  發表時間：2023-07-14             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]編程時也許需要產生一些臨時文件，但這些文件最好是有唯一的文件名　才不會產生沖突，Windows API 提供了這一函數，具體用法如下，記得退出　之后，要把臨時目錄下一些的臨時文件刪掉。　unit f...
      編程時也許需要產生一些臨時文件，但這些文件最好是有唯一的文件名
      　才不會產生沖突，Windows API 提供了這一函數，具體用法如下，記得退出
      　之后，要把臨時目錄下一些的臨時文件刪掉。

      　unit frmCreateTempFile;

      　interface

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

      　type
      　  TForm1 = class（TForm）
      　    Button1: TButton;
      　    Edit1: TEdit;
      　    Edit2: TEdit;
      　    procedure Button1Click（Sender: TObject）;
      　  private
      　    { Private declarations }
      　  public
          { Public declarations }
        end;

      　var
      　  Form1: TForm1;

      　implementation

      　{$R *.DFM}

      　procedure TForm1.Button1Click（Sender: TObject）;
      　Var
      　   Buf:string[40];
      　   Pbuf:Pchar;
      　   TmpFileName:String[40];
      　   PFile:PChar;
      　begin
      　   PBuf:=@buf;
      　   PFile:=@fileName;

      　  　 //獲取臨時目錄名，即DOS環境變量Temp所指向的目錄
      　   GetTempPath（40,Pbuf）;
      　   Edit1.Text:=String（PBuf）;

      　   GetTEmpFileName（PBuf,'',0,PFile）;
      　   Edit2.Text:=String（PFile）;
         
      　end;

      　end.


              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清