Delete Delphi temporary file
Rem Delete Delphi temporary file
Rem ****************************
@echo Delete Delphi temporary file
@dir/w/s *.~*
@echo ÒÔÉÏΪµ±Ç°Ä¿Â¼¼°×ÓĿ¼ÁÙʱÎļþ,Çë°´ÈÎÒâ¼üÈ·ÈÏɾ³ý!
@pause
@for /r . %%a in (.) do @if exist "%%a\*.~*" del "%%a\*.~*"
@echo ɾ³ý³É¹¦!
@pause
Rem ****************************
Ïà¹ØÎĵµ£º
Ò»Äêǰ¿ª·¢ÁËÒ»¸öMIDASµÄ³ÌÐò,×î½üÐ޸ķþÎñ¶Ë,¿ÉÊÇÕâ¸ö·þÎñÎÞ·¨×¢²á,×îºóÖÕÓÚÕÒµ½Á˽â¾ö°ì·¨,Õâ¸öÏà¹ØÎÄÕÂÈçÏÂ:(ËãÊDZ¸·Ý°É)
£¨Ò»£©MIDASÊÇʲô£¿
DelphiÖÐMIDASµ½µ×ÊÇÊ²Ã´ÄØ?ºÍËûÏà¹Ø×é¼þÊÇÊ²Ã´ÄØ?
MIDAS(Multitiered Distributed Application Services)¶à²ã·Ö²¼Ê½Ó¦Ó÷þÎñ¡£
DelphiËùÌá³ö ......
Delphi formatµÄÓ÷¨
Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËÆºõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬Á ......
½ñÌìÔÚ´óÀí½£´¨×ö¼à¿ØÁªÍø¹¤³Ì£¬Óöµ½2̨DIYµÄPC-DVR£¬ÁªÍøºÜ²»Ë³Àû¡£»úÆ÷µÄÈí¼þÊǵÁ°æÆÆ½âµÄ£¬Ö»ÆÆ½âÁË·þÎñÆ÷¶Ë£¬¿Í»§¶ËÎ´ÆÆ½â£¬»¹ÓоÍÊǰ汾Ҳ²»¶Ô¡£×îºó·¢ÏÖÈí¼þÏÂÓÐÒ»ActiveX¿Ø¼þ¿ÉÒÔ×öÁªÍøÊ¹Óã¬ÓÚÊÇÏë°ÑÕâ¸öOCXÒýÈëÏîÄ¿Èí¼þ¹¤³Ì¡£ÔÚÒýÈëµÄʱºòdelphiÌáʾcoreide70.bpl±¨´í£¬´íÎó´úÂë:00000019 ......
unit unitFileOP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
implementation
function GetSys32Dir:String;
var
Sys32Dir: string;
pSys32Dir: array[0..Max_Path] of char;
begin
GetSystemDirectory(pSys32Dir,Max_Pat ......