vot tak
1)первое
var
OldBkMode : integer;
begin
Image1.Picture.Bitmap.Canvas.Font.Color := clBlue;
OldBkMode := SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,TRAN SPARENT);
Image1.Picture.Bitmap.Canvas.TextOut(10, 10, Maaza faka da da!');
SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,OldB kMode);
2)Второе
модуль ShellApi
ShellExecute(Handle, 'open', 'Путь', nil, nil, SW_RESTORE);
Если я так понял вопрос.
__________________
KaKa
|