[DUG] Windows 7 Delphi 2007

[Jan Bakuwel]

Hi John,

Wouldn't know out of the top of my head... I know it's a long shot but
how about trying to run your app as Administrator - see if that makes a
difference? Using D2010 on W7 here too - if you post a small example app
- ie. stripped down to just the problem - I'll have a play with it.

Jan


On 27/05/10 21:54, John Bird wrote:
> The following code which worked in XP/Vista no longer works in Windows 7 - 
> it changes the application icon in the taskbar  to show the state of 
> processing - in this case recording or pausing of automatic time recording.
>
> Anyone have ideas on how to do this especially so it will work in all 
> versions of windows?
>
> Snippets of code to show how I was using it - loading 2 icons from a 
> resource file.
>
>     MinIcon : array[0..1] of TIcon;
>
>     //load icons
>   MinIcon[0]:=TIcon.Create;
>   MinIcon[1]:=TIcon.Create;
>   MinIcon[0].Handle:=LoadIcon(hInstance,'OWLWK');
>   MinIcon[1].Handle:=LoadIcon(hInstance,'OWLSL');
>
>
> (code snippets from a couple of functions)
>
>     //pause
>      ATNowRecording:=false;
>    Application.Icon:=MinIcon[1];
>     lblNowStatus.caption:='||';
>     lblNowStatus.Font.Color:=$00F8FFF;        //orange
>
>
>  //start recording
>  ATNowRecording:=true;
>   Application.Icon:=MinIcon[0];
>   lblNowStatus.caption:='R';
>   lblNowStatus.Font.Color:=clMaroon;
>
>
> John 
>
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: unsubscribe
>
>