Delphi+Shockwaveflash

[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