请问如何用程序实现win98自带的画图程序?(100分)

  • 主题发起人 主题发起人 seamost
  • 开始时间 开始时间
S

seamost

Unregistered / Unconfirmed
GUEST, unregistred user!
vcl组件最好。
谢了。
 
使用Ole呀。
 
Delphi不是有个自带的例子吗,和画笔几乎一样。
 
delphi5.0下的例子翻遍也没有找到。
那位看看。
 
调用:
uses WinProcs;
.....
begin
WinExec(......);
..........
end.


例如:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,WinProcs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec('e:/WINNT/System32/mspaint.exe',SW_SHOWNORMAL);
end;

end.





//-------------------------------------------------
函数原型为:
UINT WinExec(
LPCSTR lpCmdLine, // address of command line
UINT uCmdShow // window style for new application
);




 
呵呵,是编程实现,而不是调用。
 
吕大侠不是说了么?

?:/Borland/Delphi5/Demos/Doc/Graphex

去看看吧~~~
 
多人接受答案了。
 
后退
顶部