WinExec непонятка

← →
Besa (2001-09-11 11:11) [0]

Доброго времени суток! Непонятка вот в чем: WinExec в примере приведенном ниже работает нормально
WinExec("arj a c:\temp\Db.arj c:\temp\Db.txt", SW_SHOW)
но если я пытаюсь передать переменную(см. ниже)
1 вар.
WinExec("arj a c:\temp\Db"+ ORG + ".arj c:\temp\Db" + "ORG" + ".txt", SW_SHOW)
2 вар.
WinExec(Str1, SW_SHOW)
выбивает ошибку:
[Error] Unit1.pas(88): Incompatible types: "String" and "PChar"
причем DeleteFile работает нормально
пример кода:

var DUBL, ORG, Str1:String;
i,y:Integer;
F :System.Text;

begin
Query1.Active:=True;
Query1.First;
ORG:=Query1.FieldByName("pr_org").AsString;
Str1:="arj a c:\temp\Db" + ORG + ".arj c:\temp\Db" + ORG + ".txt";

if WinExec("arj a c:\temp\Db"+ ORG + ".arj c:\temp\Db" + "ORG" + ".txt", SW_SHOW) < 32
then
begin

end
else
if deletefile("c:\temp\Db"+ORG+".txt")
then
ShowMessage( DELETE !")
else
ShowMessage(" Not DELETE !");
подскажите,плс, в чем я не прав

WinExec непонятка Найти похожие ветки