WinExec i Application.ExeName

WinExec(ExtractFilePath(Application.ExeName)+'/SMprg/_PRO1HardR.exe',SW_SHOWNORMAL);

Problem tkwi w tym że wyskakuje komunikat
--> inkompatible types 'string' 'PAnsiString'.

Wiem ze chodzi tu o niezgodność typów ale nie wiem jak to naprawić zeby działało ... :/

WinExec( PChar(ExtractFilePath(Application.ExeName)+'/SMprg/_PRO1HardR.exe'), SW_SHOWNORMAL);

HookeR napisał(a)

WinExec(ExtractFilePath(Application.ExeName)+'/SMprg/_PRO1HardR.exe',SW_SHOWNORMAL);

Problem tkwi w tym że wyskakuje komunikat
--> inkompatible types 'string' 'PAnsiString'.

Wiem ze chodzi tu o niezgodność typów ale nie wiem jak to naprawić zeby działało ... :/

Rzutowanie typów. Odpowiedź na to pytanie była w FAQ.

WinExec(PChar(ExtractFilePath(Application.ExeName)+'/SMprg/_PRO1HardR.exe'),SW_SHOWNORMAL);

// aleśmy się rzucili do tego tematu :) a ja niestety ostatni :)

Spróbuj tak:

var
s : string;
begin
s := ExtractFilePath(Application.ExeName) + 'SMprg\_PRO1HardR.exe';
WinExec(^s, SW_SHOWNORMAL);
end;