
                     ֮Ѱ_û 4.0           

                    for win9x/win2000/winnt/winme/winxp/vista/win7

㷢Ʒվ֮Ƿõû۷ԼĽûһ֮һŷ͵ָ䣬֮ͣûֶΪķʣ׼ȷûϲã շˣdelphi7Դ룬ްȨĶ÷
ע3.0Ժ汾ָ֧ҵָ䣬һȥҵ2.0汾


ֻҪĽʼַɣ͵Ŀʼַ
ռûκϢֻûϢ 
                         
================================================
ʼ

ֻ ͵ĿʼַɣĽʼַɲܣȻҪԼķʼҲ룬ҪעǷˣԴʼַ뷢ʼַƥ䣬׺һա


 ʼ ַǡ
ע⣺ˣԴʼַ뷢ʼַƥ䣬׺һգѺһЩûأ䶼һЩˣʱfoxmailղֻա
ûԼķʼַҵĬãֻҪ ͵Ŀʼַɡ

ҪעĽʼƵģûдʼĿݣʼַΪ []Ϊ ---
ַ֮ûѡۿ⣬ üˣ֮ܺ࣬סֻرĶ֮ǰݣ緵ض֮ǰ üˣض֮ Һϲʼ۶    


==========================
۶

۶Ҫû۵Ķ⡣

ۿѡ⣺Ķݱ⣬óԼۿҪעĽʼƵģûдʼĿݣʼַΪ []Ϊ ---
ַ֮ûѡۿ⣬ üˣ֮ܺ࣬סֻرĶ֮ǰݣ緵ض֮ǰ üˣض֮ Һϲʼ۶

=========================
ҪԼĸֻҪ滻 Ч\һݰ.mp3 Ϳˣ벻ҪĶ

==========================
÷ 

μ ƶǩԴ 5.5 5.6ϰ汾

 delphi7 
Ȱ  ֮Ѱ_ûv2.0 忽 ӦóĿ¼

 delphi7 һ˵ڲ˵ onclick ¼д´룬Ժ󵥻˵Ϳ ˡ

var
  qs1: string;
 myfiledir: string; //ǰ· ļ
 
begin
  myfiledir := getcurrentdir;
  
    
  
  if setcurrentdir(myfiledir + '\' + '֮Ѱ_û') = False then
  begin
    Application.MessageBox('ļ ֮Ѱ_û ڣֹ', '', MB_OK);

    exit;
  end;

qs1 := myfiledir + '\' + '֮Ѱ_û\' + '֮Ѱ_û.exe';

  if FileExists(qs1) then
    ShellExecute(Handle, 'open', PChar(qs1), nil, nil, SW_SHOWnormal)
  else showmessage('ļ  ' + qs1); //ִļ

  setcurrentdir(myfiledir);
end;




=========================
Դ  Դռ
http://www.winu.cn

ҵվҲ

http://wanglinyun2.gotoip3.com/  


ʼ
wanglinyun1@sina.com
===========================
֮Ѱ_û            2010-11-12 2:29:27 
















































































                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
                      
  