請問如何將一個外部程式(用ShellExecute產生)嵌入BCB的form裡面

發文回覆瀏覽次數：3384

推到 Plurk!

推到 Facebook!

請問如何將一個外部程式(用ShellExecute產生)嵌入BCB的form裡面

尚未結案

wenXD
一般會員

發表：1
回覆：0
積分：0
註冊：2008-07-11

發送簡訊給我

#1 引用回覆回覆

發表時間：2008-07-11 23:01:49

IP:140.116.xxx.xxx 訂閱

請問一下

我用ShellExecute的方式去執行一個exe檔執行時候他會以一個新視窗開啟該程式

現在我想要把這個執行的程式嵌在Form裡面而不要再跳出一個視窗

這樣要怎麼作

謝謝

jacksenao
一般會員

發表：6
回覆：8
積分：2
註冊：2007-11-03

發送簡訊給我

#2 引用回覆回覆

發表時間：2008-07-12 10:27:51

IP:118.169.xxx.xxx 訂閱

這code是我在討論區搜到的，用了知後好像只可以讀出訊息要如何傳送訊息給執行檔
目前看有沒有高手可以教我一下吧。

[code cpp]
SECURITY_ATTRIBUTES sa;
HANDLE hRead,hWrite;
sa.nLength = sizeof(SECURITY_ATTRIBUTES);
sa.lpSecurityDescriptor = NULL;
sa.bInheritHandle = TRUE;
if (!CreatePipe(&hRead,&hWrite,&sa,0))
{
ShowMessage("Error On CreatePipe()");
return;
}
STARTUPINFO si;
PROCESS_INFORMATION pi;
si.cb = sizeof(STARTUPINFO);
GetStartupInfo(&si);
si.hStdError = hWrite;
si.hStdOutput = hWrite;
si.wShowWindow = SW_HIDE;
si.dwFlags = STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES;
if (!CreateProcess(NULL,"cmd.exe /c \"dir c:\"" ,NULL,NULL,TRUE,NULL,NULL,NULL,&si,&pi))
{
ShowMessage("Error on CreateProcess()");
return;
}
CloseHandle(hWrite);
char buffer[4096] = {0};
DWORD bytesRead;
while (true)
{
if (ReadFile(hRead,buffer,4095,&bytesRead,NULL) == NULL)
break;
Memo1->Lines->Add(buffer);
Sleep(200);
}
CloseHandle(hRead);
[/code]

系統時間：2025-04-16 13:03:48

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！