XnView Software

Ok it works.

My mistake.

Hi

Nothing Happens,

or

Error mesage: File not Readable : Error to open File.

But I can´t see whats wrong.

var
i:integer;
filename1, filename: string;
finfo: TGFL_FILE_INFORMATION;
lp: TGFL_LOAD_PARAMS;
sp: TGFL_SAVE_PARAMS;
gfl_bmp: PGFL_BITMAP;
e,f: GFL_ERROR;
format: string;
begin
if not DirectoryExists(edit1.text) then MkDir(edit1.text);
if edit1.Text <>'' then begin
For i := 0 to FileListBox1 ...