EAccessViolation , проблема с ExtractFilePath > LastDelimiter > @LStrLen

[Человек_Борща]

Всем привет, начала возникать ошибка:

Access violation at address 00404CB8 in module 'DSE.exe'. Read of address 7C205D2E.


Вот где:

      prc := CreateProcess(
        PChar(AppInfo.FileExe),
        PChar(CheckStr(AppInfo.RunParams)),
        nil,
        nil,
        False,
        GetPriority(AppInfo.CPUPriority),
        nil,
        PChar(ExtractFilePath(AppInfo.FileExe)),
        SI,
        PI); //создаём процесс

Вот что выдаёт MadExcept:

00404cb8 +004 DSE.exe System                @LStrLen
00453f0e +00a DSE.exe SysUtils              LastDelimiter
00453f62 +00e DSE.exe SysUtils              ExtractFilePath
005dc849 +2f5 DSE.exe AppThreadUnit 171 +88 TAppThread.Execute

Как это решить, и почему оно возникает(спонтанно)?

[asmodey1]

BOOL CreateProcess(

LPCTSTR lpApplicationName, // pointer to name of executable module
LPTSTR lpCommandLine, // pointer to command line string
LPSECURITY_ATTRIBUTES lpProcessAttributes, // pointer to process security attributes
LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread security attributes
BOOL bInheritHandles, // handle inheritance flag
DWORD dwCreationFlags, // creation flags
LPVOID lpEnvironment, // pointer to new environment block
LPCTSTR lpCurrentDirectory, // pointer to current directory name
LPSTARTUPINFO lpStartupInfo, // pointer to STARTUPINFO
LPPROCESS_INFORMATION lpProcessInformation // pointer to PROCESS_INFORMATION
);

Сдается мне, что вы внутри проги пытаетесь создать ее же копию...

[Человек_Борща]

т.е. вместо

      prc := CreateProcess(
        PChar(AppInfo.FileExe),
        PChar(CheckStr(AppInfo.RunParams)),
        nil,
        nil,
        False,
        GetPriority(AppInfo.CPUPriority),
        nil,
        PChar(ExtractFilePath(AppInfo.FileExe)),
        SI,
        PI); //создаём процесс

Надо:

      prc := CreateProcess(
        PChar(AppInfo.FileExe),
        PChar(CheckStr(AppInfo.RunParams)),
        nil,
        nil,
        False,
        GetPriority(AppInfo.CPUPriority),
        nil,
        nil,
        SI,
        PI); //создаём процесс

?

[GunSmoker]

Кто такой AppInfo и FileExe - мы должны, я так понимаю, угадать?

[Человек_Борща]

AppInfo - record
соответственно AppInfo.FileExe хнанит полный путь до exe файла(включительно).

Собственно вопрос не раскрыт.

[mss]

> Собственно вопрос не раскрыт

Из-за тебя же он и не раскрыт)
Из тебя ж клещами нужно вытягивать декларацию и инициализацию структуры AppInfo)

[Человек_Борща]

Вопрос стоит так:
Запускается сторонняя программа средством CreateProcess
Следуя описанию оного из #2:

BOOL CreateProcess(

LPCTSTR lpApplicationName, // pointer to name of executable module
LPTSTR lpCommandLine, // pointer to command line string
LPSECURITY_ATTRIBUTES lpProcessAttributes, // pointer to process security attributes
LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread security attributes
BOOL bInheritHandles, // handle inheritance flag
DWORD dwCreationFlags, // creation flags
LPVOID lpEnvironment, // pointer to new environment block
LPCTSTR lpCurrentDirectory, // pointer to current directory name
LPSTARTUPINFO lpStartupInfo, // pointer to STARTUPINFO
LPPROCESS_INFORMATION lpProcessInformation // pointer to PROCESS_INFORMATION
);

для стороннего запускаемого приложения нужно ли указывать LPCTSTR lpCurrentDirectory? Или вместо него ставитьnil?

Вот в чём вопрос.

mss
Я думал это не нуждалось в описании, раз уж упомянута CreateProcess.

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

для стороннего запускаемого приложения нужно ли указывать LPCTSTR lpCurrentDirectory? Или вместо него ставитьnil?

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

[Человек_Борща]

Благодарен! Вопрос исчерпан!

[GunSmoker]

Ничего он не исчерпан.

CreateProcess тут вообще ни при чём.

У тебя AV при работе с FileExe. С учётом того, что это String-вое поле в записи - у тебя 100% баг порчи памяти в программе сидит. С чем я тебя и поздравляю.

Читать.