| 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) |
|---|
