blob: e476539f3864335c3b699b422923043ebfe6772f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
program updatestdimgs;
{$IFDEF FPC}
{$mode delphi}
{$H+}
{$ELSE}
{$APPTYPE CONSOLE}
{$ENDIF}
uses SysUtils, {$ifdef Win32}Windows{$else}linux{$endif};
var
sr : TSearchRec;
i,p : integer;
s : string;
cmdline : string;
begin
i := FindFirst('*.bmp',faAnyFile,sr);
while i=0 do
begin
s := sr.Name;
p := pos('.bmp',s);
if p > 0 then s := copy(s,1,p-1);
cmdline := 'bin2obj -c stdimg_'+s+' '+sr.Name;
WinExec(PChar(cmdline),0);
i := FindNext(sr);
end;
end.
|
