[Skainet]

нужна еще помощь в одном месте. программа будет работать на cd диске и будет запускать на этом же диске другую программу
но на разных компах разные буквы я постарался решить данную проблемму данным кодом но тут одна загвоздка переменная не выводится в ковычках эффект 0 а без них [Error] Unit1.pas(164): Incompatible types: 'String' and 'PAnsiChar'

Код:

function GetExePath:string;
begin
 Result:=ExtractFilePath(paramstr(0));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  ad:=(GetExePath);
  adres:=ad+'123.txt';
ShellExecute(Form1.Handle, 'open', 'adres', nil, nil, SW_SHOWNORMAL) ;
end;

[Skainet]

разобрался сам

[lmikle]

Код:

ShellExecute(Form1.Handle, PChar('open'), PChar(adres), nil, nil, SW_SHOWNORMAL) ;