Вот тож накидал чуток, кидаеш exe в папку с картинками, запускаеш... прога создаст файлы HTML в той же папке с названием - название.картинки.HTML.
В страничку допишед вот такое - <html><body></a><img src="' + имя.картинки + '"></body></html>
Что вроде и требовалось :D
Вот экзе - http://dump.ru/files/o/o1403731592/
А вот код (делфе):
program sorter;
//{$APPTYPE CONSOLE}
uses
Windows, SysUtils, Classes;
function ExtractFilePath(const FileName: string): string;
var i: longint;
begin
i := Length(FileName);
while (i > 0) and not (FileName[i] in ['/', '\', ':']) do Dec(i);
If I>0 then
Result := Copy(FileName, 1, i)
else
Result:='';
end;
var
SR:TSearchRec;
FindRes:Integer;
Str: String;
begin
FindRes:=FindFirst(ExtractFilePath(paramstr(0))+'* .jpg',faAnyFile,SR);
While FindRes=0 do
begin
Str:= '<html><body></a><img src="' + SR.Name + '"></body></html>';
with TFileStream.Create(pchar(SR.Name + '.html'), fmCreate) do
try
Write(Str[1], Length(Str));
finally
Free;
end;
FindRes:=FindNext(SR);
end;
FindClose(SR);
end.