Hallo,
ich habe eine kleines Programm geschrieben was perfekt auf meinem Rechner (Vista) läuft jedoch läuft das Programm nicht auf dem Rechner eines Freundes (WinXP). Dazu muss man sagen das ich CodeGear Delphi for Win32 2007 installiert habe und er nicht. Liegt das vielleicht dadran?
EDIT: Hat sich erledigt lag am Laufwerkbuchstaben. Trotzdem vielen dank.
Quellcode:
ich habe eine kleines Programm geschrieben was perfekt auf meinem Rechner (Vista) läuft jedoch läuft das Programm nicht auf dem Rechner eines Freundes (WinXP). Dazu muss man sagen das ich CodeGear Delphi for Win32 2007 installiert habe und er nicht. Liegt das vielleicht dadran?
EDIT: Hat sich erledigt lag am Laufwerkbuchstaben. Trotzdem vielen dank.
Quellcode:
unit Shutdown.scheduler;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Sekunden: string;
begin
Sekunden := (edit1.Text);
ShellExecute(application.handle,NIL,PChar('C:\Wind ows\System32\shutdown.exe'),PChar('-s -t '+Sekunden+''),NIL,SW_ShowNormal);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(application.handle,NIL,PChar('C:\Wind ows\System32\shutdown.exe'),PChar('-a'),NIL,SW_ShowNormal);
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var Sekunden: string;
begin
Sekunden := (edit1.Text);
ShellExecute(application.handle,NIL,PChar('C:\Wind ows\System32\shutdown.exe'),PChar('-s -t '+Sekunden+''),NIL,SW_ShowNormal);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(application.handle,NIL,PChar('C:\Wind ows\System32\shutdown.exe'),PChar('-a'),NIL,SW_ShowNormal);
end;
end.
Comment