原创 Stack Class
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, S
2020-02-24 19:15:20
原创 Delphi Pubic Function
function GetFileSizeString(const pFileName: String):String; var iFileSize: Int64; begin Result := '0'; iFileSize
2020-02-24 19:15:20
原创 VC內嵌彙編
#include <iostream.h> #include<stdio.h> class TBase { public: void OutPut() { cout<<"TBase OutPut"<<endl; } };
2020-02-24 19:15:20
原创 BMP JPG Graphic interconvert
uses Graphics, Jpeg; procedure BMP2JPG(const BMPFile: string); var BMP: TBitmap; JPG: TJpegImage; FileName:
2020-02-24 19:15:20
原创 ANimateWindow
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ANimateWindow (Handle,200,AW_SLIDE+AW_HO
2020-02-24 19:15:20