Delphi+Shockwaveflash

[Stickmaster2004]

bueno creo que por aca no hablan mucho de delphi, pero es la zona de programacion y creo que esty bien por esa parte, mi duda es la siguiente:

tengo un componente que es un activeX llamado shockwaveflash en un formulario de delphi, yo logro mostrar la animacion .swf de la siguiente manera:

shockwaveflash.movie:='c:\proyecto\arriba.swf', pero yo quiero hacerlo mas o menos de esta forma:

shockwaveflash.movie:='arriba.swf', osea que me muestre la imagen no importa donde coloque la carpeta, si lo hago de esta ultima forma no me sale la imagen que tendria que hacer para que salga??????

les agradeceria si me pudieran ayudar.

[unKnown]

Si se habla de Delphi de vez en cuando jejeje

haber que tal con eto

Código:

function TForm1.Director: string;
var
    reservado: array [0..255] of Char;
begin
     GetModuleFileName(HInstance, reservado, SizeOf(reservado));
     Result := ExtractFilePath(StrPas(Buffer));
end;
Von esto obtienes la ruta de tu aplicacion

ej:  x:/Archivos de programa/Mi HiperPrograma/

Lo podrias implementar asi

var
         MiSwf: array [0..255] of Char;

begin  
         MiSwf:=Director()+"ete.swf";  //Sorry no recuerdo bien la sintaxis pero algo asi debe de funcionar
ShockwaveFlash1.Movie:=MiSwf;

Y como adicional su traduccion


Borland C++ Builder

Código:

AnsiString director(){
    char reservado[255];
    GetModuleFileNameA(HInstance, reservado, sizeof(reservado));
    return ExtractFilePath(AnsiString(reservado));
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString ete=director()+"ete.swf";
ShockwaveFlash1->Movie=ete;
}

Ete Si Funciona asi como ta