Использование функции API WinExec в RADStudio

← →
John_Korsh © (2016-07-19 10:55) [0]

Добрый день!
Не подскажете ли как грамотно использовать функцию WinExec в RADStudio?
Проблема в string. Вот код, который работал в Delphi7:
var
S : string;
Buffer : PChar;
i : integer;

....

if (FileExists ("Test.exe") then
begin
S := "Test.exe";
GetMem(Buffer, Length(S) + 1);
StrCopy(Buffer, PChar(S));
WinExec (Buffer, SW_SHOWNORMAL); // [dcc32 Error] Inst.pas(813): E2010 .. Incompatible types: "PAnsiChar" and "PWideChar"
FreeMem(Buffer);
end

Ошибку я приписал в строке после WInExec. То есть, как я понимаю, надо как то widechar перевести в AnsiChar?

← →
ert (2016-07-19 11:06) [1]

зачем все это?

var exename : ansistring;
begin

WinExec ("notepad.exe", SW_SHOWNORMAL);
exename := "notepad.exe";
WinExec (PAnsiChar(exename), SW_SHOWNORMAL);

← →
John_Korsh © (2016-07-19 11:09) [2]

Спасибо.

ShellExecute используй - меньше времени потратишь в последствии, когда ошибки начнешь разбирать.

Использование функции API WinExec в RADStudio Найти похожие ветки