明硕的学习博客

摘要： program Project1;uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1};Var hMutex : HWND; Ret : Integer;{$R *.res}begin Application.Initialize; Application.Title := 'test'; hMutex := CreateMutex(nil,false,'test'); Ret := GetLastError; if RetERROR_ALREADY_EXISTS then begin Applica 阅读全文

摘要： procedure TMainForm.FormCreate(Sender: TObject); var MyReg : TRegistry; InsDate, LastUseDate, TryDate : TDateTime; Total : PAnsiChar; TotalStr : String; begin MyReg := TRegistry.Create; MyReg.LazyWrite := False; MyReg.RootKey := HKEY_LOCAL_MACHINE; MyReg.OpenKey('\software\XJDZ_REG\L... 阅读全文

摘要： 1.往Excel中插入图片 用MsExcelWorkSheet.Pictures.Insert(ExtractFilePath(ParamStr(0))+'temp.jpg'); 可以放图片varExcelApp,MyWorkBook,MsExcelWorkSheet,Temple1:Variant;begin try ExcelApp:=CreateOleObject('Excel.Application'); MyWorkBook:=CreateOleobject('Excel.Sheet'); MyWorkBook:=ExcelApp.Wo 阅读全文

摘要： begin if not FileExists(Edit1.Text) then //if not DirectoryExists(Edit1.Text) then 判断目录是否存在 try begin CreateDir(Edit1.Text); //ForceDirectories(Edit1.Text); 创建目录 end; finally raise Exception.Create('Cannot Create '+Edit1.Text); end;end;//三个函数引用自SysUtils单元FileExists(Path)检查目... 阅读全文

摘要： 来自:逗逗豆豆\\system\\app这个里面主要存放的是常规下载的应用程序，可以看到都是以APK格式结尾的文件。在这个文件夹下的程序为系统默认的组件，自己安装的软件将不会出现在这里，而是\\data\\文件夹中。下面是详细的介绍:\\system\\app\\AlarmClock.apk 闹钟\\system\\app\\AlarmClock.odex\\system\\app\\Browser.apk 浏览器\\system\\app\\Browser.odex\\system\\app\\Bugreport.apk Bug报告\\system\\app\\Bugreport.odex\ 阅读全文