Hallo,
vielen Dank für den Code, aber ich weiß nicht so genau, wo ich den platzieren soll - mein Programm heißt project und hat eine unit1
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;
type
TService1 =
class(TService)
private
{ Private-Deklarationen }
public
function GetServiceController: TServiceController;
override;
{ Public-Deklarationen }
end;
var
Service1: TService1;
implementation
uses abgleich_Unit;
{$R *.DFM}
procedure ServiceController(CtrlCode: DWord);
stdcall;
begin
Service1.Controller(CtrlCode);
end;
function TService1.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
end.
Der Rest ist in der
unit abgleich_unit mit dem Formular form1, Wo also setze ich den beschriebenen Code ein ?
Danke
Günther
[edit=thomasdrewermann]Delphitags eingebaut Mfg, thomasdrewermann[/edit]