DELPHI如何判斷是否為windows系統程序？

您可以列出系統程序。

使用 try except end

嘗試連線，如果連線成功，則伺服器沒問題。

嘗試連線正常。

您還可以檢查埠 1433 是否開啟。

在資料庫控制項的 Obejct Inspector 的屬性中，連線點為 true，可以測試連線是否不成功！

;showmessage('連線成功');

except

showmessage('連線失敗');

end;

我不想說清楚，但程序隱藏可以通過多種方式實現。

最底點是hook-api之類的，ssdt之類的，而且不是太低階的dll注入也是可能的，我對delphi了解不多，但是控制一般叫相關庫檔案之類的，你的dll注入其實就是在其他程序中開啟乙個空間等等，然後執行dllentry， 這種方法比較麻煩，因為呼叫庫函式不好，甚至呼叫訊息框也要自己載入loadlibarery之類的。我想為了呼叫控制項，您必須將相關的控制項 dll 新增到您載入的程序中，然後相應地呼叫它。

這方面有一篇專門的文章，你自己在網上搜尋一下，在老羅的win32組合語言程式設計裡有個想法，Windows核心程式設計也有，上次看文章的時候，還不錯，黑防，總結還算齊全，但是懶得找，你自己找吧。一定有辦法。注射似乎已經過時了，但現在一切都是為了開車，嘿，我跟不上節奏。

它可以做成乙個服務，可以隱藏在任務管理器中。 但是，無論使用哪種方法，只要您連線到Internet，就可以在防火牆中看到它。

你應該從乙個新的 delphi7 安裝包開始。

歷史表明，Delphi7 可以在 Windows 7 上執行。

我一直在使用它，因為我的兩台電腦上都安裝了 delphi7。

右鍵單擊包含相容性設定的屬性。 在相容模式設定下，檢視使用者許可權設定（就像管理員一樣）。

while not do

begina:='資料庫中的字段').asstring;

b:='資料庫中的字段').asstring;

if pos('清單',a)>0 and pos('清單'，b）那你自己寫的飛機看不懂的，填你自己。

begins:=ng;

exit;end;

;while not do

begina:=;

b:=;我不明白你說的if條件是什麼意思。

end;