Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#3

Re: TMediaPlayer - AVI aus Resource abspielen

  Alt 8. Jul 2006, 08:00
Einfach das Temp.-Verzeichnis nutzen, auf dieses Verz. hat (sollte) jeder User zugriff haben.

MyPathAndDateiname := IncludeTrailingBackslash(GetEnvironmentVariable('TEMP')) + MyAviName; bzw:

Delphi-Quellcode:
function GetTempAVIFilename: String;
type
  TCharAr = Array [0..MAX_PATH] of Char;
var
  TempPath, TempFileName: TCharAr;
begin
  GetTempPath(SizeOf(TempPath), TempPath);

  GetTempFileName(TempPath, 'TSC', 0, TempFileName);
  StrPCopy(TempFileName, ChangeFileExt(TempFileName, '.AVI'));

  Result := StrPas(TempFileName);
end;
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat