вопрос по ShellExecute

[Borodkin]

уважаемые специалисты!

у меня вопрос: при
ShellExecute(Form1.Handle,nil,'прог рамма_в_делфи.exe', nil, nil,SW_HIDE);
почему то не срабатывает команда SW_HIDE, т.е. окно визуально видно.

В задачу входит запускать приложение, но при этом оставлять его невидимым.

Что предпринимал:

1. т.к. вызываемая программа тоже написана в Делфи7, убрал все ограничения на изменения рабочей формы
2. менял SW_HIDE на integer-эквивалент (в частности, SW_HIDE = 0)
3. из всех возможных вариантов срабатывает только (SW_MAXIMIZE).

Что с этим делать?
спасибо ))

[FaTaL]

А если так попробывать?
ShellExecute(0,'open','прог рамма_в_делфи.exe', nil, nil,SW_HIDE);

[Borodkin]

Сообщение от FaTaL

А если так попробывать?
ShellExecute(0,'open','прог рамма_в_делфи.exe', nil, nil,SW_HIDE);

тоже самое ((

[FaTaL]

Кинь свою прог рамма_в_делфи.exe проверю.

[Borodkin]

unit ChartMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, ExtDlgs, StdCtrls,
  Buttons;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SavePictureDialog1: TSavePictureDialog;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Bmp: TBitmap;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
  k: Integer;
begin
  for k := 0 to 20 do
    Chart1.SeriesList[0].AddXY(k,sin(k*pi/10),'',clRed);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var Bmp: TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.Width := Chart1.Width; //
Bmp.Height := Chart1.Height;
Chart1.Draw(Bmp.Canvas,Rect(0,0,Chart1.Width,Chart1.Height)); //If not SavePictureDialog1.Execute then Exit;
Bmp.SaveToFile(SavePictureDialog1.FileName); //
end;
end.

ну так что делать, подскажите плиз! ))

[BLACK_RAIN]

как объявить ShellExecute без подключения модуля "shellapi"?
я это уже раньше делал, но забыл как, а исходник походу удалил

const
shell32 = 'Shell32.dll';
............
function ShellExecute(hWnd: HWnd; Operation : pansichar; FileName : pansichar;
           Parameters : pansichar; Directory: PansiChar; ShowCmd: Integer): cardinal;
           external Shell32 name 'ShellExecuteA'; // stdcall;

делаю так - компилится и запускается, но прога падает при обращении к функции.
что я забыл или пропустил?
-------------
чьёртъ побъери!
разобрался. stdcall не туда сунул!

const
shell32 = 'Shell32.dll';
............
function ShellExecute(hWnd: HWnd; Operation : pansichar; FileName : pansichar;
           Parameters : pansichar; Directory: PansiChar; ShowCmd: Integer): cardinal; stdcall;
           external Shell32 name 'ShellExecuteA';

извиняюсь за флуд. сообщение можно удалить.
p.s.
а вообще, раз уж пошла ботва, результат какого типа возвращает функция ShellExecute - Cardinal, thandle или что?
в интернете везде пишут по-разному. Какой из них правильный?

[Пепел Феникса]

поидее THandle, но он помоему то же что и Cardinal.