При компиляции появляется ошибка:
Return value of function "TForm1.ExecuteFile" might be undefined.
| Код | function TForm1.ExecuteFile(const FileName, Params, DefaultDir: string;
ShowCmd: Integer): THandle;
var
fn:String;
zFileName, zParams, zDir: array[0..79] of Char;
begin
fn:='Не удается найти файл "'+PChar(Edit1.Text)+'" (или один из его компонентов).'#13+
'Проверьте правильность указания имени файла и пути, а также наличие всех'#13+
'необходимых библиотек.';
if ShellExecute(Application.MainForm.Handle,nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd) < 32 then
Application.MessageBox(PChar(fn),'Заголовок окна', MB_OK);
end; |
|
