Ejecutar programa a trves del PcAnyWhere

[Iskariote0087]

tienes que declarar en
USES
StrUtils,Shellapi
creo que con esto te funcionará

Un saludo
Iskariote

[[Caral]]

Gracias IsKariote0087
Pero me sigue dando error, ahora solo este:

[Error] Unit1.pas(40): Undeclared identifier: 'AnsiMidStr'

Supongo que el problema biene por el Ansi, no se?
Saludos

[[Caral]]

Este es una copia del tuyo tal vez me indicas que falta en el uses:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StrUtils, Shellapi, StdCtrls;

type
  TForm1 = class(TForm)
    TxtCod: TEdit;
    BtPcAnywhere: TButton;
    procedure BtPcAnywhereClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtPcAnywhereClick(Sender: TObject);
var
  sinHandle1: THandle;
  tienda:string;
  searchResult : TSearchRec;
  codigo:string;
  tiendaAejecutar:string;
begin
  if FindFirst('C:\Documents and Settings\All Users\Datos de programa\Symantec\pcAnywhere\*.CHF', faAnyFile, searchResult) = 0 then   // si es o ha encontrado algo
  begin
    repeat
      Codigo:=AnsiMidStr(searchResult.Name, 1, 5);
      tienda:=AnsiMidStr(searchResult.Name, 6, 35);
      tiendaAejecutar:= Codigo+  tienda;
      If txtCod.Text= codigo then
        shellexecuteA(sinHandle1,'open',
             pansichar('C:\Documents and Settings\All Users\Datos de programa\Symantec\pcAnywhere\'+ tiendaAejecutar) ,nil,nil,sW_normal);
    until FindNext(searchResult) <> 0;
  end;
  findclose(searchResult);
  Form1.Enabled:=false;
  Form1.Enabled:=true;
end;

end.

Este es el error:

[Fatal Error] Unit1.pas(7): File not found: 'AnsiUtils.dcu'

Saludos

[Iskariote0087]

strutils, con esta libreria el Ansi tiene que funcionar, acabo de hacer la prueba.La quito me da error la pongo ya no me da error.

un saludo
Iskariote

[[Caral]]

Sera el delphi 6 el problema, No me funciona ?
Lo quite o lo ponga es lo mismo, vi en la lib del delphi y si esta.
Que sera ?
Saludos

[Iskariote0087]

Yo creo que el problema es que no tienes el componente que te permita trabajar con esa libreria.
Por Component\InstallComponet y añadirlo.Esto que te estoy diciendo te lo digo sin tenerlo muy claro, yo taambien soy un principiante y normalmente me ayudo mucho del foro para acabar mis programillas.
En cualquier caso si ves que no funciona quita el AnsiMidStr.Y prueba a meter en la variable codigo y tienda el codigo y el nombre a pelo a ver si te funciona.Luego ya pensaremos como hacer que funcione el Ansi...

Un saludete
Iskariote