| 1 | $start = TimerInit()
|
|---|
| 2 | FileInstall('Eagle.jpg', @ScriptDir & '\Eagle.jpg', 1)
|
|---|
| 3 | FileDelete(@ScriptDir & '\CurrentWallpaper.bmp')
|
|---|
| 4 | If Not FileExists(@ScriptDir & '\Img2Bmp.exe') Then FileInstall('Img2Bmp.exe', @ScriptDir & '\Img2Bmp.exe', 1)
|
|---|
| 5 | $img2bmp = ''
|
|---|
| 6 | $img2bmp_pid = Run(@ScriptDir & '\Img2Bmp.exe "' & @ScriptDir & '\Eagle.jpg' & '" "' & @ScriptDir & '\CurrentWallpaper.bmp' & '"', '', @SW_HIDE, 2)
|
|---|
| 7 | While 1
|
|---|
| 8 | $img2bmp &= StdoutRead($img2bmp_pid)
|
|---|
| 9 | If @error Then ExitLoop
|
|---|
| 10 | Sleep(1)
|
|---|
| 11 | WEnd
|
|---|
| 12 | $finish = TimerDiff($start)
|
|---|
| 13 | MsgBox(262144, 'Time:' & Round($finish, 0) & ' ms', $img2bmp)
|
|---|
