اجرای برنامه paint ویندوز د ر برنامه

[khoshblagh]

با سلام خدمت دوستان
میخواهم برنامه paint ویندوز را در برنامه اجرا نمایم. در صورت امکان کد مربوطه ارائه نمائید. البته در سایت گشتم ولی در این رابطه کدی پیدا نشد. متشکرم:خجالت:

[Mask]

اگه منظورتون اینه که میخواهید پرنت برنامه Paint برنامه شما باشه ، میتونید از کدی شبیه به کد زیر استفاده کنید:

var
Form1: TForm1;
fHandle: THandle;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Rec: TShellExecuteInfo;
const
AVerb = 'open';
AParams = '';
AFileName = 'mspaint.exe';
ADir = '';
begin
FillChar(Rec, SizeOf(Rec), #0);
Rec.cbSize := SizeOf(Rec);
Rec.fMask := SEE_MASK_NOCLOSEPROCESS;
Rec.lpVerb := PChar(AVerb);
Rec.lpFile := PChar(AFileName);
Rec.lpParameters := PChar(AParams);
Rec.lpDirectory := PChar(ADir);
Rec.nShow := SW_HIDE;

ShellExecuteEx(@Rec);
WaitForInputIdle(Rec.hProcess, 5000);

fHandle := Windows.FindWindow('MSPaintApp', nil);
Windows.SetParent(fHandle, Handle);

Resize;
ShowWindow(fHandle, SW_SHOW);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
if IsWindow(fHandle) then
begin
SetWindowPos(fHandle, 0, 0, 0, ClientWidth, ClientHeight,
SWP_ASYNCWINDOWPOS);
end;
end;

[gholami146]

کتابخانه ShellApi رو به برنامتون اضافه کنید
و با دستورات داخل اون برنامه مورد نظرتون رو اجراء کنید