جربت كل الاحتمالات فلم تفلح
الطريقة الوحيدة هي بكتابة المسار المباشر
مثال:F:\1.swf
و من له حل فليدرجه في مشار كة
والسلام عليكم
الطريقة الوحيدة هي بكتابة المسار المباشر
مثال:F:\1.swf
و من له حل فليدرجه في مشار كة
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ShockwaveFlash1.Stop;
ShockwaveFlash1.Rewind;
Label1.Caption := ExtractFilePath(Paramstr(0))+'1.swf';
ShockwaveFlash1.Movie := ExtractFilePath(Paramstr(0))+'1.swf';
if FileExists(ExtractFilePath(Paramstr(0))+'1.swf') then
ShockwaveFlash1.Visible:= true;
ShockwaveFlash1.Play;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShockwaveFlash1.Movie := ExtractFilePath(Paramstr(0))+'..\delphi test\1.swf';
ShockwaveFlash1.Play;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShockwaveFlash1.LoadMovie(0,':\1.swf');
ShockwaveFlash1.Play;
end;