Delphi中调用Windows自带的图片和传真浏览器
Delphi中调用Windows自带的图片和传真浏览器查看图片，可以旋转图片也可以调用画图程序编辑图像。自己写不出来好的代码，就用系统自带的好了。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
SysDir,StrParm,StrPicPath,StrRundll:array[0..128] of char;
p1,p2:pchar;
begin
GetSystemDirectory(SysDir,128);
StrRundll:=SysDir;
strcat(StrRundll,'\rundll32.exe');
// showmessage('获取rundll32路径正常');
StrParm:=SysDir;
Strcat(StrParm,'\shimgvw.dll imageview_fullscreen ');
StrPicPath:='D:\My Document\My Pictures\未命名.bmp';
strcat(StrParm,StrPicPath);
// showmessage('获取strparm正常');
ShellExecute(Form1.Handle,nil,pChar(@StrRundll),pChar(@StrParm),nil,SW_SHOWMAXIMIZED);
edit1.Text:=strparm;
end;
end.
相关文档：
3.2 用户登录方案
在进入一个系统时，必须先在登录窗体中输入正确的用户名和密码才能进入。这样可以确保系统的安全性和保密性，登录窗体的制作按照系统的大小及用处，可以分为不同的登录窗体样式，在系统第一次登录前，首先要对操作员信息进行相应的设置。本节将对登录窗体及操作员管理窗体的制作过程进行详细的说明 ......
Delphi操作注册表步骤如下：
-------------------------------------
1）在Uses中添加Registry单元；
2）声明TRegistry对象；
3）创建TRegistry对象；
4）指定根键；
----------------try------------------
5）打开需要操作的主键；
6）读写操作；
7）保存并关闭主键；
--------------finally----------------
......
一、使用文件流的方法进行拷贝，当然。同样的道理，你也可以使用内存流等方法进行文件的拷贝，原理是一样的。
procedure copyfile(sourcefilename,targetfilename : String);
var f1, f2: tfilestream;
begin
f1 := tfilestream.Create(sourcefilename, fmopenread);
try
f2 := tfilestream ......
由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。
1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合Delphi的哪种版本，如果版本不� ......
设有以下三个变量：
var
s:string;
p:pchar;
a:array[1..20] of char;
那么三者之间的转换如下：
1、字符串到PChar
p:=PChar(s);
2、PChar到字符串
s:=p;
3、PChar到字符数组
StrCopy(@a,p);
4、字符数组到PChar
......
