>>542
ありがとうございます。
自分なりに翻訳してみました。

h : HWND;

h := FindWindow(nil,'.\calc.exe');
if h = 0 then begin
//電卓起動
ShellExecute(Handle,'open',PChar('.\calc.exe'),'',
PChar(ExtractFilePath(Application.Exename)),SW_SHOWDEFAULT);

end else begin
　　//電卓前面

end;

うーむ、これだと、電卓が既に立ち上がってても、そうでなくても常に
ｈの値が０になる・・・。

>>544
そうですね。
簡単な電卓で良いので自分で作った方が速いかも。