Delphi files

[Serge_Bliznykov]

1) не уверен, что Вы понимаете, что в SR.Name находится только имя (без полного пути)

2) Вам что надо? Запустить приложение, которое у Вас в системе назначено на обработку файлов с расширением TXT и загрузить туда свой файл? попробуйте полный путь передать в следующую функцию

function ExecuteFile(const FileName, Params, DefaultDir: string;
  ShowCmd: Integer): THandle;
var
  zFileName, zParams, zDir: array[0..79] of Char;
begin
  Result := ShellExecute(Application.MainForm.Handle, nil,
    StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
    StrPCopy(zDir, DefaultDir), ShowCmd);
end;

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

[Manhunt714]

мне надо найти текстовый файл, и открыть его.
а если вот тут дописать путь, все равно та же ошибка..

ShellExecute (Form1.Handle, nil, PChar('C:\'+SR.name), nil, nil, SW_RESTORE);

[Serge_Bliznykov]

1) у Вас что, файл реально в корне диска C:\ лежит? Не самое удачное место для файлов...

2) используйте мою функцию ExecuteFile
примерно вот так:

  ExecuteFile('C:\'+SR.name,'','',1);

[Manhunt714]

блин, все равно та же ошибка project Project1.exe raised exception class EComponentError with message '''1ul23dom.txt'' is not a valid component name'.Process stopped. Use Step or Run To continue.
а если закоментить эту процедуру PrintFile('*.txt', 'C:\');
то ваша функция ExecuteFile('C:\'+SR.name,'','',1); открывает не текстовый файл, а папку где он находится..

[GunSmoker]

*facepalm*

Код целиком в студию!

[Manhunt714]

ахах) заработало) gun smoker не мог раньше отписаться))