Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Вниз
Определить тип файла Найти похожие ветки
← →
Der Nechk@ssoff © (2006-08-25 16:56) [0]за программой зарегистрированы *.ntf и*.mp3 файлы,как,при запуске файла через прогу, определить тип и загрузить его туда,куда надо?
Т.е. не засунуть *.mp3 в memo,а *.ntf в mediaplayer.
← →
Anatoly Podgoretsky © (2006-08-25 17:00) [1]ExtractFileExt
← →
Der Nechk@ssoff © (2006-08-25 18:12) [2]А если имя файла в переменной?
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;
← →
Fay © (2006-08-25 18:29) [3]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;
← →
Anatoly Podgoretsky © (2006-08-25 22:38) [4]Я вроде ничего про константы не говорил и все равно какая разница, это работает со значением.
← →
guav © (2006-08-26 00:20) [5]> Str:=ParamStr(1);
> for i:=2 to ParamCount do
> begin
> Str:=Str+" "+ParamStr(i);
Так это не имя файла, а несколько имён, разделённые пробелами, зачем такое нужно ?
← →
Der Nechk@ssoff © (2006-08-26 08:30) [6]
> guav © (26.08.06 00:20) [5]
Так я знаю. В этом цикле все переданные параметры объединяются в одну строку.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.048 c
