Вырезать имя файла

[froggy]

Подскажите, пожайлуста, как вырезать одно название файла из полного пути к файлу?
Ну вот, например, есть строка:
C:/Folder/1/oops.txt
А надо, чтобы было:
oops.txt
Как это лучше сделать?

[Рустам]

Можно так:

function Path(LongPath: String): String;
var buffer : String;
          len: Integer;
begin
SetLength(buffer,MAX_PATH);
len:=GetShortPathName(PAnsiChar(path)), PAnsiChar(buffer),MAX_PATH);
SetLength(buffer, len);
Path:=buffer;
end;

[Alter]

Рустам, это очень длино.

Есть спец-ые функции:

Function ExtractFilePath('Полный путь к файлу'):String; <= Путь к файлу, без имени файла
Function ExtractFileName('Полный путь к файлу'):String; <= Имя файла

[Рустам]

Зато познавательнее...

[froggy]

Спасибо, огромное=)

[froggy]

И ещё один вопрос: как узнать что ехе-файл, запущенный при помощи winexec, завершил свою работу?

[B_N]

Сообщение от froggy

И ещё один вопрос: как узнать что ехе-файл, запущенный при помощи winexec, завершил свою работу?

При помощи WinExec - без "вывертов" - никак. Для этого есть CreateProcess, WinExec уже очень давно устарела.

[froggy]

ладно, тогда как с CreateProcess быть?

[B_N]

Сообщение от froggy

ладно, тогда как с CreateProcess быть?

	STARTUPINFO si;
	PROCESS_INFORMATION pi;
	
	RtlZeroMemory(&pi, sizeof(PROCESS_INFORMATION));
	// создаем процесс
	CreateProcess("c:\\windows\\system32\\calc.exe", NULL, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
	// ждём	завершения процесса
	WaitForSingleObject(pi.hProcess, INFINITE);
	// процесс завершился, закрываем хэндл
	CloseHandle(pi.hProcess);

Если дело происходит "в форме", то лучше ждать с MsgWaitForMultipleObjects, чтобы иметь возможность обрабатывать сообщения. Или запускать в отдельном потоке.

[Квэнди]

один вопрос- одна тема. закрыто.