網路的影響力日增
- May 22 Wed 2013 10:08
-
網路的影響力日增
- Apr 05 Fri 2013 09:33
-
FileAge function delphi
function TForm1.FunFileAge(aFilename:string):TDateTime;
var aFile : string;
aFileDateTime : TDateTime;
aFileOSDate : integer;
begin
aFileOSDate := FileAge(aFilename);
var aFile : string;
aFileDateTime : TDateTime;
aFileOSDate : integer;
begin
aFileOSDate := FileAge(aFilename);
- Apr 05 Fri 2013 09:15
-
file version
function TForm1.FileVersion(const FileName: TFileName): String;
var
VerInfoSize: Cardinal;
VerValueSize: Cardinal;
Dummy: Cardinal;
PVerInfo: Pointer;
PVerValue: PVSFixedFileInfo;
begin
Result := '';
VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
GetMem(PVerInfo, VerInfoSize);
try
if GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, PVerInfo) then
if VerQueryValue(PVerInfo, '\', Pointer(PVerValue), VerValueSize) then
with PVerValue^ do
Result := Format('%d.%d.%d.%d', [
HiWord(dwFileVersionMS), //Major
LoWord(dwFileVersionMS), //Minor
HiWord(dwFileVersionLS), //Release
LoWord(dwFileVersionLS)]); //Build
finally
FreeMem(PVerInfo, VerInfoSize);
end;
end;
var
VerInfoSize: Cardinal;
VerValueSize: Cardinal;
Dummy: Cardinal;
PVerInfo: Pointer;
PVerValue: PVSFixedFileInfo;
begin
Result := '';
VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
GetMem(PVerInfo, VerInfoSize);
try
if GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, PVerInfo) then
if VerQueryValue(PVerInfo, '\', Pointer(PVerValue), VerValueSize) then
with PVerValue^ do
Result := Format('%d.%d.%d.%d', [
HiWord(dwFileVersionMS), //Major
LoWord(dwFileVersionMS), //Minor
HiWord(dwFileVersionLS), //Release
LoWord(dwFileVersionLS)]); //Build
finally
FreeMem(PVerInfo, VerInfoSize);
end;
end;
- Oct 01 Mon 2012 13:43
-
小程式-找程式title並停止程式
- Aug 30 Thu 2012 10:58
-
Eclipse learning notes
1.Fail to import packages... => correct this bugs in build path M2_REPO variables not known.
2.Some bugs when create sessionFactory ...=> progressly identify the needed packages, jars for the project
3.Connection error... => try and correct the catalog for tables make all this smooth
4.more and more understanding the Eclipse software... ha ha
2.Some bugs when create sessionFactory ...=> progressly identify the needed packages, jars for the project
3.Connection error... => try and correct the catalog for tables make all this smooth
4.more and more understanding the Eclipse software... ha ha
- Aug 26 Sun 2012 23:16
-
J2EE 進入Hibernate的領域
- Aug 25 Sat 2012 23:49
-
不患無位,患所以立!
不患無位,患所以立!
深思之,思深之.
深思之,思深之.
- Aug 23 Thu 2012 08:02
-
Maven Installation and functions
1. Download Maven binary distribution下載Maven執行檔
2. 加入MAVEN_HOME參數在系統參數內
3. 加入%MAVEN_HOME%\bin於PATH參數中
4. 測試
2. 加入MAVEN_HOME參數在系統參數內
3. 加入%MAVEN_HOME%\bin於PATH參數中
4. 測試
- Aug 22 Wed 2012 15:24
-
A beginner's struts2 program
- Aug 22 Wed 2012 15:03
-
How to install ANT on windows
