procedure TForm1.BitBtn1Click(Sender: TObject);
var
a,b,c:string;begin
a:=('E:\Games\魔兽争霸\war3.exe');
b:=('E:\Games\Warcraft III\war3.exe');
C:=('D:\Games\Warcraft III\war3.exe');
if FileExists(a) then
ShellExecute(handle,'open','\\host01\game02\game\war3map.80.bat','','',SW_SHOWNORMAL)
else
if FileExists(b) then
ShellExecute(handle,'open','\\host01\game02\game\war3map.80.bat','','',SW_SHOWNORMAL)
else if FileExists(b) then
ShellExecute(handle,'open','\\host01\game02\game\war3map.40.bat','','',SW_SHOWNORMAL)
else
showmessage('找不到文件');end;
{//****************************
if FileExists(a) then
if FileExists(b) then
都无法执行,路径没有问题!
var
a,b,c:string;begin
a:=('E:\Games\魔兽争霸\war3.exe');
b:=('E:\Games\Warcraft III\war3.exe');
C:=('D:\Games\Warcraft III\war3.exe');
if FileExists(a) then
ShellExecute(handle,'open','\\host01\game02\game\war3map.80.bat','','',SW_SHOWNORMAL)
else
if FileExists(b) then
ShellExecute(handle,'open','\\host01\game02\game\war3map.80.bat','','',SW_SHOWNORMAL)
else if FileExists(b) then
ShellExecute(handle,'open','\\host01\game02\game\war3map.40.bat','','',SW_SHOWNORMAL)
else
showmessage('找不到文件');end;
{//****************************
if FileExists(a) then
if FileExists(b) then
都无法执行,路径没有问题!
是FileExists(a) 不能调用.
应该是这个的问题