視窗位置 |
|
尚未結案
|
|
peiyao
一般會員   發表：41 回覆：23 積分：12 註冊：2003-07-21 發送簡訊給我 |
|
|
ko
資深會員  發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
peiyao 你好:
procedure TForm1.Button1Click(Sender: TObject);
var
H1,Hwtmp: Hwnd;
begin
H1 := FindWindow(Nil,PChar('找程式得抬頭'));
if H1=0 then exit;
Htmp := Panel1.Handle;
Windows.SetParent(H1,Hwtmp);
MoveWindow(H1,0,0,Panel1.Width,Panel1.Height,True);
Windows.ShowWindow(H1,SW_MAX);
end;
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
peiyao
一般會員 發表：41 回覆：23 積分：12 註冊：2003-07-21 發送簡訊給我 |
這是我的原程式碼，可是好像還是不行耶~~
麻煩幫忙找出問題~~~謝謝! procedure TForm1.Button1Click(Sender: TObject);
var pdb,a,b:string;
H1,H2: Hwnd;
begin
pdb := trim(combobox1.Text);
delete(pdb,5, 5); // ????.dssp第5位字元後全部刪除
a:='E:\PDB\PDB';
b:='.ENT';
pdb:= a pdb b; //'E:\PDB\PDB????.ENT'
//執行raswin.exe,並載入pdb內之路徑位置
begin
// 先執行要放入專案的外部EXE檔案(用隱藏方式來執行)
ShellExecute(0,'open','raswin.exe',Pchar(pdb),nil,sw_hide);
// 再找到該外部EXE檔案
H1 := FindWindow(nil,PChar('raswin'));
// 假設找到執行之程式後要放在 Panel1
H2 := Panel1.Handle;
// 將外部程式放在 Panel1
Windows.SetParent(H1,H2);
MoveWindow(H1,0,0,Panel1.Width,Panel1.Height,True);
Windows.ShowWindow(H1,SW_ShowNormal);
end;
end;
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
|
|
peiyao
一般會員 發表：41 回覆：23 積分：12 註冊：2003-07-21 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
AB
高階會員 發表：166 回覆：262 積分：125 註冊：2003-08-21 發送簡訊給我 |
發表時間：2003-11-19 14:21:36
IP:210.62.xxx.xxx 未訂閱
系統時間：2024-05-18 16:57:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |