procedure TForm1.Button1Click(Sender: TObject);
Var
b0 , str1 : String;
begin
b0 := 'C:\01.mp3' ;
str1 := Edit1.text ;
WINEXEC(PAnsiChar('C:\Program Files\Windows Media Player\wmplayer.exe ' str1 ),sw_Normal);

end;

當我在Edit1.text 輸入 b0 卻無法播放 01.mp3.
請問那裡出了問題?

謝謝 !

你應該在Edit1輸入C:\01.mp3吧~.~

------
一切都為了明天

編輯記錄

這個問題真是絕妙，我想你該好好念個書

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

應該要大力的拍桌子,並大聲喊出"絕"

===================引 用 Coffee 文 章===================
這個問題真是絕妙，我想你該好好念個書

測試 OK.


[code delphi]
var
S1, S2: String;
begin
S1 := 'C:\Program Files\Windows Media Player\WMPLAYER.EXE';
S2 := 'D:\1.MP3';
if not FileExists(S1) then ShowMessage('File not found: WMPLAYER.EXE')
else if not FileExists(S2) then ShowMessage('File not found: 01.MP3')
else WINEXEC(PChar(S1 ' ' S2), SW_NORMAL);
end;
[/code]

我想將輸入 Edit1.text 的b0 當變數使用.

WINEXEC(PAnsiChar('C:\Program Files\Windows Media Player\wmplayer.exe ' b0 ),sw_Normal); //就像這個一樣,可以執行.

只可惜這個語言並不是讓你多花點錢($)就會把值變成變數還是函式之類的，
念個書搞清楚Delphi該怎麼用吧..
以下本文上鎖。
===================引 用 yoyo3 文 章===================
我想將輸入 Edit1.text 的b0 當變數使用.

WINEXEC(PAnsiChar('C:\Program Files\Windows Media Player\wmplayer.exe ' b0 ),sw_Normal); //就像這個一樣,可以執行.

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

編輯記錄

如你所說想將 Edit1.text 輸入 b0 當變數使用，問題就在於你在Edit1.text 取得輸入的b0是一個值，
所以你的str1的值是b0，跟b0變數完全沒有關係!!
再把書拿出來從頭慢慢思考看一遍，把變數跟值關係搞清楚，有時受挫是激發自己動力。

另應該沒有鎖文的必要啦!! 我想版大們太求好心切了。


===================引 用 yoyo3 文 章===================
我想將輸入 Edit1.text 的b0 當變數使用.

WINEXEC(PAnsiChar('C:\Program Files\Windows Media Player\wmplayer.exe ' b0 ),sw_Normal); //就像這個一樣,可以執行.

------
~§~迷時師渡，悟了自渡~§~

yoyo3
請您別生氣，您先看我問的問題
http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=90243
給果版主pcboy如何回答
老實說，和我交接的前同事，他有寫出來，確也不是pcboy版主的方式，他是用我問的
他直接在更新檔內宣告一變數，給trans.exe 去Call，不過人走了，SOURCE CODE確沒
留下，造成我很大困擾
//====================
pcboy版主，抱歉拖你下水了
//==========================
請您注意一下，別人沒有義務回答您的問題，在任何類似討論區都一樣
如果你有上過-酷學園或鳥哥，你可以去看一下提問問題的禮貌
//=========================
看了您的問題，代表你憑直覺寫出，在沒先自已DEBUG，就貼上來
這真的是你自已的不是，除非您真的看了N次
//==========================
你會發現，提問問題，他們都貼一個超連結(超過7成的回答)，代表這一個版，他們
已經是儘可能回答了，你到Linux的版去，沒先爬文就問，可能沒人回答你
給您一個建議
http://dgr.twbts.com/delphi/?class=qureport
您可以先到這邊去練一下基本功
另外在這建議版大，是否可以像Linux的鳥哥及網中人他們，建一些文章
這是鳥哥文章的首頁，或開放給會員去貼
可否開放討論區的DB給我們離線查看，這樣可以減少SCANCH的時間
台灣delhpi討論區少，書更少，所以新手要上手，我們一起加油
例如之前的trans，如果我弄出來，我就去貼在類似精華區，
yoyo3，我寫delphi才一年，那個pcboy寫的像 nil我就...霧煞煞
所以我還是新手啦...

------
環境 DELPHI 7
Delphi 新手，請多指教

===================引 用 harpist 文 章===================
如你所說想將 Edit1.text 輸入 b0 當變數使用，問題就在於你在Edit1.text 取得輸入的b0是一個值，
所以你的str1的值是b0，跟b0變數完全沒有關係!!
再把書拿出來從頭慢慢思考看一遍，把變數跟值關係搞清楚，有時受挫是激發自己動力。

另應該沒有鎖文的必要啦!! 我想版大們太求好心切了。


===================引 用 yoyo3 文 章===================
我想將輸入 Edit1.text 的b0 當變數使用.

WINEXEC(PAnsiChar('C:\Program Files\Windows Media Player\wmplayer.exe ' b0 ),sw_Normal); //就像這個一樣,可以執行.

--------------------------------------------------------------------------------------------------------------------------------------
謝謝您的教導.
解開了我的問題.
一些對那些高手很簡單的東西,
對我這種以前完全沒接觸過語言程式的初學者,
有時真的會搞不清楚這個和那個有甚麼不一樣.

我學Delphi沒多久,沒有師長教,看書很多東西都看不懂,
就算Delphi運作出現錯誤訊息也不知道它是甚麼意思.

很多基本的東西,有疑問想問都找不到人可問,
所以我一直都是從錯誤中不斷的去嘗試.

最後才會到這裡來提問.
只是沒想到要付出被嘲諷做代價罷了.

算了,總之非常謝謝您的解釋.

豬寶寶個人是很好奇
為什麼會這樣問?
您的要求可能需要利用point才能達成
不然就是用http://www.remobjects.com/?ps 這種元件做看看

還有
您的問題實在問的不是很明確
初看時..會突然看不懂@@
據個人所知
FOXPRO 應該有這種功能
b0 := 'C:\01.mp3' ;
z=edit.text;
a=&z
WINEXEC(PAnsiChar('C:\Program Files\Windows Media Player\wmplayer.exe ' str1 ),sw_Normal);
這樣應在foxpro可以正確達成您的需求
在下才疏學淺
這種東西..除了在DOS的xBASE有看過外.還沒看過有其他語言提供..
很不建議用這種方式..會造成系統不可預期的錯誤,有錯會查到死都查不出來(個人在clipper時代深受其害 )




===================引 用 yoyo3 文 章===================
procedure TForm1.Button1Click(Sender: TObject);
Var
b0 , str1 : String;
begin
b0 := 'C:\01.mp3' ;
str1 := Edit1.text ;
WINEXEC(PAnsiChar('C:\Program Files\Windows Media Player\wmplayer.exe ' str1 ),sw_Normal);

end;

當我在Edit1.text 輸入 b0 卻無法播放 01.mp3.
請問那裡出了問題?

謝謝 !

編輯記錄

先看一下程式
這一行
WINEXEC(PAnsiChar('C:\Program Files\Windows Media Player\wmplayer.exe ' str1 ),sw_Normal);
STR1為變數，我們帶一下值 str1:=edit1.text
那edit1.text 是什麼..
你輸入b0 那edit1.text的值就是'b0'，當str1:=edit1.text，這時str1值為 'b0'
注意哦 b0是值，不是變數哦
這個edit1.text:='b0' 和 b0:='c:\01.mp3'，不一樣
一個是edit1.text的值，另一個是變數 它的值為'c:\01.mp3'

我弄的觀念不知你看懂了嗎

===================引 用 yoyo3 文 章===================
procedure TForm1.Button1Click(Sender: TObject);
Var
b0 , str1 : String;
begin
b0 := 'C:\01.mp3' ;
str1 := Edit1.text ;
WINEXEC(PAnsiChar('C:\Program Files\Windows Media Player\wmplayer.exe ' str1 ),sw_Normal);

end;

當我在Edit1.text 輸入 b0 卻無法播放 01.mp3.
請問那裡出了問題?

謝謝 !

------
環境 DELPHI 7
Delphi 新手，請多指教

忽然想到
你是不是要在edit1.text輸入b0
他就去找b0:='01.mp3'
b1
找02.mp3

------
環境 DELPHI 7
Delphi 新手，請多指教

Delphi不曉得支不支援

Libary 跟Function
都用輸入的
沒有直接引用 輸入的當變數
Sample 求 Cos45 度
C# Reflection



[code c#]
Type theMathType =Type.GetType("System.Math");
Object theObj=Activator.CreateInstance(theMathType);

Type[] param Types=new Type[1];

paramType[0]=Type.GetType("System.Double");

MethodInfo CosineInfo= theMathType.GetMethod("Cos",paramTypes);

Object[] paramters = new Object[1];
paramters[0]=45;

Object returnVal=CosineInfo.Invoke(theObj,paramters );
[/code]

編輯記錄