منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.07.29;
تنزيل: [xml.tar.bz2];

إلى

نافذة وحدة التحكم ، خذ المعلومات البحث عن فروع مماثلة


RV   (2002-07-16 11:01) [0]

كيف انا افعل

الإجراء TForm1.Button1Click (المرسل: TObject) ؛
فار
معلومات: TOSVersionInfo؛
ClassName: string؛
StartupInfo: TStartupInfo؛
ProcessInfo: TProcessInformation ؛
H: HWND ؛
Z: PChar ؛
B: صفيف [0..200] من char؛
تبدأ
AllocConsole.
SetConsoleTitle ("Delphi Console") ؛
FillChar (StartupInfo ، SizeOf (TStartupInfo) ، 0) ؛
مع StartupInfo لا تبدأ
cb: = SizeOf (TStartupInfo) ؛
dwFlags: = STARTF_USESTDHANDLES ؛
wShowWindow: = SW_SHOW؛
الغاية؛
إذا CreateProcess (لا شيء ، "c: \ nc5 \ nc.exe" ، لا شيء ، لا شيء ، خطأ ،
NORMAL_PRIORITY_CLASS ، لا شيء ، لا شيء ، StartupInfo ، ProcessInfo)
then
DosHandle: = ProcessInfo.hProcess
آخر
بدأ
ShowMessage ("لم يتم العثور على البرنامج") ؛ الخروج؛
الغاية؛
ConsHndl: = GetStdHandle (STD_OUTPUT_HANDLE)؛

info.dwOSVersionInfoSize: = sizeof (info)؛
GetVersionEx (معلومات) ؛
if (info.dwPlatformId = VER_PLATFORM_WIN32_NT) ، ثم ابدأ
ClassName: = "ConsoleWindowClass"؛
نهاية آخر تبدأ
ClassName: = "tty"؛
الغاية؛
H: = FindWindow (PChar (ClassName) ، "Delphi Console") ؛
ShowMessage (IntToStr (H)) ؛
// إرسال رسالة إلى نافذة تحتوي على وحدة التحكم
// ShowWindow (H، SW_MINIMIZE) ،
الغاية؛

الإجراء TForm1.ReadConsole (المرسل: TObject) ؛
فار
ToWCount ، WCount: DWORD؛
xy: TCOORD ؛
i: عدد صحيح
ConsoleText: array [0..80] char؛
PConsoleText: PChar؛
تبدأ
Memo1.Clear. PConsoleText: = @ ConsoleText؛
ToWCount: = 80؛ WCount: = 0؛
بالنسبة إلى i: = 0 to 24 do
تبدأ xy.X: = 0 ؛ xy.Y: = i؛
FillChar (ConsoleText، SizeOf (ConsoleText)، 0)؛
ReadConsoleOutputCharacter (ConsHndl،ConsoleText، ToWCount، xy، WCount)؛
Memo1.Lines.Append (سلسلة (PConsoleText)) ؛ // نص وحدة التحكم
الغاية؛
الغاية؛

الإجراء TForm1.Button2Click (المرسل: TObject) ؛
بدأ
ReadConsole (لا شيء) ؛
الغاية؛

كل شيء اتضح ، وإذا لم يكن نافذة دوسوف بحتة ، فإنه يبقى أسود فقط ، وبالتالي لا تؤخذ INFA

ما يجب القيام به ، وكيفية جعل النص عرض النافذة؟



Song   (2002-07-16 11:15) [1]

CreatePipe () ليس أسهل؟



RV   (2002-07-16 13:42) [2]

أعتذر عن السؤال الخاطئ
أحتاج بعد ذلك إلى بدء تطبيق وحدة التحكم ، بحيث يعرض الرسائل
خلاف ذلك لدي شاشة سوداء ، وهناك حاجة إلى نافذة ليس فقط لأخذ المعلومات منها



FLAME   (2002-07-16 15:51) [3]

قد يكون من المفيد المحاولة في CreateProcess (لا شيء ، "c: \ nc5 \ nc.exe" ، لا شيء ، لا شيء ، خطأ ، NORMAL_PRIORITY_CLASS ، لا شيء ، لا شيء ، StartupInfo ، ProcessInfo)
حدد CREATE_NEW_CONSOLE أو NORMAL_PRIORITY_CLASS



RV   (2002-07-17 08:47) [4]

ويغوام ، ولكن. لم يعمل ، مرة أخرى نافذة سوداء
ولكن ربما يكون مجرد برنامج مثل هذا؟ (HyTech SQL Server ، إذا كان أي شخص يعرف)
يا سادة! ساعدني!



RV   (2002-07-17 15:36) [5]

لا أحد لديه أفكار؟
أو التخلي عن هذا المشروع؟ لا يصطاد من أجل قراءة سطر واحد ...



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.07.29;
تنزيل: [xml.tar.bz2];

الطابق العلوي





الذاكرة: 0.56 ميغابايت
الوقت: 0.031 ج
6-95473
MixerPro
2002-04-17 08:39
2002.07.29
مساعدة في MNPOP3


3-95237
MikeP
2002-07-08 18:29
2002.07.29
TSocketConnection لا تغلق ويندوز


3-95258
إلدر
2002-07-09 12:44
2002.07.29
استعلامات ، DBGrid ...


14-95563
المضلع
2002-07-03 13:58
2002.07.29
IBX لـ Kylix 2


1-95373
nikoss
2002-07-15 15:04
2002.07.29
خطأ في استدعاء الإجراء





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch English الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский