This is my prog:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Dialogs, Menus,
StdCtrls, Buttons, ExtCtrls, ComCtrls, DbCtrls, shellapi, process,
windows, winceproc, winceint;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
ProcessInformation:tProcessInformation;
begin
CreateProcess(pwidechar('volume.exe'), Nil, Nil, Nil,
False, CREATE_NEW_CONSOLE, Nil, Nil, StartupInfo, ProcessInformation);
end;
end.
What is wrong?