Непонятная ошибка!!!!

[Scorpeon]

помогите пожалуйста разобраться с ошибкой!, очень срочно нужно, делаю курсавую

вообщем суть ошибки в следующем....
на одной из форм я с помощью TOpenDialog заускаю exe'ник macromedia Flash
все отлично все открываеться!
вот код:


но после того как я выполню этот код

procedure TForm1.Label3Click(Sender: TObject);
var h,pp : PChar;
s,p:string;
begin

if OpenDialog1.Execute then
Begin
h := Pchar(OpenDialog1.FileName);
WinExec(h,1);
s:=(ExtractFileDir((Application.Exe Name)));
end;
end;


на другой форме когда у меня прога хочет подключиться к текстовому файлу кидает ошибку!

Project TraningFlash.exe raised exception class EInOutError with message 'Inalid Filename'

Кидает ошибку на эту строчку
Reset(tutorials);


Вот остальной код этой формы:

var
Form2: TForm2;
tutorials: TextFile;

....

procedure TForm2.ComboBox1Change(Sender: TObject);
var
s:string;
n,i,p:integer;
begin
AssignFile(tutorials,'data\tutorial s.txt');
nst:=ComboBox1.ItemIndex;
st:=ComboBox1.Items[nst];
Reset(tutorials);
i:=1;
while not eof(tutorials) do
begin
ReadLn(tutorials,s);
razbor(s,k1,k2,k3,k4,k5,k6);
if k1=st then
begin
StringGrid1.Cells[1,i]:=k2;
inc(i);
end;
end;
StringGrid1.RowCount:=i;
if StringGrid1.RowCount>1 then StringGrid1.FixedRows:=1;
for p:=1 to i do
begin
StringGrid1.Cells[0,p]:=inttostr(p);
end;
closefile(tutorials);
end;



В чем может быть ошибка????

[Пепел Феникса]

AssignFile(tutorials,ExtractFilePath(ParamStr(0))+'data\tutorial s.txt');

изучите разницу между относительными путями и абсолютными.
OpenDialog меняет текущую папку...поэтому относительные пути терь указывают не туда.

[Scorpeon]

Пепел Феникса

спасибо большое..... теперь все ясно

жаль блин в моей проге оч много относительных путей, над будет чет думать)))

[Пепел Феникса]

вызовов диалогов меньше?
тогда думаю пригодятся
такие функции.

function GetCurDir:string;
begin
 SetLength(Result,256);
 SetLength(Result,GetCurrentDirectory(PChar(Result),256));
end;

procedure SetCurDir(Dir:string);
begin
 SetCurrentDirectory(PChar(Dir));
end;

можно запоминать(первая функция) до Dialog.Execute потом вернуть(вторая)
а можно в принипе только возвращать (SetCurDir(ExtractFilePath(ParamStr (0)))) после Execute(не важно что вернет)

[Scorpeon]

Пепел Феникса

Спасибо тебе огромное!! все работает!) ты меня избавил от большого гемороя)