| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Определить тип файла [D7, XP]

Der Nechk@ssoff ©   (2006-08-25 16:56:00) 

за программой зарегистрированы *.ntf и*.mp3 файлы,как,при запуске файла через прогу, определить тип и загрузить его туда,куда надо?
Т.е. не засунуть *.mp3 в memo,а *.ntf  в mediaplayer.

---

Der Nechk@ssoff   (2006-08-26 08:30:00) [1]

> guav ©   (26.08.06 00:20) [5]

Так я знаю. В этом цикле все переданные параметры объединяются в одну строку.

---

guav   (2006-08-26 00:20:00) [2]

> Str:=ParamStr(1);
> for i:=2 to ParamCount do
> begin
> Str:=Str+' '+ParamStr(i);

Так это не имя файла, а несколько имён, разделённые пробелами, зачем такое нужно ?

---

Anatoly Podgoretsky   (2006-08-25 22:38:00) [3]

Я вроде ничего про константы не говорил и все равно какая разница, это работает со значением.

---

Fay   (2006-08-25 18:29:00) [4]

2 Der Nechk@ssoff ©   (25.08.06 18:12) [2]
> А если имя файла в переменной?
Да хоть в константе.

 TStreamAdapter = class(TInterfacedObject, IStream)
 private
   FStream: TStream;
   FOwnership: TStreamOwnership;
 public
   constructor Create(Stream: TStream; Ownership: TStreamOwnership = soReference);
   destructor Destroy; override;
   function Read(pv: Pointer; cb: Longint;
     pcbRead: PLongint): HResult; virtual; stdcall;
   function Write(pv: Pointer; cb: Longint;
     pcbWritten: PLongint): HResult; virtual; stdcall;
   function Seek(dlibMove: Largeint; dwOrigin: Longint;
     out libNewPosition: Largeint): HResult; virtual; stdcall;
   function SetSize(libNewSize: Largeint): HResult; virtual; stdcall;
   function CopyTo(stm: IStream; cb: Largeint; out cbRead: Largeint;
     out cbWritten: Largeint): HResult; virtual; stdcall;
   function Commit(grfCommitFlags: Longint): HResult; virtual; stdcall;
   function Revert: HResult; virtual; stdcall;
   function LockRegion(libOffset: Largeint; cb: Largeint;
     dwLockType: Longint): HResult; virtual; stdcall;
   function UnlockRegion(libOffset: Largeint; cb: Largeint;
     dwLockType: Longint): HResult; virtual; stdcall;
   function Stat(out statstg: TStatStg;
     grfStatFlag: Longint): HResult; virtual; stdcall;
   function Clone(out stm: IStream): HResult; virtual; stdcall;
   property Stream: TStream read FStream;
   property StreamOwnership: TStreamOwnership read FOwnership write FOwnership;
 end;

---

Der Nechk@ssoff   (2006-08-25 18:12:00) [5]

А если имя файла в переменной?
var
Str:String;// здесь-filename
i:Integer;
begin
if (ParamCount > 0) then
begin
Str:=ParamStr(1);
for i:=2 to ParamCount do
begin
Str:=Str+' '+ParamStr(i);
end;

---

Anatoly Podgoretsky   (2006-08-25 17:00:00) [6]

ExtractFileExt

---

Наверх